VBA-Daten aus Zellen in anderes Tabellen

Hallo zusammen.
Nachdem ich schon ne Menge hier im Forum mitgelesen habe, muss ich jetzt doch mal aktiv um Hilfe bitten.
Vorneweg: Meine VBA-Kenntnisse basieren auf dem Kopieren von Codes aus dem Internet und dem Versuch, diese auf meine Bedürfnisse anzupassen. Erfolgsquote liegt so bei 50 % ^^.
Ich habe folgendes Problem:
Und zwar habe ich eine Liste, in denen Mitarbeiter mit diversen Daten, u.A. ihrer Qualifikation aufgeführt sind
Userbild

Nun möchte ich bestimmte Daten aus dieser Liste in eine andere Excel-Datei (nicht Worksheet) kopieren, und zwar so, dass pro Qualifikation eine eigene Zeile verwendet wird. Das Ganze soll dann in etwa so aussehen.
Userbild

Ich würde gerne einen schon bestehenden VBA-Code zur Überprüfung und Verbesserung beifügen, aber leider hab ich rein gar nichts in der Richtung.
Noch zu beachten: Nutze beruflich Excel 2016, also neuere Funktionen werden wohl nicht funktionieren.
Vielleicht kann mir hier jemand helfen. Vorab schonmal Danke!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo deftor,
ansatzweise könnte man das so programmieren:


Sub Quali()
Dim EinfZeile, Zeile, MA, Abt
EinfZeile = 2
Range("A2").Select
Do Until ActiveCell.Value = Empty
Zeile = ActiveCell.Row
MA = Cells(Zeile, "A").Value
Abt = Cells(Zeile, "D").Value
If Cells(Zeile, "G").Value = True Then
Workbooks("Datei2.xlsx").Worksheets(1).Cells(EinfZeile, "A").Value = MA
Workbooks("Datei2.xlsx").Worksheets(1).Cells(EinfZeile, "B").Value = Abt
Workbooks("Datei2.xlsx").Worksheets(1).Cells(EinfZeile, "C").Value = "Q1"
EinfZeile = EinfZeile + 1
End If
If Cells(Zeile, "H").Value = True Then
Workbooks("Datei2.xlsx").Worksheets(1).Cells(EinfZeile, "A").Value = MA
Workbooks("Datei2.xlsx").Worksheets(1).Cells(EinfZeile, "B").Value = Abt
Workbooks("Datei2.xlsx").Worksheets(1).Cells(EinfZeile, "C").Value = "Q2"
EinfZeile = EinfZeile + 1
End If
If Cells(Zeile, "I").Value = True Then
Workbooks("Datei2.xlsx").Worksheets(1).Cells(EinfZeile, "A").Value = MA
Workbooks("Datei2.xlsx").Worksheets(1).Cells(EinfZeile, "B").Value = Abt
Workbooks("Datei2.xlsx").Worksheets(1).Cells(EinfZeile, "C").Value = "Q3"
EinfZeile = EinfZeile + 1
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Ich habe es nicht getestet und "Datei2.xlsx" musst du noch ersetzen.
Viel Erfolg
PeTeR

Beliebteste Forumthreads (12 Monate)

VBA-Daten aus Zellen in anderes Tabellen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA-Daten aus Zellen in anderes Tabellen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread