ich möchte in einem MsgBox folgende Werte untereinder ausgeben:
- Anzahl der Zellen in Spalte A die Zahlenwerte beinhalten
- Anzahl der Zellen in Spalte A die den Name "Status" haben
- Anzahl der XLS-Dateien im Verzeichnis "C:\Daten\"
Wie mache ich das bitte per VBA?
Sub Anzahl_Status()
Dim rng As Range, rngC As Range, IntC As Integer
Letzte_In_A = Range("A65536").End(xlUp).Row
Set rng = Range("A" & 1, "A" & Range("A65536").End(xlUp).Row)
For Each rngC In rng
If rngC = "Status" Then
IntC = IntC + 1
End If
Next
MsgBox "Anzahl der Dateien in dieser Datei: " & IntC
End Sub
Sub Anzahl_XLS()
Dim strPath As String
Dim intI As Integer
Dim fso As Object, File As Object
strPath = "C:\Daten\"
Set fso = CreateObject("Scripting.FileSystemObject")
For Each File In fso.GetFolder(strPath).Files
If Right(File.Name, 4) = ".xls" Then
intI = intI + 1
End If
Next File
MsgBox "Anzahl der Dateien im Verzeichnis: " & intI
Set fso = Nothing
End Sub
So habe ich zur Zeit mit zwei seperaten Makros erledigt.Das Makro, um die Zahlenwerte der Spalte A zu zählen fehlt mir noch.
Gruß,
Sergej