Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1052to1056
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
Inhaltsverzeichnis

Durchsuchen und in Zelle daneben ersetzen

Durchsuchen und in Zelle daneben ersetzen
26.02.2009 12:25:07
Holger
Hallo,
irgendwie komme ich nicht weiter. Ich möchte mit einem Makro die Spalte "A1:A5000" nach der
Zeichenfolge "SV" durchsuchen und überall wo "SV" gefunden wird in der Zelle rechts daneben
(also in der gleiche Zeile in Spalte "B") das Datum "01.01.2008" eintragen.
Ein Ansatz wäre das folgende Beispiel, nur dass mir bei den Fragezeichen einfach keine Lösung einfällt:

Sub Datum_aendern
With Worksheets("Import FiBu").Range("a1:a5000")
Set c = .Find("SV", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c. ?
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address  firstAddress
End If
End With
End Sub


Kann mir jemand helfen?
Gruß Holger

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Durchsuchen und in Zelle daneben ersetzen
26.02.2009 12:27:20
Harald
Hallo Holger,
probiers mal so:
Cells(c.row, c.column+1) = "01.01.2008"
Gruß Harald
AW: Durchsuchen und in Zelle daneben ersetzen
26.02.2009 12:33:15
Holger
Genau das war es.
Danke!
Gruß Holger
c.Offset(0, 1)= ... owT
26.02.2009 12:33:02
D.Saster
Anzeige

348 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige