Daten an bestehende Liste anfügen

Bild

Betrifft: Daten an bestehende Liste anfügen
von: Patrick
Geschrieben am: 22.09.2003 14:11:01

Hallo Leute,

ich habe ein Problem beim Anhängen von Daten an eine bestehende Liste - u.z. möchte ich mittels Makro jeden Monat am Ende der bestehenden Liste (ab der ersten leeren Zeile) die neuen Daten anhängen. Hat jemand eine Idee für mein Makro?

Bild


Betrifft: AW: Daten an bestehende Liste anfügen
von: Marcel
Geschrieben am: 22.09.2003 14:32:50

Wenn in einer ganzen Spalte nach der ersten leeren Zeile gesucht werden soll, hilft dieser Code.
Den Bereich, in welchem die Daten kopiert werden sollen, muss selber festgelegt werden.
Ich würde die Spalte mit dem längsten Inhalt zum suchen freier Zellen verwenden, sonst kann es passieren, dass bestehende Daten überschrieben werden.



Sub einsetzen ()
' Daten im Bereich (F1 bis F2) markieren und kopieren
    Range("F1:F2").Select
    Selection.Copy
' In Spalte A nach der ersten leeren Zelle suchen
    Columns("A:A").Select
    Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False).Activate
    ActiveCell.Select
' Markierte Daten als Werte einfügen
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
End Sub



Bild


Betrifft: AW: DANKE,DANKE,DANKE MARCEL
von: Patrick
Geschrieben am: 22.09.2003 14:44:31

DU BIST DER HIT - VIELEN DANK VON PATRICK UND KLAUS(THREAD VOM 11/9) - HAT SUPER GEKLAPPT!


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Daten an bestehende Liste anfügen"