Datum

Titel

24.04.2024 00:20:14

Bestimmte Spalten als xls exportieren per Makro

23.04.2024 22:08:10

Auflisten in Spalte VBA

23.04.2024 21:33:46

Nur farbige/nicht farbige Zellen markieren

23.04.2024 21:29:56

Bestimmte Zellen auf andere Arbeitsblätter kopieren

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1440to1444

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Zeile finden und Wert Kopieren

Forumthread: Zeile finden und Wert Kopieren
5 Beiträge zu diesem Forumthread
Anzeige
306 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

11.08.2015 13:20:47

homit

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

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeile finden und Wert Kopieren

11.08.2015 15:04:48

JoWE
AW: Zeile finden und Wert Kopieren

11.08.2015 18:05:48

homit
AW: Zeile finden und Wert Kopieren

11.08.2015 18:20:41

AlexG
Nachtrag

11.08.2015 18:57:46

AlexG
AW: Zeile finden und Wert Kopieren

11.08.2015 20:29:28

homit

AW: Zeile finden und Wert Kopieren

11.08.2015 15:04:48

JoWE

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

AW: Zeile finden und Wert Kopieren

11.08.2015 18:05:48

homit

Hallo ,
Vielen Dank, irgendwie scheint er aber den Suchwert im Zielrange nicht zu
finden, wirft laufend eine Fehlermeldung raus
Homit

AW: Zeile finden und Wert Kopieren

11.08.2015 18:20:41

AlexG

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

Nachtrag

11.08.2015 18:57:46

AlexG

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

AW: Zeile finden und Wert Kopieren

11.08.2015 20:29:28

homit

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