Hallo zusammen,

bin ganz neu in VBA/Makros. Ich habe eine Tabelle auf Blatt 1, die Werte/Zellen aus Blatt 1 sollen in die nächste freie Zeile auf Blatt 2 kopiert werden. Das kopieren an sich ging schon, aber die Bedingung mit, dass es eben nur in die nächste freie Zeile rein soll, ging nicht. Könnt ihr mir bitte sagen, was ich falsch geschrieben habe. Den If Teil habe ich mir von wo kopiert gehabt. Bisher:

DatenÜbernehmen Makro
' Daten von Eingabe in die Kundenübersicht übernehmen
'
Range("C2").Select
Selection.Copy
Sheets("PKV_Kunden").Select
Range("A497").Select
If Worksheets("PKV_Kunden").Range("A497").Offset(1, 0) > "" Then Worksheets("PKV_Kunden").Range("A497").End(xlDown).Select
ActiveSheet.Paste
Sheets("Eingabe").Select
Range("C3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("PKV_Kunden").Select
Range("I497").Select
If Worksheets("PKV_Kunden").Range("I497").Offset(1, 0) > "" Then Worksheets("PKV_Kunden").Range("I497").End(xlDown).Select
ActiveSheet.Paste
Sheets("Eingabe").Select
Range("C4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("PKV_Kunden").Select
Range("F497").Select
If Worksheets("PKV_Kunden").Range("F497").Offset(1, 0) > "" Then Worksheets("PKV_Kunden").Range("F497").End(xlDown).Select
ActiveSheet.Paste
.......
End Sub