Supportnet / Forum / Tabellenkalkulation

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 [i]if ... then ... else [/i]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

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

Danke für die Hilfe.
Werds in den nächsten Tagen mal testen. Und bescheid geben ob ichs hinbekommen habe ;-)
Gruß
Tom

• wieder Makro Code
• Erste freie Zelle in Spalte A
• Wie kann ich in Excel in jeder Zelle am Ende automatisch ein Komma einfügen?
• Nächste frei Zeile aus wählen
• Berechnungsergebnis in andere Zelle