Text ignorieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Const strText = "Zeit frei halten!" Dim Bereich1 As Range, Bereich2 As Range, strText As String, X As Long strText = "Zeit frei halten!" Set Bereich1 = Worksheets(Framenumber).Range("B4:E7") Set Bereich2 = Worksheets(Framenumber).Range("B9:E28") With Application.WorksheetFunction X = .CountA(Union(Bereich1, Bereich2)) - .CountIf(Bereich1, strText) - .CountIf(Bereich2, strText) End With If X = 0 Then MsgBox "Es sind keine Daten vorhanden!" If X > 0 Then MsgBox "Es sind Daten vorhanden!" Set Bereich1 = Nothing: Set Bereich2 = Nothing

Hallo Daniel Eberhard,
... Du bist mit aktuell 284 Beiträgen offensichtlich schon eine geraume Weile Nutzer des Forums. Dein Username: Daniel wurde und wird aber schon seit vielen Jahren von einem der aktivsten Helfer hier im Forum in gleicher Schreibweise genutzt. Wenn andere im Forum nun den User-Namen Daniel lesen, führt das deswegen zumindest kurzzeitig zu Verwechselungen.
Deshalb die Bitte, Du könntest das einfach ändern, in dem Du in einem nächsten Beitrag den (User-)Namen (oberhalb der Betreff Eingabezeile in jedem Beitrag angezeigt und änderbar)) einmalig diesen auf z.B. : Daniel E" abändern würdest. Dieser Username ist mE bisher noch nicht genutzt und unterscheidet sich somit sofort erkennbar von nur Daniel.
Die so vorgenommene Änderung Deines Usernamen hat keinen Einfluss auf die Listung über die Funktion [Deine Beiträge] und wird auch für Deine Folgebeiträge so automatisch beibehalten.
Gruß Werner
.. , - ...

Const strText = "Zeit frei halten!" Dim Bereich1 As Range, Bereich2 As Range, X As Long Set Bereich1 = Worksheets(Framenumber).Range("B4:E7") Set Bereich2 = Worksheets(Framenumber).Range("B9:E28") With Application.WorksheetFunction X = .CountA(Union(Bereich1, Bereich2)) - .CountIf(Bereich1, strText) - .CountIf(Bereich2, strText) End With If X = 0 Then MsgBox "Es sind keine Daten vorhanden!" If X > 0 Then MsgBox "Es sind Daten vorhanden!" Set Bereich1 = Nothing: Set Bereich2 = Nothing

Hallo Gerd
Habe noch etwas gearbeitet. Nun sieht der Code so aus:


Sub CopyRange()
Dim Bereich1 As Range, Bereich2 As Range, X As Long
If ActiveSheet.CodeName = "Tabelle10" Then
If Application.WorksheetFunction.CountA(Worksheets("Etiketten").Range("A3:E26")) = 0 Then
MsgBox "Es sind keine Daten in der Tabelle Etiketten vorhanden!", vbInformation, "Hinweis"
Else
If Worksheets("Depot").Range("M4") = "" Then
Path_check "Etiketten01.docm", "docm", "4"
Else
Application.ScreenUpdating = False                                                       ' Bildschirmausgabe abschalten
Call Worksheets("Etiketten").Range("A3:D26").Copy
Tabelle9.Range("A2").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True                                                        ' Bildschirmausgabe einschalten
End If
End If
Else
Const strText = "Zeit frei halten!"
Set Bereich1 = ActiveSheet.Range("B4:E7")
Set Bereich1 = ActiveSheet.Range("B9:E28")
With Application.WorksheetFunction
X = .CountA(Union(Bereich1, Bereich2)) - .CountIf(Bereich1, strText) - .CountIf(Bereich2, strText)
End With
If X = 0 Then
MsgBox "Es sind keine Daten in der Tabelle " & ActiveSheet.Name & " vorhanden!", vbInformation, "Hinweis"
Else
MsgBox ActiveSheet.Name
End If
End If
End Sub

Jedoch krieg ich jetzt eine Fehlermeldung bei folgender Zeile:


X = .CountA(Union(Bereich1, Bereich2)) - .CountIf(Bereich1, strText) - .CountIf(Bereich2, strText)

Was habe ich falsch gemacht?
Gruss Daniel Eberhard

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Text ignorieren

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread