MSG Box VBA
06.05.2015 18:11:22
Siggi
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