Makro hat nur einmal funtkioniert
18.06.2015 10:46:30
LP
ich habe folgendes Makro, um in einer Tabelle automatische Ersetzungen durch zu führen:
Dim Zählen As Integer
Dim Zelle As String
Dim Zeile As Long
Dim Inhalt As String
Zeile = 1
Zählen = 1
For n = 1 To 70
Zelle = "g" & Zeile
Range(Zelle).Select
Inhalt = Range(Zelle).Value
If Inhalt = "|" Then
Selection.Replace , Replacement:=Zähler
Zählen = Zählen + 1
End If
Zeile = Zeile + 1
Next n
Das Ganze hat genau einmal funktioniert. Seither nicht mehr. Wenn ich einen Else Befehl einbaue, Schreibt er beim Replace nur in leere Zellen, überschreibt aber keine Zellen, in denen ein Inhalt steht.
Bin ratlos, ist mein erstes Makro dieser Art.
Danke.
VG
Leif