Makro hat nur einmal funtkioniert

Bild

Betrifft: Makro hat nur einmal funtkioniert
von: LP
Geschrieben am: 18.06.2015 10:46:30

Hallo zusammen,
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

Bild

Betrifft: AW: Makro hat nur einmal funtkioniert
von: Pit
Geschrieben am: 18.06.2015 11:17:53
Moin, versuche es mal so. Gruß Pit

Sub forum_1Antwort()
Dim Zaehlen As Integer
 Dim Inhalt As String
 Zaehlen = 1
 For n = 1 To 70
    If Range("g" & n) = 1 Then
        Range("g" & n) = Zaehlen
        Zaehlen = Zaehlen + 1
    End If
    Zeile = Zeile + 1
 Next n
End Sub


Bild

Betrifft: AW: Makro hat nur einmal funtkioniert
von: LP
Geschrieben am: 18.06.2015 12:32:34
Super Pit,
vielen Dank.
Jetzt klappt es auch beim zweiten Mal und sieht deutlich übersichtlicher aus ;-)
Perfekt.
Gruß
Leif

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Makro hat nur einmal funtkioniert"