Daten einfügen ab bestimmter Zeile
13.11.2012 14:45:09
Jockel
vielleicht kann mir jemand helfen:
Ich kopiere Daten von TB1 nach TB2. Das funktioniert soweit.
Nur möchte ich nicht, dass die Daten in TB2 in die Zeile 2 geschrieben werden (also unterhelb der Überschrift) sondern in die erste frei Zeile.
Dies, falls schon Daten drin stehen, damit diese nicht überschrieben werden.
was muss ich denn da ändern ?
Danke mal
Jockel
Sub Ablage_füllen()
On Error GoTo Fehler
Dim TB1, TB2, i%, SP
Dim LC%, C
Set TB1 = Sheets("Daten")
Set TB2 = Sheets("Ablage")
LC = TB1.Cells(1, Columns.Count).End(xlToLeft).Column
Application.ScreenUpdating = False
For i = 1 To LC
SP = TB2.Cells(1, i).Value 'Überschrift
Set C = TB1.Rows(1).Find(SP, LookIn:=xlValues, LookAt:=xlWhole)
If Not C Is Nothing Then
TB1.Columns(C.Column).Copy TB2.Columns(i)
End If
Next
Err.Clear
Fehler:
If Err.Number 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err. _
Clear
End Sub
Anzeige