1. Liebe Forumsgemeinde,

    aufgrund der Bestimmungen, die sich aus der DSGVO ergeben, müssten umfangreiche Anpassungen am Forum vorgenommen werden, die sich für uns nicht wirtschaftlich abbilden lassen. Daher haben wir uns entschlossen, das Forum in seiner aktuellen Form zu archivieren und online bereit zu stellen, jedoch keine Neuanmeldungen oder neuen Kommentare mehr zuzulassen. So ist sichergestellt, dass das gesammelte Wissen nicht verloren geht, und wir die Seite dennoch DSGVO-konform zur Verfügung stellen können.
    Dies wird in den nächsten Tagen umgesetzt.

    Ich danke allen, die sich in den letzten Jahren für Hilfesuchende und auch für das Forum selbst engagiert haben. Ich bin weiterhin für euch erreichbar unter tti(bei)pcwelt.de.
    Dismiss Notice

Excel XP

Discussion in 'Office-Programme' started by kn, Mar 2, 2003.

Thread Status:
Not open for further replies.
  1. kn

    kn Byte

    Wie muss der VBA Code aussehen, wenn ich in einer Tabelle (A4:A984) nach dem Sortieren, den Courser in die nächste freie Zelle springen lassen möchte?
    Es werden ständig Daten nachgetragen, es ist mühsam immer bis zur freien Zelle scrollen zu müssen.
    Bitte um Hilfe.
     
    kn, Mar 2, 2003
    #1
  2. kn

    kn Byte

    Hi Geert,
    vielen Dank fuer Deine schnelle Hilfe.
    Wenn man das Activate in Select aendert, dann macht das Makro genau was es soll!
    Nochmals vielen Dank!
    kn
     
    kn, Mar 3, 2003
    #2
  3. Geertakw

    Geertakw Kbyte

    Hi
    Bei mir funktioniert folgender frisch aufgezeichnete Makro:

    Sub sort_Findfree()
    Columns("A:A").Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False).Activate
    End Sub

    Gruss Geert
     
    Geertakw, Mar 2, 2003
    #3
Thread Status:
Not open for further replies.

Share This Page