08.08.2018, 09:58
Hi,
Du hast also eine Datenbankliste (Prüftabelle), bei der Du mittels Makro Zeilen einfügst.
Wenn Du die neue Zeile in die erste freie Zeile unten anhängen willst, ermittelst Du die letzte mit folgender Variablen:
loLetzte = Sheets("Name Deiner Prüftabelle").Cells(Rows.Count, 1).End(xlUp).Row 'Sheetname anpassen, Spalte der letzte-Prüfung anpassen 1 = A
Diese Variable verwendest Du dann in dem Kopiermakro anstatt der bisherigen Zahl der einzufügenden Zeile.
(08.08.2018, 08:39)Maus schrieb: Bin super schlecht in Excel und lerne es gerade anhand meines Problems. Ich habe auf dem ersten Arbeitsblatt sowas wie ein Formular, in dem der Nutzer Name, Adresse, etc. eingibt. Über ein Button mit Makro dahinter ( über Makro aufzeichnen ) kopiert er über Strg + C und Strg + V die Daten als neue Zeile auf das zweite Arbeitsblatt, also in die Prüftabelle. Deswegen wüsste ich nicht, wie ich die Zeile hinten ranhängen könnte Smile
Würde es dann aber nicht auch nicht beachtet werden bei der bedingten Formatierung und der Formel.
Du hast also eine Datenbankliste (Prüftabelle), bei der Du mittels Makro Zeilen einfügst.
Wenn Du die neue Zeile in die erste freie Zeile unten anhängen willst, ermittelst Du die letzte mit folgender Variablen:
loLetzte = Sheets("Name Deiner Prüftabelle").Cells(Rows.Count, 1).End(xlUp).Row 'Sheetname anpassen, Spalte der letzte-Prüfung anpassen 1 = A
Diese Variable verwendest Du dann in dem Kopiermakro anstatt der bisherigen Zahl der einzufügenden Zeile.