Hallo :)
Ich habe schon viele Beiträge dazu gesucht und auch versucht entsprechende Vorschläge an meine Sache anzupassen, jedoch ohne Erfolg.
Ich hoffe Ihr könnt mir helfen:
Ich kopiere nacheinander Datensätze aus einer Datei die ich zuvor wähle und öffne.
Es werden dann werte von Spalte B bis J übertragen. Die Tabelle wird sich aber immer weiter nach unten vergrößern, sodass ich keine direkte Zeilenangabe machen kann, sondern sagen muss nehme die aktuelle Zeile aus dem Kopiervorgang.
darin liegt quasi auch die Schwierigkeit.
Also hier der Kopiervorgang:
varDatei.Activate
Sheets("Erfolg").Select
Range("G14").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Kopie.xlsm").Activate
Sheets("Tabelle1").Cells(Rows.Count, 8).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Im Anschluss daran soll nun also geprüft werden ob die Zelle leer geblieben ist.
wenn ja soll ein "x" eingetragen werden.
Kann mir jemand helfen?