Spaltenname herausfinden
19.10.2004 14:54:03
-Sarah-
Ich möchte in eine Mappe auf einem Tabblatt Spalten einfügen. Allerdings muss in einer Zelle eine bestimmte Sache drinnen stehen. Dahinter soll eine Spalte eingefügt werden.
Die zelle hab ich über eine Do while-Schleife gefunden. Allerdings hab ich nur die Spalte als Zahl.
Wenn ich nun den Range- Befehl verwende, läuft es immer auf nen Fehler!
For i = 1 To ActiveWorkbook.Sheets.Count
Do While Sheets(i).Cells(1, pos) "Auftragsnr"
If pos = 256 Then
Exit Do
End If
pos = pos + 1
Loop
ASpalte = pos
If ASpalte "256" Then
Sheets(i).Cells(1, ASpalte).Activate
Range((ASpalte+1)).Select
Selection.EntireColumn.Insert
Cells(1, (ASpalte + 1)) = "A"
Cells(1, (ASpalte + 2)) = "B"
Cells(1, (ASpalte + 3)) = "C"
Exit For
End If
Next i
Muss ich dazu den Spaltennamen herausfinden, damit ich den Range-Bereich angeben kann. Wenn ja wie?
Gruß, Sarah