Zeile finden und Wert Kopieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Zeile finden und Wert Kopieren
von: homit
Geschrieben am: 11.08.2015 13:20:47

Hallo Ich habe folgendes Problem:
- Suche den Wert Zelle A1 auf Tabellenblatt A in der Spalte B Tabellenblatt B
- Kopiere den Wert der Zelle A 15 Tabellenblatt A in die Spalte G auf Tabellenblatt B
in die Gleiche Zeile wie dem gefunden Wert entspricht.
Danke
Homit

Bild

Betrifft: AW: Zeile finden und Wert Kopieren
von: JoWE
Geschrieben am: 11.08.2015 15:04:48
Hallo,
vllt. so:

Private Sub finde_sb()
    Dim ze As Long
    On Error GoTo fb
    ze = Sheets("Tabelle2").Range("B:B").Find(what:=Me.Range("A1")).Row
    Sheets("Tabelle2").Cells(ze, 7) = Sheets("Tabelle1").Range("A15")
    Exit Sub
fb:
    MsgBox "Kein Treffer!", vbOKOnly, "Fehler"
End Sub
Gruß
Jochen

Bild

Betrifft: AW: Zeile finden und Wert Kopieren
von: homit
Geschrieben am: 11.08.2015 18:05:48
Hallo ,
Vielen Dank, irgendwie scheint er aber den Suchwert im Zielrange nicht zu
finden, wirft laufend eine Fehlermeldung raus
Homit

Bild

Betrifft: AW: Zeile finden und Wert Kopieren
von: AlexG
Geschrieben am: 11.08.2015 18:20:41
Hallo Homit,
wo kommt denn der Fehler? Bzw. welcher?
Sind deine Tabellen auch mit Tabelle1 und Tabelle2 benannt?
Hast du die Namen angepasst?
Gruß
Alex

Bild

Betrifft: Nachtrag
von: AlexG
Geschrieben am: 11.08.2015 18:57:46
Hallo Humit,
wenn das Makro in einem allgemeinem Modul steht funktioniert die Zuweisung des Tabbellenblattes mit Me nicht. Anstelle von
ze = Sheets("Tabelle2").Range("B:B").Find(what:=Me.Range("A1")).Row
musst du dann
ze = Sheets("Tabelle2").Range("B:B").Find(what:=Sheets("Tabelle1").Range("A1")).Row
schreiben. Die Zuweisung über Me geht nur wenn du das Makro in das Modul der Tabelle schreibst.
Gruß
Alex

Bild

Betrifft: AW: Zeile finden und Wert Kopieren
von: homit
Geschrieben am: 11.08.2015 20:29:28
Vielen Dank,
Problem Gelöst....
Das Theme mit Me! hatte ich auch schon überrissen,
allerdings hatte ich einen Zeilenumbruch verpasst
danke nochmals an beide
Homit

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zeile finden und Wert Kopieren"