Import in erste freie Zeile

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Import in erste freie Zeile

Import in erste freie Zeile von Georg Spark vom 25.09.2019 13:18:52

AW: Import in erste freie Zeile - von Torsten am 25.09.2019 13:27:27

AW: Import in erste freie Zeile - von Regina Resch-Jansen am 25.09.2019 13:28:27

AW: Import in erste freie Zeile - von Georg Spark am 27.09.2019 09:54:04

AW: Import in erste freie Zeile - von Torsten am 30.09.2019 08:47:34

Betrifft: Import in erste freie Zeile von: Georg Spark
Geschrieben am: 25.09.2019 13:18:52

Servus,
ich würde gerne ein Makro schreiben, dass mir die Werte von Datei1 in Datei2 überträgt und zwar immer in die erste freie Zeile. Genau da liegt mein Problem, ich habe leider keine Ahnung wie dies machbar ist.
Datei1

Die Daten sollen nun aus Datei1 an Datei2 angefügt werden.

Datei2

Den Import kann ich alleine schreiben, ich müsste nur wissen wie man imme rin die erste freie Zeile importiert.
Hat jemand vielleicht einen Tipp?

MFG Georg

Betrifft: AW: Import in erste freie Zeile von: Torsten
Geschrieben am: 25.09.2019 13:27:27

Hallo Georg,

Dim ersteFrei As Long       'Variable fuer die erste freie Zeile

ersteFrei = ThisWorkbook.Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row + 1      'erste  _
freie Zeile in Spalte 1 gesucht
                                                                                        ' _
Workbook und Sheet anpassen

hiermit erhaelst du in der Variablen die Nummer der ersten freien Zeile. Diese wird in dem Fall in Spalte A ermittelt. Wenn du sie in einer anderen Spalte ermitteln willst, dann hier die Nummer aendern:

Cells(Rows.Count, 1)

Diese Variable kannst du dann benutzen nach dem Copy Befehl im Paste Befehl, z.B.:

Sheets("Tabelle2").Range("A" & ersteFrei).PasteSpecial xlPasteValues

Gruss Torsten

Betrifft: AW: Import in erste freie Zeile von: Regina Resch-Jansen
Geschrieben am: 25.09.2019 13:28:27

Hi, erste freie Zelle finden:

lng_leere_Zelle = Worksheets("DeinSheet").cells(rows.count,1).end(xlup).row +1

Gruß Regina

Betrifft: AW: Import in erste freie Zeile von: Georg Spark
Geschrieben am: 27.09.2019 09:54:04

Guten Morgen,
danke für beide Antworten. Ich war leider die letzten Tage krank und konnte erst jetzt schauen.
Es funktioniert soweit super mit der letzten Zeile, nur mein Import will nicht so ganz.