Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
904to908
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
904to908
904to908
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro-nach Kriterium suchen + ersetzen

Makro-nach Kriterium suchen + ersetzen
12.09.2007 14:19:00
Katharina
Hallo!
Bin scho kurz vorm Verzweifeln...
Also...
Ich möchte in meiner Tabelle nach einem bestimmten Kriterium suchen ( K ) und es durch den Wert aus der Zelle ( von rechts aus ) ersetzen!Am besten wäre ein Makro!
Kann mir irgendjemand helfen?
Liebe Grüße
Katha

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

Betreff
Datum
Anwender
Anzeige
AW: Makro-nach Kriterium suchen + ersetzen
12.09.2007 14:54:00
Katharina
sorry,
ich meine den Wert aus der dritten Zelle (als Ersatz)

AW: Makro-nach Kriterium suchen + ersetzen
12.09.2007 14:54:00
Jan3
Hi,
Da Deine Angaben sehr ungenau sind, anbei ein allgemeines Suchmakro mit Find:

Sub suchen()
'Dieses Beispiel findet alle Zellen im Bereich "A2:D500"
'des aktiven Tabellenblattes, die den suchwert aus der Zelle A1 enthalten.
'Anschließend werden diese Zellen grau formatiert.
suchwert = ActiveSheet.Range("A1")
With ActiveSheet.Range("a2:d500")
Set c = .Find(suchwert, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Interior.Pattern = xlPatternGray50
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address  firstAddress
End If
End With
End Sub


Jan

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige