Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema " Daten an bestehende Liste anfügen"
Eine Serie von bestehenden Arbeitsblättern auswechseln Bestehender Formel eine 5er-Rundung hinzufügen