Makro

Forumthread: Makro
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Makro

Makro

21.07.2017 11:36:28

king_basti

Hallo liebe Excel-Freunde,
Ich habe leider ein Problem und zwar ich habe folgenden Code in meinem Makro verwendet. Weiß aber leider nicht wo ich einfügen kann aus welcher Tabelle er die Daten nehmen soll. Hoffe Ihr könnt mir helfen
If Cells(B54, B93).Value = "" Then
MsgBox "FillOut"
End If
If IsEmpty(Cells(B54, B93)) Then
MsgBox "leer"
End If
Hoffe Ihr könnt mir helfen
lg king_basti

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Makro

21.07.2017 12:11:52

UweD
AW: Makro

21.07.2017 12:24:29

king_basti
AW: Makro

21.07.2017 12:25:26

Werner

AW: Makro

21.07.2017 12:11:52

UweD

Hallo
wenn B54 und B93 KEINE Zellen, sondern Variablen sind...
dann so...
If Sheets("Tabelle1").Cells(B54, B93).Value = "" Then
LG UweD

AW: Makro

21.07.2017 12:24:29

king_basti

Hallo
Ok danke für die Info hat mir wirklich weiter geholfen.
lg king_basti

AW: Makro

21.07.2017 12:25:26

Werner

Hallo,
oder meinst du so?

Public Sub ttt()
Dim strFormel As String
With Worksheets("Tabelle1") 'Blatt anpassen
strFormel = .Range("B54").Formula & .Range("B93").Formula
End With
If Left(strFormel, 1) = "=" Then
MsgBox "FillOut"
ElseIf strFormel = vbNullString Then
MsgBox "leer"
End If
End Sub

Beide Zellen komplett leer: Ausgabemeldung "leer"
Beide Zellen mit Formel: Ausgabemeldung "FillOut"
B54 leer / B93 mit Formel: Ausgabemeldung "FillOut"
B93 mit Formel / B54 leer: Ausgabemeldung "FillOut"
Gruß Werner

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!