Office: (Office 2016) Werte in Stammdaten suchen und zugehörige Zellen in Tabelle 2 kopieren

Hallo,

ich arbeite viel mit Excel und um mir das Leben einfacher zu machen, setze ich mich gerade ein wenig mit dem Thema VBA auseinander.

Folgendes Problem:

Ich habe eine Tabelle "Stammdaten" und möchte in einer weiteren Tabelle (Tabelle 2) in Spalte A die Kundennummer eingeben. Anhand der eingegeben Kundennummer soll in den Stammdaten gesucht werden und die Daten wie Datum, Laufzeit, Kunde, Artikel und Betrag in Tabelle 2 kopiert werden.

Kann mir jemand weiterhelfen bzw. einen Ansatz geben, wie ich dafür ein Makro aufbaue? Ich möchte nicht jede Spalte mit einem Sverweis versehen.

Vielen Dank
Neli

 

Hallo,
Ich weiß nicht ob ich deine Frage richtig verstanden hab, aber ich hab mal ein Excel-file gemacht, das das Problem löst, einmal per vba und einmal durch Eingabe einer Formel..

Lg

 

Hallo,

danke dafür! :)
Aber könntest du mir bitte den Quelltext und die Formel ins Textfeld kopieren, da ich aktuell die Datei leider nicht öffnen kann.

Vielen Dank!

 

Quelltext VBA:

Code:

Sub KundennummerSuchen()
Dim zeileMitKundennummer As Integer
Dim test As Boolean
Dim b As String

test = True
zeileMitKundennummer = 1

'Suche nach ausgewähltem Namen
While test
    If Sheets("Tabelle1").Cells(zeileMitKundennummer, 2).Text = Sheets("Tabelle2").Cells(4, 4).Text Then
            test = False
        Else
        zeileMitKundennummer = zeileMitKundennummer + 1
    End If
Wend
    
'mit der gefundenen Zeilenummer kannst du jetzt alle anderen Angaben von Tabelle1 in Tabelle2 übertragen
For a = 7 To 12
    b = Sheets("Tabelle1").Cells(zeileMitKundennummer, a - 5).Text
    Sheets("Tabelle2").Cells(4, a).Value = b
Next a

End Sub

Formel: =WENNFEHLER(INDEX(Tabelle1!C:C;VERGLEICH($G8;Tabelle1!$B:$B;0));"")

Allerdings ist es schwer die Formel zu verstehen, wenn du die Tabelle nicht siehst..

lg

 

Hi micpog90,

mit der Formel funktioniert es wunderbar. :)

Bei dem Makro bin ich leider noch nicht dahinter gestiegen, warum das nicht auch bei mir Funktion. Aber da werde ich mich die Tage noch einmal ran setzten und es weiter probieren.

Vielen Dank für deine Hilfe :)