Zahl in Zahlen/Text string suchen

[Gast 123]

Hallo

von Formeln verstehe ich nix, aber mit VBA kann man diese Aufgabe leicht lösen.
Leider eine alte Excel 2003 Datei, aber das Makro läuft auch in modernen Versionen.
Einfach Button drücken, Fertig.  


mfg Gast 123

[Heinz007]

Hallo

von Formeln verstehe ich nix, aber mit VBA kann man diese Aufgabe leicht lösen.
Leider eine alte Excel 2003 Datei, aber das Makro läuft auch in modernen Versionen.
Einfach Button drücken, Fertig.  


mfg Gast 123

Vielen Dank für deine Antwort. Deine Lösung funktioniert super. 
Jetzt habe ich zwei super Lösugen die funktionieren. 

Vielen Dank nochmal an alle die mir geholfen haben!

[Heinz007]

Hallo

von Formeln verstehe ich nix, aber mit VBA kann man diese Aufgabe leicht lösen.
Leider eine alte Excel 2003 Datei, aber das Makro läuft auch in modernen Versionen.
Einfach Button drücken, Fertig.  


mfg Gast 123

Ich habe noch ne frage, wie ändere ich den Bereich der im Tabellenblatt "Daten" durchsucht wird auf die Spalte J ab? 
In K und L usw. stehen auch Daten. Kann nach J eine neue Spalte eingefügt werden in der das Ergebnis reingeschrieben wird?

[Gast 123]

Hallo

freut mich das dir meine Arbeit gut gefällt, das ehrt mich sehr.

Für die Suche in Daten ist dieser Befehl verantwortlich - Columns(1) ist die Spalte A  (1. Spalte)

Set rFind = Dat.Columns(1).Find(What:=AC, After:=[a1], LookIn:=xlFormulas, LookAt:= _  usw.

Du kannst die 1 durch Index 10 ersetzen, oder es so schreiben:  Dat.Columns("J").Find ...
Wenn du mehrere Spalten durchsuchen willst musst du es so schreiben:  Dat.Columns("J:L").Find ...

Wenn du das Ergebnis in eine Spalte hinter J eintragen willst kannst du es so machen:
Ersetze diese Codezeile - rFind.Cells(1, 2) = AC.Cells(1, 2) - bitte durch:
Dat.Cells(rFind.Row,"xx") = AC.Cells(1, 2)    für "xx" kannst du jede beliebige Spalte angeben!

Ich hoffe das hilft dir weiter den Code zu verstehen und ihn selbst anzupassen.

mfg Gast 123

[Heinz007]

Hallo

freut mich das dir meine Arbeit gut gefällt, das ehrt mich sehr.

Für die Suche in Daten ist dieser Befehl verantwortlich - Columns(1) ist die Spalte A  (1. Spalte)

Set rFind = Dat.Columns(1).Find(What:=AC, After:=[a1], LookIn:=xlFormulas, LookAt:= _  usw.

Du kannst die 1 durch Index 10 ersetzen, oder es so schreiben:  Dat.Columns("J").Find ...
Wenn du mehrere Spalten durchsuchen willst musst du es so schreiben:  Dat.Columns("J:L").Find ...

Wenn du das Ergebnis in eine Spalte hinter J eintragen willst kannst du es so machen:
Ersetze diese Codezeile - rFind.Cells(1, 2) = AC.Cells(1, 2) - bitte durch:
Dat.Cells(rFind.Row,"xx") = AC.Cells(1, 2)    für "xx" kannst du jede beliebige Spalte angeben!

Ich hoffe das hilft dir weiter den Code zu verstehen und ihn selbst anzupassen.

mfg Gast 123

Vielen Dank nochmal für deine ausführliche Antwort und bitte entschuldige meine späte Antwort. 
Ich hab noch noch einiges zu lernen was VBA angeht und kam deine Antwort sehr gut dazu verwenden. :)