Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1560to1564
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Anzahel der Zellen / Zahlen

Anzahel der Zellen / Zahlen
30.05.2017 17:29:10
Sergej
Hallo Leute,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anzahel der Zellen / Zahlen
30.05.2017 22:10:31
Uduuh
Hallo,
Anzahl_Status geht erheblich einfacher:

Sub Anzahl_Status()
Msgbox worksheetfunction.countif(columns(1),"Status")
end sub

Zellen mit Zahlen:

Sub Anzahl_Zahlen()
Msgbox worksheetfunction.count(columns(1))
End Sub
Gruß aus’m Pott
Udo

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige