Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
132to136
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
132to136
132to136
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

finden und ersetzen

finden und ersetzen
03.07.2002 08:53:51
Joachim S
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: finden und ersetzen
03.07.2002 09:14:56
Coach
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

Vielen Dank :-)
03.07.2002 09:29:49
Joachim S
ot
Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige