Msg- Box und Zähler
André
Ich arbeite schon seit einiger Zeit mit diesem Makro. Ich kann es auch sehr gut an unterschiedliche Tabellen und Größen anpassen. Ihr habt mir damals sehr geholfen.
Ich möchte aber dieses Makro noch etwas vereinert haben. Jetzt läuft es so, dass wenn sich im Verzeichnis eiene Exceltabelle ohne Blatt "D" befindet, eine Fehlermeldung ausgegeben wird.
Ich möchte, das nachdem das Makro alle Daten in die Mappe übertragen hat eine Msg- Box erscheint, in der steht:" xxx Dateien eingelesen, x Dateien übersprungen.
Ich weiss, das geht mit For Next und einer Variable und so aber ich komm nicht ans Ziel.
Bitte helft mir!
Ich bedanke mich für Eure Hilfe und wünsche ein schönes Wochenende!
Private Sub CommandButton1_Click()
Dim strWB As String
Dim lngRow As Long
lngRow = 3
strWB = Dir(ThisWorkbook.Path & "\*.xls*", vbNormal)
With ThisWorkbook.Sheets("Tabelle2")
.Range("B3:R" & .Rows.Count) = ""
Do While strWB ""
If strWB ThisWorkbook.Name Then
With .Range(.Cells(lngRow, 2), .Cells(lngRow + 24, 110))
.Formula = "='" & ThisWorkbook.Path & "\[" & strWB & "]D'!B4"
.Value = .Value
End With
lngRow = lngRow + 25
End If
strWB = Dir
Loop
End With
End Sub