Zellinhalt prüfen und Text ausgeben
Sascha
In meiner UF werden in einer Textbox diejenigen Blattnamen anzeigen die in einer bestimmten Spalte noch nichts eingetragen haben. Ich möchte gerne in der Textbox nachdem ALLE Spalten eingetragen sind, resp. nur wenn nach dem eintragen die Textbox leer ist im Blatt "Total" eine Spalte auslesen, und wenn in der besagten Zelle der Wert "Null" steht, einen Text anzeigen lassen. Wenn aber > 0 steht ein anderer Text.
Ist das überhaupt möglich in der gleichen Textbox?
Hier mein Code (habe ich in diesem Forum gefunden):
Sub MSWfehlt()
Dim x&
MyDay = Format(Day(Date), "00")
mytext = ""
For x = 1 To Worksheets.Count - 4 'Blendet die letzten 4 tabellen aus
With Worksheets(x)
If WorksheetFunction.CountA(.Range(.Cells(MyDay + 2, 3), .Cells(MyDay + 2, 28))) = 0 Then
mytext = mytext & " " & .Name
End If
End With
Next
End Sub