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

Helfe beim Thema Makro nur wenn Text in Zellen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; 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... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von merkurmedium, 10. Oktober 2021.

  1. 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
     
    merkurmedium, 10. Oktober 2021
    #1
  2. Hajo_Zi
    Hajo_Zi Erfahrener User
    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
    
    Makro nur wenn Text in Zellen GrußformelMakro nur wenn Text in Zellen Homepage
     
    Hajo_Zi, 10. Oktober 2021
    #2
  3. Hallo Hajo,
    danke für den Code. Hast Du ihn getestet ?
    Bei mir ist er ohne Funktion.
     
    merkurmedium, 10. Oktober 2021
    #3
  4. Hajo_Zi
    Hajo_Zi Erfahrener User

    Makro nur wenn Text in Zellen

    Hallo Merkur,

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

     
    Hajo_Zi, 10. Oktober 2021
    #4
  5. Hallo Hajo,

    ja stimmt hatte die Meldung vergessen. Habe sie noch dazu gemacht.
    Danke und einen schönen Sonntag
     
    merkurmedium, 10. Oktober 2021
    #5
  6. Hajo_Zi
    Hajo_Zi Erfahrener User
    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
    
     
    Hajo_Zi, 10. Oktober 2021
    #6
Thema:

Makro nur wenn Text in Zellen

Die Seite wird geladen...
  1. Makro nur wenn Text in Zellen - Similar Threads - Makro Text Zellen

  2. VBA Werte aus Tabellenblätter kopieren WENN

    in Microsoft Excel Hilfe
    VBA Werte aus Tabellenblätter kopieren WENN: Hallo zusammen, Meine Ausgangssituation: Verschiedene Registerkarten mit Materiallisten, je nach System. Ganz vorne eine Übersichtsregisterkarte, in welcher die Systeme und Anzahl ausgesucht...
  3. Makro - Kombination aus Zeile löschen oder Text ersetzen

    in Microsoft Excel Hilfe
    Makro - Kombination aus Zeile löschen oder Text ersetzen: Hallo miteinander, ich würde gerne folgendes Problem per Makro (nicht mit klassischen Formeln) lösen (wichtig, das Makro muss beim Öffnen starten): - wenn in Spalte A nichts steht -> gesamte...
  4. Makro/VBA: Rahmenlinie ziehen, wenn in Zelle X = "Text"

    in Microsoft Excel Hilfe
    Makro/VBA: Rahmenlinie ziehen, wenn in Zelle X = "Text": Hallo zusammen. Wirklich ein tolles Forum hier. Vielleicht könnt ihr mir weiterhelfen: Ich will ein Makro machen, so dass unter einer gesamten Zeile (oder genauer gesagt von Zelle 1-7) eine...
  5. Text in derselben Zelle ersetzen (ohne Makro)

    in Microsoft Excel Hilfe
    Text in derselben Zelle ersetzen (ohne Makro): Guten Morgen, ich möchte in eine Zelle (z.B. A1) eine stets zweistellige Zahl (XY) eintragen und in derselben Zelle dann die Ausgabe erhalten: "Geprüft: X von Y". Ist das irgend wie möglich?...
  6. per Makro eMail versenden mit Text einfügen

    in Microsoft Excel Hilfe
    per Makro eMail versenden mit Text einfügen: Hallo Guten Morgen, habe folgendes Problem im Makro... es übernimmt den Text nicht in die Email... was ist falsch wer kann mir helfen... schon mal Danke!!!! Sub einzelnes_Blatt_senden() '** Das...
  7. Text in Zelle per Makro kürzen?

    in Microsoft Excel Hilfe
    Text in Zelle per Makro kürzen?: Hallo, ich habe folgendes Problem: Per makro hole ich mir Daten aus anderen excelmappen, es handelt sich im Artikelbezeichnungen. Die sind mir aber zu lang und möchte sie kürzen(max. 20...
  8. Text aus Makro-Textfeld in Zelle

    in Microsoft Excel Hilfe
    Text aus Makro-Textfeld in Zelle: Hi, ich habe ein kleines Problem, dass für jemanden, der sich mit VBA auskennt wahrscheinlich keine Hürde darstellen wird: Ich habe ein Eingabemodul gebaut, dass ein Textfeld hat, in dem ein...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden