Office: (Office 2013) Makro nur wenn Text in Zellen

Hallo Zusammen,

mit dem unten stehenden Code wird eine Textdatei mit dem Inhalt aus den verbundenen Zellen C30:L32 generiert.
Nun kommt es vor das jemand in die Zellen klickt und es wird eine leer Datei erstellt.
Wie kann man den Code ändern ,dass eine Meldung kommt das erst Text eingegeben werden muss und das Makro auch erst nach einer eingabe von Text startet ?

Code:

Public Sub TXT_Export()
    Dim intCount2 As Integer
    Dim varArr() As Variant
    Dim lngCount1 As Long
    Dim strTMP As String
    varArr = Range("C30:L32")
    Open "PFADFÜRDIEDATEI" For Output As #1
    For lngCount1 = 1 To UBound(varArr)
        For intCount2 = 1 To UBound(varArr, 2)
            strTMP = strTMP & varArr(lngCount1, intCount2)
            If strTMP <> "" Then
                Print #1, strTMP
            End If
            strTMP = ""
        Next intCount2
    Next lngCount1
    Close #1
End Sub

 

Halo Merkur,

Code:

Option Explicit
Public Sub TXT_Export()
    Dim intCount2 As Integer
    Dim varArr() As Variant
    Dim lngCount1 As Long
    Dim strTMP As String
    If Application.WorksheetFunction.CountIf(Range("C30:L32"), "=""") > 0 Then
        varArr = Range("C30:L32")
        Open "PFADFÜRDIEDATEI" For Output As #1
        For lngCount1 = 1 To UBound(varArr)
            For intCount2 = 1 To UBound(varArr, 2)
                strTMP = strTMP & varArr(lngCount1, intCount2)
                If strTMP <> "" Then
                    Print #1, strTMP
                End If
                strTMP = ""
            Next intCount2
        Next lngCount1
        Close #1
    End If
End Sub

 

Hallo Hajo,
danke für den Code. Hast Du ihn getestet ?
Bei mir ist er ohne Funktion.

 

Hallo Merkur,

ja bei mir wurde nichts gemacht da Bereich Leer, was ja Dein Wunsch war.

Gruß Hajo

 

Hallo Hajo,

ja stimmt hatte die Meldung vergessen. Habe sie noch dazu gemacht.
Danke und einen schönen Sonntag

 

Hallo Merkur,

ich habe erstmalö Berverly gefragt.

Code:

Option Explicit
Public Sub TXT_Export()
    Dim intCount2 As Integer
    Dim varArr() As Variant
    Dim lngCount1 As Long
    Dim strTMP As String
    If Application.WorksheetFunction.CountA(Range("C30:L32")) > 0 Then
        varArr = Range("C30:L32")
        Open "PFADFÜRDIEDATEI" For Output As #1
        For lngCount1 = 1 To UBound(varArr)
            For intCount2 = 1 To UBound(varArr, 2)
                strTMP = strTMP & varArr(lngCount1, intCount2)
                If strTMP <> "" Then
                    Print #1, strTMP
                End If
                strTMP = ""
            Next intCount2
        Next lngCount1
        Close #1
    End If
End Sub

Gruß Hajo