|
Hallo liebe Community,
vorab ich bin in den Themen VBA und allgemein Programmieren eher Neu und deshalb bin ich auch dringend auf Hilfe angewiesen.
Im folgenden ein kleiner Überblick, damit jeder weiß was der Code, der mir Probleme bereitet überhaupt machen soll:
Ich habe zwei Excel Mappen, in Mappe 1 stehen in Spalte A unterschiedliche Nummern, in Spalte B ein dazugehöriger Monat. Die Nummern die in Mappe 1 Spalte A stehen findet man auch in Mappe 2 auf verschiedenen Tabellen verteilt wieder.
Meine Aufgabe ist es die Nummern die in Mappe 1 stehen in Mappe 2 ausfindig zu machen und das dazugehörige Datum zwei Zeilen neben der Nummer einzufügen.
Dazu habe ich folgenden Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 | Sub Monat_einfuegen()
Dim ZielWert As String
Dim ZielZelle As Range
Set ZielZelle = ActiveCell
Do
ZielZelle.Copy
Workbooks("Mappe2.xlsx").Activate
ZielWert = ZielZelle.Value
Cells.Find(What:=ZielWert).Activate
Workbooks("Mappe1.xlsx").Activate
ActiveCell.Offset(0, 1).Copy
Workbooks("Mappe2.xlsx").Activate
ActiveCell.Offset(0, 2).PasteSpecial
Workbooks("Mappe1.xlsx").Activate
ActiveCell.Offset(1, -1).Activate
If ActiveCell.Value = "STOP" Then
Exit Do
End If
Loop
End Sub
|
Der Code ist so aufgebaut, dass bei der ersten Nummer, die in Mappe 1 anvisiert ist, begonnen wird und solange weitermacht bis eine Zelle STOP enthält.
Leider wird beim ausführen des Codes folgender Fehlercode angezeigt:
Falls Ihr irgendwelche Fragen habt, stellt Sie gerne!
Danke im Voraus und VG
|