Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1424to1428
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

MSG Box VBA

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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: MSG Box VBA
06.05.2015 18:27:45
Beverly
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


Anzeige
Super Danke :-)
06.05.2015 18:32:44
Siggi
...

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige