Getestet - funktioniert
26.04.2017 11:22:36
GraFri
Hallo
Fehler bei Ermittlung der ertsen Datenzeile einer Spalte behoben.
Option Explicit
Sub Anhängen()
Dim letzteA As Long, letzteSpalte As Long
Dim Anfang As Long, Ende As Long
Dim n As Long, Anzahl As Long
With Worksheets("Tabelle1")
'letzte Spalte in Zeile 1 suchen. Eventuell anpassen.
letzteSpalte = .Cells(1, Columns.Count).End(xlToLeft).Column
For n = 2 To letzteSpalte
letzteA = .Cells(Rows.Count, "A").End(xlUp).Row
'Anfang = .Cells(1, n).End(xlDown).Row
If Cells(1, n).Value = "" Then
Anfang = Cells(1, n).End(xlDown).Row
Else
Anfang = 1
End If
Ende = .Cells(Rows.Count, n).End(xlUp).Row
Anzahl = Ende - Anfang + 1
.Range(Cells(letzteA + 1, 1), Cells(letzteA + Anzahl, 1)).Value = _
.Range(Cells(Anfang, n), Cells(Ende, n)).Value
.Range(Cells(Anfang, n), Cells(Ende, n)).ClearContents
Next n
End With
End Sub
mfg, GraFri