Hilfe bei Makro !

Moin moin,
ich benötige Hilfe beim erstellen eines Makros:
Ich möchte aus zwei Tabellen Daten in einer Tabelle wiedergeben. Es sind ca. 1000 Daten in beiden Tabellen eingetragen. Deshalb dachte ich es wäre sinnvoll ein Makro zu schreiben ... allerdings fehlen mir die nötigen Kenntnisse.
Hier mein Projekt:
In einer Haupttabelle werden Daten, sortiert nach Name, aus zwei Tabellen zusammengefügt.
Die zwei Tabellen:
1.Tabelle mit Namen Leistung: mit der Spalte Name, Ort und Leistung.
2.Tabelle mit Namen Arbeit: mit den spalten Name, Ort und Kwh
Ziel ist es nun in der Haupttabelle die Spalten
Name, Ort, Leistung und kWh
aus den beiden Tabellen zusammenzufügen. Das ganze soll Excel für mich automatisch erledigen. Sobald ich neue Einträge in beiden Tabellen eingebe, sollen diese in der Haupttabelle übernommen werden.
Geht so etwas mit Hilfe eines Makros ?
Mir fehlen die nötigen Kenntnisse in VBA und Excel ...
Wie erstelle ich solch ein Makro ?
Klar ist mir, dass es sich um eine Bedingungsfunktion handelt.
Der Name soll die Bedingung sein, nach der die Daten in der Haupttabelle sortiert werden. (Beispiel hier: Mustermann, Musterfrau)
Wäre sehr nett wenn mir irgendjemand dabei helfen könnte.
MfG
mykey

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Zusammenfassen() With Sheets("Tabelle1") For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row Name = .Cells(i, 1) Set n = Sheets("Tabelle2").Columns(1).Find(What:=Name, LookIn:=xlValues, LookAt:=xlWhole) If Not n Is Nothing And .Cells(i, 1) = n(1, 2) Then lz = Sheets("Haupttabelle").Cells(Rows.Count, 1).End(xlUp).Row Sheets("Haupttabelle").Cells(lz + 1, 1) = .Cells(i, 1) Sheets("Haupttabelle").Cells(lz + 1, 2) = .Cells(i, 2) Sheets("Haupttabelle").Cells(lz + 1, 3) = .Cells(i, 3) Sheets("Haupttabelle").Cells(lz + 1, 4) = n(1, 3) End If Next i End With End Sub

Sub Zusammenfassen() Dim n As Variant Dim i As Long With Sheets("Leistung") For i = 2 To .Cells(Rows.Count, 6).End(xlUp).Row Name = .Cells(i, 6) Set n = Sheets("Kwh").Columns(9).Find(What:=Name, LookIn:=xlValues, LookAt:=xlWhole) If Not n Is Nothing And .Cells(i, 9) = n(1, 8) Then lz = Sheets("Haupttabelle").Cells(Rows.Count, 1).End(xlUp).Row Sheets("Haupttabelle").Cells(lz + 1, 1) = .Cells(i, 6) Sheets("Haupttabelle").Cells(lz + 1, 2) = .Cells(i, 9) Sheets("Haupttabelle").Cells(lz + 1, 4) = .Cells(i, 4) Sheets("Haupttabelle").Cells(lz + 1, 3) = n(1, 28) End If Next i End With End Sub

Hallo mykey,
zuerst werden die Daten, die in beiden Tabellen kombiniert, anschliessend die Daten, die nur in Tabelle("Leistung") vorhanden sind und am Schluss die nur in Tabelle("Kwh") vorhanden sind.
Gruss Beni


Sub Zusammenfassen()
Dim n As Variant
Dim i As Long
With Sheets("Leistung")
For i = 2 To .Cells(Rows.Count, 6).End(xlUp).Row
Name = .Cells(i, 6)
Set n = Sheets("Kwh").Columns(9).Find(What:=Name, LookIn:=xlValues, LookAt:=xlWhole)
lz = Sheets("Haupttabelle").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("Haupttabelle").Cells(lz + 1, 1) = .Cells(i, 6)
Sheets("Haupttabelle").Cells(lz + 1, 2) = .Cells(i, 9)
Sheets("Haupttabelle").Cells(lz + 1, 4) = .Cells(i, 4)
If Not n Is Nothing Then
If .Cells(i, 9) = n(1, 8) Then Sheets("Haupttabelle").Cells(lz + 1, 3) = n(1, 28)
End If
Next i
End With
With Sheets("Kwh")
For i = 2 To .Cells(Rows.Count, 9).End(xlUp).Row
Name = .Cells(i, 9)
Set n = Sheets("Leistung").Columns(6).Find(What:=Name, LookIn:=xlValues, LookAt:=xlWhole)
If n Is Nothing Then
lz = Sheets("Haupttabelle").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("Haupttabelle").Cells(lz + 1, 1) = .Cells(i, 9)
Sheets("Haupttabelle").Cells(lz + 1, 2) = .Cells(i, 16)
Sheets("Haupttabelle").Cells(lz + 1, 3) = .Cells(i, 36)
End If
Next i
End With
End Sub

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread