finden und ersetzen



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: finden und ersetzen
von: Joachim S
Geschrieben am: 03.07.2002 - 08:53:51

Morgen Forum
Ich habe folgendes Problem!
In der Spalte A steht in unregelmäßigen Zeilenabständen das Wort Gruppe. Was ich nun bräuchte wäre ein Makro, daß die Spalte A von oben nach unten durchsucht und wenn das Wort Gruppe kommt es zuersetzen durch Gruppe 1 das nächste Wort Gruppe durch Gruppe 2 usw. bis zum Ende.

Ich freue mich auf eure Antworten
und bedanke mich im vorraus für eure Hilfe
Schöne Grüße vom Bodensee

Josi


nach oben   nach unten

Re: finden und ersetzen
von: Coach
Geschrieben am: 03.07.2002 - 09:14:56

Hallo Joachim,

Sub Num()
Dim n, i As Long
n = 0
With ActiveSheet.UsedRange
For i = 1 To .Rows.Count
If (UCase(.Cells(i, 1)) = "GRUPPE") Then
n = n + 1
.Cells(i, 1) = .Cells(i, 1) & Format(n, " 0")
End If
Next
End With
End Sub

Gruß Coach


nach oben   nach unten

Vielen Dank :-)
von: Joachim S
Geschrieben am: 03.07.2002 - 09:29:49

ot

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "finden und ersetzen"