ich habe mal wieder eine Frage.
Im Moment bin ich dabei eine Planungsdatei zu erstellen. Diese besteht aus einem Übersichtsblatt und mehreren immer gleich aufgebauten Tabellenblättern, in der gleichen Mappe. Meine Tabellenblätter sind fortlaufend beschriftet.
Was soll das Makro machen: Zum einen soll es einige Zeilen aus jedem Blatt kopieren, zum anderen soll es, zwei Daten miteinander vergleichen. Stimmen diese überein soll ein nebenstehender Wert in eine bestimmt Zeile kopiert werden. Daraufhin soll das nächste Datum überprüft werden usw. bis alle Daten im Übersichtsblatt überprüft wurden und optimaler Weise einen Wert zugeordnet bekommen haben. Dann wird das nächste Tabellenblatt durchgearbeitet und genauso vorgegangen.
Sub PlanungAktualisieren()
Dim t As Long 'steht für jede nächste Zeile im Übersichtsblatt
Dim I As Long 'steht für die verschiedenen Tabellenblätter
Dim z As Long 'steht für die verschiedenen Daten die abgeglichen werden sollen in den _
Tabellenblättern
Dim q As Long 'steht für die verschiedenen Daten die abgeglichen werden sollen im Ü _
bersichtsblatt
lngSheets = ThisWorkbook.Sheets.Count
For I = 2 To Worksheets.Count
For t = 1 To 500
For q = 3 To 20
'''''''''''''Kopieren der Zellen''''''''''''''''''''''''''''''''''''''''''''''
ThisWorkbook.Sheets("Übersicht").Cells(t + 10, 1) = ThisWorkbook.Sheets(I).Name
ThisWorkbook.Sheets("Übersicht").Cells(t + 10, 2) = ThisWorkbook.Sheets(I).Cells(6, 4) ' _
Name
ThisWorkbook.Sheets("Übersicht").Cells(t + 10, 3) = ThisWorkbook.Sheets(I).Cells(14, 3) ' _
Stunden
''''''''''''''''Überprüfen von Datum + Einfügen'''''''''''''''''''''''''''''''
Do
If ThisWorkbook.Sheets("Übersicht").Cells(8, q + 1) = ThisWorkbook.Sheets(I).Cells( _
z + 1, 2).Value Then
ThisWorkbook.Sheets(I).Cells(z + 1, 4).Copy Destination:=Cells(t + 10, q + 1)
Else: z = z + 1
End If
Loop While 0
Next q
Next t
Next I
End Sub
Das Kopieren funktioniert soweit, Probleme hab ich beim Abgleich der Daten. Auch bezweifle ich, dass meine Variablen so ihre Funktion erfüllen wie ich sie dargestellt habe (nur next).Kann mir jemand hierbei helfen?
Vielen Dank im Voraus.
Viele Grüße
Anna