Office: suchen angrenzende zelle kopieren und den wert in ein tabellenblatt einfügeneintrage

rainer1910 · 22. Mai 2018

Hallo ich brauche eure Hilfe,

folgende Herausforderung:
Eine dynamische/ungeordnete Excel tabelle1 hat einen wert1 der immer wieder in einer Spalte vorkommt und einen angrenzenden zellenwert2 den es zu kopieren und in ein neues Tabellenblatt fortlaufend wie gefunden eingetragen werden soll.

Kurz:
In tabellenblatt1 wert1 Suchbegriff suchen und finden, benachbarten zellenwert2 kopieren, in tabellenblatt2, Spalte1 einfügen. Dann automatisch weiter wert1 suchen und aus gleicher Lage wie zellenwert2 zum wert1 den benachbarten zellenwert2 kopieren und nach tabellenblatt2 spalte1 nächste Zelle einfügenusw bis der Ende des Tabellenblattes.
a. Der zellenwert2 hat zum wert1 immer die gleiche Lage.
b. Der zellenwert2 kann auch eine leere Zelle sein, dann muss nach tabelle2 auch eine leere Zelle angelegt werden.

Zusammenfassung:
Eine dynamische/ungeordnete tabelle1
Schritt a: Einen wert1 suchen.
Schritt b: den Wert2 einer angrenzenden Zelle zu wert1 kopieren und in tabelle2 in spalte1 fortlaufend schreiben.
Das Ganze soll bis Ende tabelle1 laufen

Wie kann das als Modul1 angelegt werden? Bitte habt ihr ein Skript für mich das ich verwenden kann bin da als ECHTER NEUEANFAENGER mit VBA unterwegs.

:)

Mc Santa · 23. Mai 2018

Ich habe einen Vorschlag für dich:
Code:

Sub werte_in_andere_Tabelle_kopieren()

Dim Tabelle_Quelle As Worksheet
Dim Tabelle_Ziel As Worksheet
Dim Suchwert As String
Dim Suchspalte As Integer
Dim Verschiebung_unten As Integer
Dim Verschiebung_rechts As Integer

Dim i As Integer
Dim leere_Zelle As Range
Dim letzte_Zeile As Integer

Set Tabelle_Quelle = ThisWorkbook.Worksheets("Tabelle1")
Set Tabelle_Ziel = ThisWorkbook.Worksheets("Tabelle2")

Suchwert = "wert1"
Suchspalte = 1
Verschiebung_unten = 0
Verschiebung_rechts = 1

' letzte Zeile in Ziel finden
Set leere_Zelle = Tabelle_Ziel.Cells(Tabelle_Ziel.Rows.Count, 1).End(xlUp)
If leere_Zelle "" Then
Set leere_Zelle = leere_Zelle.Offset(1)
End If

'letzte Zeile in Quelle finden
letzte_Zeile = Tabelle_Quelle.Cells(Tabelle_Quelle.Rows.Count, Suchspalte).End(xlUp).Row

' alle Zeilen durchgehen
For i = 1 To letzte_Zeile

'Übereinstimmung suchen
If Tabelle_Quelle.Cells(i, Suchspalte).Value = Suchwert Then

'Wert kopieren
Tabelle_Quelle.Cells(i, Suchspalte).Offset(Verschiebung_unten, Verschiebung_rechts).Copy leere_Zelle

'leere_Zelle um 1 verschieben
Set leere_Zelle = leere_Zelle.Offset(1)
End If
Next i

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

rainer1910 · 24. Mai 2018

Hallo
das sieht super aus!
fragen zu:
Suchwert = "wert1"
Suchspalte = 1
Verschiebung = 1 'Zielwert ist um eine Spalte nach rechts verschoben, vom gefundenen Wert

den suchwert muss ich hier ersetzten ("wert1") in den tatsaechlichen wert?
was ist wenn der Zeilwert nicht um eine Spalte nach rechts liegt sondern eine zelle darunter, links oder darüber liegt.
welche parameter sind das dann?

Mc Santa · 24. Mai 2018

Hallo,

ich habe de Code oben leicht korrigiert und bei der Verschiebung zwei Richtungen eingefügt. Mit negativen Werten bei der Verschiebung kannst du den zu kopierenden Wert auch von oben oder links auslesen.

"wert1" musst du anpassen, damit dein richtiger Wert gefunden wird.

Danke für dein Feedback, sag Bescheid ob es so jetzt alles funktioniert, oder ob es Anpassungsbedarf gibt.

VG, Santa

rainer1910 · 24. Mai 2018

Hallo Mc Santa,
ich bin begeistert. Erstmal DANKE! Wirklich! Danke
Das Script funktioniert und als echter "VBA legasteniker" komme selbst ich damit zurecht!
eine sache funktioniert leider noch nicht, gibt es zu dem suchwert kein "zielwert" wird in tabelle2 keine leerzelle eingefügt.
würdest du das nochmal prüfen, Bitte.

es ist in sofern wichtig weil sich dadurch im gesamtergebnis zu verschiebung und falscher zuordnung der gefunden werten kommt.

Vielen DANK

rainer1910 · 24. Mai 2018

Hallo,
nein stimmt nicht meine Aussage von zuvor!
dein Script funktioniert perfect!

DANKE

Office: suchen angrenzende zelle kopieren und den wert in ein tabellenblatt einfügeneintrage

suchen angrenzende zelle kopieren und den wert in ein tabellenblatt einfügeneintrage

suchen angrenzende zelle kopieren und den wert in ein tabellenblatt einfügeneintrage

suchen angrenzende zelle kopieren und den wert in ein tabellenblatt einfügeneintrage

suchen angrenzende zelle kopieren und den wert in ein tabellenblatt einfügeneintrage - Similar Threads - angrenzende zelle kopieren

Eine Zelle blinken lassen

Daten Einlesen aus mehre Zellen in Verbindung einer Verbundene Zelle

Hochzählen Zelle Excel oder Office365?

Zelleninhalte in andere Zelle mit Komma getrennt

In einer Zelle Zahlen erkennen und trennen

Formularsteuerelement Textfeld: Selbe Formatierung wie verlinkte Zelle?

Markierung von nicht angrenzenden Zellen ist Ausführen des Befehls nicht möglich