Suchergebnisse
Suchergebnisse 1-5 von insgesamt 5.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
-
Ist nur so ein Gedankenanstoß... Da müstest du vielleicht 2 Zellen im Tabellenblatt definieren, wo die Zeile und Spalte der letzten Eintragung stattfand und nach dieser orientierst du dich bei der nächsten Eintragung. Sheet.Cells(Zeile, Spalte) = nächsterWert
-
Am schnellsten geht es immer noch, wenn man sich die Zeile bei der Eintragung merkt. Man definiert einfach eine Zelle (ev. verborgen) im Tabellenblatt, die 'letzteZeile' heist und gibt ihr einen Startwert der 1. Zeile und sie darf nicht im Eintragungsbereich liegen. Bei den Eintragungen dann immer folgenden Code verwenden: Worksheets("TABELLENNAME").Cells(Worksheets("TABELLENNAME").Range("letzteZeile").Value + 1, 1).Select ActiveCell.Value = DeinWert Worksheets("TABELLENNAME").Range("letzteZeile…
-
Da meine ich eine ev. versteckte Zelle im Tabellenblatt, wo sich die Daten sowieso befinden. Wenn da Datenzeilen gelöscht werden, muss natürlich der letzteZeile-Wert entsprechend mitgeändert werden...
-
Wo hast du DasIstDieLeereZeile deklariert Du beginnst mit zeile = 0 und das mag Excel nicht siehe diesen Thread Dim DasIstDieLeereZeile As Integer For zeile = 1 To 2000 If xls_Blatt.Cells(zeile, 1).Value = "" Then DasIstDieLeereZeile = zeile : Exit For Next zeile und was willst du dann mit DasIstDieLeereZeile machen schau nochmals meinen obigen Vorschlag in Post#14 an (habe ihn nochmals verbessert)...
-
@tulla: und @sterat: Ich habe jetzt einen lauffähigen Quellcode erstellt (zum erstenmal mit Interop gewerkt...): (Versteckter Text) Das mit dem benannten Bereich(letzteZeile) habe ich jetzt nicht 'auf die Schnelle gebacken' bekommen und habe einfach die Zelle(A1) dafür hergenommen... Eine Form1 mit Textbox1 und Button1 erstellen und den Code einfügen... Eine Excel-Datei (Mappe1.xlsx) mit einer Tabelle (Tabelle1) in das ausführende App-Verzeichnis kopieren... Die bessere und elegantere Lösung wär…