MSG Box VBA

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: MSG Box VBA
von: Siggi
Geschrieben am: 06.05.2015 18:11:22

Hallo zusammen,
ich will gerne eine Meldung haben, wenn bereits ein Wert oder ein Wort in A3 steht.
Ich steuere mein Makro über eine Schaltfläche an. Wenn man nochmal drauf klickt, ( und in A3 befindet sich ein Wort oder Zahl ) soll dann eine Meldung kommen " Werte wurden bereits gezogen".
Wäre so was möglich ?
Mein Code:

Sub werteziehen()
'
' Makro1 Makro
'
'
    ChDir "C:\Users\Siggi\Desktop"
    Workbooks.OpenText Filename:="C:\Users\Siggi\Desktop\12354.txt", Origin _
        :=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True
    Rows("1:1").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("C6").Select
End Sub

Besten Dank und schöne Grüße aus dem Allgäu
Siggi

Bild

Betrifft: AW: MSG Box VBA
von: Beverly
Geschrieben am: 06.05.2015 18:27:45
Hi Siggi,
meinst du vielleicht so:

Sub werteziehen()
'
' Makro1 Makro
'
'
    If Range("A3") = "" Then
        ChDir "C:\Users\Siggi\Desktop"
        Workbooks.OpenText Filename:="C:\Users\Siggi\Desktop\12354.txt", Origin _
            :=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
            xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
            Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
            TrailingMinusNumbers:=True
        Rows("1:1").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Else
        MsgBox "Werte wurden bereits gezogen"
    End If
End Sub



Bild

Betrifft: Super Danke :-)
von: Siggi
Geschrieben am: 06.05.2015 18:32:44
...

 Bild

Beiträge aus den Excel-Beispielen zum Thema "VBA-Code in Workbook_Open Methode per VBA einfügen"