Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Tiger-Tom vom 28.11.2019, 18:07 Options
nächste freie Zelle
Ich möchte aus VBA eine Tabelle erstellen.
Die Daten sollen in einer Maske eingegeben werden und in der Tabelle in der nächsten leeren Zelle der Spalte eingetragen werden.
Bisher habe ich das ganze per if ... then ... else anweisung gemacht.
Das wird aber bei vorraussichtlich knap 1000 Einträgen ewtas zu Aufwendig. vorallem da ich für Zeile ca. 10-12 Zellen anspreche.
Würde mich über HILFE freuen.
Gruß Tom
Die Daten sollen in einer Maske eingegeben werden und in der Tabelle in der nächsten leeren Zelle der Spalte eingetragen werden.
Bisher habe ich das ganze per if ... then ... else anweisung gemacht.
Das wird aber bei vorraussichtlich knap 1000 Einträgen ewtas zu Aufwendig. vorallem da ich für Zeile ca. 10-12 Zellen anspreche.
Würde mich über HILFE freuen.
Gruß Tom
Antwort 1 von Hajo_Zi vom 28.11.2019, 18:23 Options
Hallo Tom,
ermittle die letzte belegte Zelle und arbeite dann mit Cells()
Dim LoLetzte As Long
' Das führt zu Fehler unter Versionen vor 2007 falls keine Zelle ausgewählt wurde
If Not TypeOf Selection Is Range Then Exit Sub ‘ Hinweis von Beverly (Karin)
‘ Prüfng ob Tabelle ausgewählt
If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
' letzte belegte Zeile unabhängig von Excelversion für Spalte A (1)
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
Gruß Hajo
ermittle die letzte belegte Zelle und arbeite dann mit Cells()
Dim LoLetzte As Long
' Das führt zu Fehler unter Versionen vor 2007 falls keine Zelle ausgewählt wurde
If Not TypeOf Selection Is Range Then Exit Sub ‘ Hinweis von Beverly (Karin)
‘ Prüfng ob Tabelle ausgewählt
If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
' letzte belegte Zeile unabhängig von Excelversion für Spalte A (1)
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
Gruß Hajo
Antwort 2 von tiger-tom vom 28.11.2019, 18:34 Options
Danke für die Hilfe.
Werds in den nächsten Tagen mal testen. Und bescheid geben ob ichs hinbekommen habe ;-)
Gruß
Tom
Werds in den nächsten Tagen mal testen. Und bescheid geben ob ichs hinbekommen habe ;-)
Gruß
Tom
Ähnliche Themen
wieder Makro Code
achmi71 14.01.2007 - 134 Hits - 9 Antworten
Erste freie Zelle in Spalte A
RalfH 01.03.2007 - 69 Hits - 4 Antworten
Wie kann ich in Excel in jeder Zelle am Ende automatisch ein Komma einfügen?
realflapjack 03.09.2007 - 90 Hits - 1 Antwort
Nächste frei Zeile aus wählen
Rasful 11.09.2007 - 22 Hits - 2 Antworten
Berechnungsergebnis in andere Zelle
micico 16.11.2007 - 180 Hits - 5 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
