Supportnet / Forum / Tabellenkalkulation
Daten aus zweiter Excel-Tabelle einfügen
Frage
Hallo zusammen,
ein wahrscheinlich ganz einfaches Problem.... (ich hoffe, die Frage wurde noch nicht allzuoft beantwortet....)
Ich hab eine Excel-Tabelle mit Artikel-Nummern (Spalte A) und den dazugehörigen Angaben (Spalte B-E). Nun kriege ich regelmässig eine 2 Tabelle, in der die Artikel-Nummern (SpalteA) stehen und wie oft sie bestellt wurden (SpalteB). Möchte nun diese Daten in der ersten Tabelle einfügen, allerdings kommen nicht alle Nummern in der 2. Tabelle vor (wenn nichts bestellt wurde), kann also nicht einfach die ganze Spalte kopieren.
Das Problem liese sich entweder über eine Formel lösen, oder auch über ein VBA-Makro (jenachdem, was einfacher ist), weil die Tabellen vor der Benutzung sowieso über ein Makro formatiert werden, könnte das also da mit einbauen.
Danke schon mal für die Hilfe :-)
Gruß,
Andreas
Antwort 1 von JoeKe
Moin Andreas,
hier mal ein Beispiel Code:
Option Explicit
Sub Bestellung()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim rngSuch As Range, rngFind As Range, loL1 As Long, loL2 As Long, zähler As Long
Sheets.Add
ActiveSheet.Name = "Daten"
Workbooks.Open Filename:= _
"C:\Dokumente und Einstellungen\user\Desktop\Bestellung.xls"
ActiveWorkbook.Sheets("Tabelle1").Cells.Copy
Windows("Artikel.xls").Activate
Sheets("Daten").Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("Bestellung.xls").Close
loL2 = Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
loL1 = 1
Do While loL1 <= Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Row
For zähler = 2 To loL2
If Sheets("Daten").Cells(loL1, 1) = Sheets("Tabelle1").Cells(zähler, 1) Then
Sheets("Tabelle1").Cells(zähler, 6) = Sheets("Daten").Cells(loL1, 2)
End If
Next
loL1 = loL1 + 1
Loop
Sheets("Daten").Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Da du leider keine Angaben zu Tabellennamen, Blattnamen, Pfaden usw. gemacht hast müssen die noch angepasst werden.
Gruß
JöKe
hier mal ein Beispiel Code:
Option Explicit
Sub Bestellung()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim rngSuch As Range, rngFind As Range, loL1 As Long, loL2 As Long, zähler As Long
Sheets.Add
ActiveSheet.Name = "Daten"
Workbooks.Open Filename:= _
"C:\Dokumente und Einstellungen\user\Desktop\Bestellung.xls"
ActiveWorkbook.Sheets("Tabelle1").Cells.Copy
Windows("Artikel.xls").Activate
Sheets("Daten").Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("Bestellung.xls").Close
loL2 = Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
loL1 = 1
Do While loL1 <= Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Row
For zähler = 2 To loL2
If Sheets("Daten").Cells(loL1, 1) = Sheets("Tabelle1").Cells(zähler, 1) Then
Sheets("Tabelle1").Cells(zähler, 6) = Sheets("Daten").Cells(loL1, 2)
End If
Next
loL1 = loL1 + 1
Loop
Sheets("Daten").Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Da du leider keine Angaben zu Tabellennamen, Blattnamen, Pfaden usw. gemacht hast müssen die noch angepasst werden.
Gruß
JöKe
Antwort 2 von CaroS
Hallo Andreas,
ein typischer Fall für einen SVERWEIS. Schreibe in die erste Tabelle in eine Spalte Deiner Wahl (außer A) in die erste Zeile die Formel
=WENN(ISTFEHLER(SVERWEIS(A1; Tabelle2!A1:B9999; 2; 0)); "nicht bestellt"; SVERWEIS(A1; Tabelle2!A1:B9999; 2; 0))
Formel anpassen, runterkopieren, fertig.
Gruß,
CaroS
ein typischer Fall für einen SVERWEIS. Schreibe in die erste Tabelle in eine Spalte Deiner Wahl (außer A) in die erste Zeile die Formel
=WENN(ISTFEHLER(SVERWEIS(A1; Tabelle2!A1:B9999; 2; 0)); "nicht bestellt"; SVERWEIS(A1; Tabelle2!A1:B9999; 2; 0))
Formel anpassen, runterkopieren, fertig.
Gruß,
CaroS
Antwort 3 von andreas_3
Besten Dank für die Tipps, ich werd mich mal damit beschäftigen und fragen, wenn was nicht funktioniert ...
Gruß, Andreas
Gruß, Andreas