Umständliches Makro
14.06.2004 08:16:48
alexander
ich habe ein Makro gebastelt
es soll die zellen einer Spalte füllen.
Ich lese die Datei von einer TXT ein.
somit habe ich in den eigentlich leeren Zellen leerzeichen drin.
wenn ich jetzt das MAkro ausführe habe ich das Problem das je nach Spalte unterschiedlich viele Leerstellen drin sind und das Makro dann keinen Erfolg mehr hat.
Wie kann ich das beheben?
Kann ich die max. Anzahl der Leerstellen in einer Spalte lesen und dann die If - Anweisung dementsprechend anpassen?
Hier das MAkro:
Sub Auffüllen()
Dim Check, Counter, zelle
test = True: zähler = 0
Do ' Äußere Schleife.
Do While test = True ' Innere Schleife.
Selection.Copy
If zähler <= 29939 Then
zähler = zähler + 1 ' Zähler hochzählen.
ActiveCell.Offset(1, 0).Range("A1").Select
'If ActiveCell.Value = " " Then ' Wenn Bedingung = True,2
'If ActiveCell.Value = " " Then ' Wenn Bedingung = True,6
'If ActiveCell.Value = " " Then ' Wenn Bedingung = True,9
If ActiveCell.Value = " " Then ' Wenn Bedingung = True,10
ActiveSheet.Paste
'MsgBox ActiveCell.Value
Exit Do ' Innere Schleife verlassen.
Else
Selection.Copy
End If
Else: test = False
End If
Loop
Loop Until test = False
End Sub
Vielen Dank
Alexander