Dim Anzahl As Integer, Name As String, i As Integer, a As Integer,
Dim k as ??
Dim z as range
set k = InputBox("Datum eingeben")
set z = Cells.Find( what:= k )
set q = z.entirecolumn..
a = 5
Anzahl = Application.Workbooks.Count
For i = 1 To Windows.Count
Name = Application.Workbooks(i).Name
If Workbooks(i).Name <> ThisWorkbook.Name Then
ThisWorkbook.Worksheets("Master").Cells(a, 1).Value = Name
ThisWorkbook.Worksheets("Master").Cells(a, k).Value = Workbooks(i).Worksheets("Time Tracking").Cells(Rows.Count, k).End(xlUp)
a = a + 1
End If
Next
End Sub
Das schwarz markierte habe ich in x varianten durchprobiert, hast du einen vorschlag (ich weiß, ich arbeite gerne mit kurzen variablen)
Der Code ist noch nicht
|