Zellenbezug als Variable
01.12.2007 15:32:00
Jochen
ich habe folgendes Problem, ich bekomme täglich mehrere Datensätze in einer txt. datei das kann mal nur einer sein, aber auch mal 50.
Mit folgendem Makro las ich mir die Anzahl der belegten Zeilen feststellen:
Dim AnzahlZeilen As Integer
Sheets("eingabe").Activate
AnzahlZeilen = Application.WorksheetFunction.CountA(Range("A1:A1820"))
jetzt möchte ich die Variable AnzahlZeilen in die Folgenden Befehl einbauen (Hier nur einer als Beispiel), Anstatt des Ranges("A1:A1812")
Weil ich aus der txt Datei noch Leerstellen und Sonstiges entfernen muß und danach in ein Tabelle übertragen, mit einer festen Zellenangabe braucht das aber ziemlich lang, wenn nur ein Datensatz eingetragen wird.
Range("A1:A1812").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="(", FieldInfo:=Array(1, 1)
Ich hab es schon mit Cells und Variablen versucht, aber nichts hat funktioniert. Lösung mit Erklärung wäre Super, ich möchte nämlich auch ganz gern kapieren was ich mach.
Danke schon im voraus
Jochen