Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Abfrage in VBA

Forumthread: Abfrage in VBA

Abfrage in VBA
24.02.2006 09:48:58
maze
Hallo Forumsmitglieder,
kann mir bitte jemand mit einer Abfrage in diesem Makro helfen.
Wenn nicht alle Zellen Daten enthalten, sollen die Daten nicht in die Datenbank.
Eine Abfrage zum weitermachen mit Ja oder Abbrechen wäre sinnvoll, bevor Application.Run "Einspielen" am Ende dieses Makro startet.
Hilfe wäre sehr nett
Gruß
Matthias

Sub AntwortLaden()
Application.ScreenUpdating = False
Sheets("Vorbereitung").Activate
Pfad = "K:\Kostentraeger\Mail"
Pfadantwort = Pfad
ChDir Pfadantwort
AntwortDatei = Application.GetOpenFilename("Excel-Dateien (*.xls), *.xls")
If AntwortDatei <> False Then
Range("A1:H20").Select
Application.CutCopyMode = False
Selection.Clear
Workbooks.Open AntwortDatei
FensterAntwortDatei = ActiveWindow.Caption
Sheets("Meldung").Select
Sheets("Meldung").Activate
Range("G7,I7").Select
Selection.Copy
Windows("Auftragsmeldungen.xls").Activate
Sheets("Vorbereitung").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Windows(FensterAntwortDatei).Activate
Range("g8").Select
Selection.Copy
Windows("Auftragsmeldungen.xls").Activate
Sheets("Vorbereitung").Select
Range("c1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Windows(FensterAntwortDatei).Activate
Range("i8").Select
Selection.Copy
Windows("Auftragsmeldungen.xls").Activate
Sheets("Vorbereitung").Select
Range("d1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Windows(FensterAntwortDatei).Activate
Range("c34").Select
Selection.Copy
Windows("Auftragsmeldungen.xls").Activate
Sheets("Vorbereitung").Select
Range("e1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Windows(FensterAntwortDatei).Activate
Range("c35").Select
Selection.Copy
Windows("Auftragsmeldungen.xls").Activate
Sheets("Vorbereitung").Select
Range("f1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Windows(FensterAntwortDatei).Activate
Range("c36").Select
Selection.Copy
Windows("Auftragsmeldungen.xls").Activate
Sheets("Vorbereitung").Select
Range("g1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Windows(FensterAntwortDatei).Activate
ActiveWindow.Close
End If
Application.ScreenUpdating = True
Application.Run "Einspielen"
End Sub

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Abfrage in VBA
24.02.2006 10:09:50
Harald
Moin Maze,
vielleicht so ?
anzahl = WorksheetFunction.CountA(Range("a1:h20")) 'zählt Text und Zahl im angeg. Bereich)
'MsgBox anzahl
If anzahl &lt 15 Then 'Anzahl der Mindestargumente
If MsgBox("Es fehlen Daten" & Chr(10) _
& "Abbrechen ?", vbYesNo + vbInformation, " ** Hinweis **") = vbYes Then Exit Sub
End If
Application.Run "Einspielen"
Gruss Harald
Anzeige
supero !!!!!!!!!!!!!
24.02.2006 11:55:32
maze
Hallo Harald,
Deine Idee mit der Überprüfung überlieferter Daten in der Abfrage ist besser als mein Gedanke.
Gruß
Matthias
Prima ;-)) Danke für die Rückmeldung owT
24.02.2006 12:00:53
Harald
Gruss Harald
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige