Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1236to1240
1236to1240
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn Bedingung für webabfrage

Forumthread: Wenn Bedingung für webabfrage

Wenn Bedingung für webabfrage
Ralf
Hallo Forum,
ich möchte mittels einer Webanfrage Daten in eine Tabelle importieren.
Da ich sicherstellen möchte, dass eine Internetverbindung aktiv ist, habe ich eine Dummy Verbindung vorgeschaltet.
Jetzt benötige ich eine Wenn Abfrage nach der Dummy Abfrage "Call Gold":
Wenn Zelle Devisen2.B35 leer ist, soll das Makro beendet werden.
Wenn Zelle Devisen2.B35 mit einem Wert befüllt ist, soll das Makro fortgeführt werden.
Das Makro sieht derzeit so aus:
Sub EUR_USD()
'Dummy Abfrage
Call Gold
'alte Werte löschen
Sheets("Devisen").Select
Range("A2:C25").Select
Selection.ClearContents
Range("H2:J23").Select
Selection.ClearContents
Range("A1").Select
'neue Werte importieren
Call EUR
Call USD
'angelegte Verbindungen löschen
ActiveWorkbook.Connections("Verbindung").Delete
ActiveWorkbook.Connections("Verbindung1").Delete
ActiveWorkbook.Connections("Verbindung2").Delete
Sheets("Sekof Umlage").Select
Range("A1").Select
End Sub
Vielen Dank im Voraus für Eure Hilfe.
Viele Grüße
Ralf
Anzeige
AW: Wenn Bedingung für webabfrage
22.11.2011 11:32:06
marcl
Hallo Ralf,
in Deinem Code ist etwas .Select. Das kann man auch weglassen:
Sub EUR_USD()
'Dummy Abfrage
Call Gold
' wenn Zelle B 35 im Blatt Devisen2 nicht leer ist
If Sheets("Devisen2!).Range("B35")  "" then
'alte Werte löschen
Sheets("Devisen").Range("A2:C25").ClearContents
Range("H2:J23").ClearContents
Range("A1").Select
'neue Werte importieren
Call EUR
Call USD
'angelegte Verbindungen löschen
ActiveWorkbook.Connections("Verbindung").Delete
ActiveWorkbook.Connections("Verbindung1").Delete
ActiveWorkbook.Connections("Verbindung2").Delete
Sheets("Sekof Umlage").Select
Range("A1").Select
' sonst Fehlermeldung ausgeben
Else
MsgBox("Keine Daten in Zelle B35 vorhanden!")
End If
End Sub

Anzeige
AW: Wenn Bedingung für webabfrage
22.11.2011 11:53:45
Ralf
Hallo Marcl,
vielen Dank für Deine Lösung.
Ich habe es gerade ohne Internetverbindung ausprobiert.
Was ich nicht berücksichtigt habe ist, dass der Befehl "Call Gold" ja schon mit einer Fehlermeldung abgebrochen wird und es somit zu der Prüfung gar nicht kommt.
Hast Du einen Tipp, wie ich das jetzt lösen kann, ob eine Internetverbindung besteht?
Vielen Dank im Voraus für eine Rückmeldung.
Viele Grüße
Ralf
Anzeige
AW: Wenn Bedingung für webabfrage
22.11.2011 12:24:56
Rudi
Hallo, 
Option Explicit
Public myERR As Integer
Sub Gold()
On Error GoTo ErrHandler
'Code
ErrHandler:
myERR = Err.Number
End Sub
Sub EUR_USD()
'Dummy Abfrage
Call Gold
If myERR > 0 Then
MsgBox "Kein I-Net", , "Gebe bekannt ..."
Exit Sub
End If
'alte Werte löschen
End Sub

Gruß
Rudi
Anzeige
AW: Wenn Bedingung für webabfrage
22.11.2011 14:44:50
Ralf
Hallo Rudi,
vielen Dank für Deinen Input.
Nur, wo gehören die einzelnen Fragmente in dem Workbook hin?
Ich habe jetzt folgendes gemacht:
Option Explicit
Public myERR As Integer
=> Ins Modul
Sub Gold()
On Error GoTo ErrHandler
'Code
ErrHandler:
myERR = Err.Number
End Sub
=> Ins Modul, an das Makro für die Webanfrage angehängt
Das sieht dann so aus:
Sub Gold()
' Gold Aktualisierung
'--- Bildschirmaktualisierung aus
Application.ScreenUpdating = False
Sheets("Devisen").Select
Range("A32").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://link", Destination:= _
Range("$A$32"))
.Name = "Gold"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = True
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "2"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
On Error GoTo ErrHandler
'Code
ErrHandler:
myERR = Err.Number
End Sub
dann.....
Sub EUR_USD()
'Dummy Abfrage
Call Gold
If myERR > 0 Then
MsgBox "Kein I-Net", , "Gebe bekannt ..."
Exit Sub
End If
'alte Werte löschen
End Sub
=> Ins Modul, an das Makro für die Webanfrage angehängt
Das sieht dann so aus:
Sub EUR_USD()
'--- Bildschirmaktualisierung aus
Application.ScreenUpdating = False
'Dummy Abfrage
Call Gold
If myERR > 0 Then
MsgBox "Kein I-Net", , "Gebe bekannt ..."
Exit Sub
End If
'alte Werte löschen
Sheets("Devisen").Select
Range("A2:C25").Select
Selection.ClearContents
Range("H2:J23").Select
Selection.ClearContents
Range("A1").Select
'neue Werte importieren
Call EUR
Call USD
'angelegte Verbindungen löschen
ActiveWorkbook.Connections("Verbindung").Delete
ActiveWorkbook.Connections("Verbindung1").Delete
ActiveWorkbook.Connections("Verbindung2").Delete
Sheets("Sekof Umlage").Select
Range("A1").Select
End Sub
Ich hoffe Du kannst mir helfen, weil aktuell funktioniert es noch nicht.
Viele Grüße
Ralf
Anzeige
AW: Wenn Bedingung für webabfrage
22.11.2011 14:57:01
Rudi
Hallo,
On Error GoTo ErrHandler gehört natürlich in Gold an den Anfang der Prozedur.
Sub Gold()
' Gold Aktualisierung
'--- Bildschirmaktualisierung aus
Application.ScreenUpdating = False
On Error GoTo ErrHandler
End Sub
Gruß
Rudi
AW: Wenn Bedingung für webabfrage
22.11.2011 15:05:02
Ralf
Hallo Rudi,
hm, geht immer noch nicht.
Der Code sieht jetzt so aus:
Sub Gold()
' Gold Aktualisierung
'--- Bildschirmaktualisierung aus
Application.ScreenUpdating = False
On Error GoTo ErrHandler
'Code
ErrHandler:
myERR = Err.Number
Sheets("Devisen").Select
Range("A32").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://link", Destination:= _
Range("$A$32"))
.Name = "Gold"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = True
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "2"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
 .Refresh BackgroundQuery:=False
End With
End Sub
Es wird ein Laufzeitfehler 1004 ausgegeben und der ".Refresh BackgroundQuery:=False" Befehl ist gelb hinterlegt.
Was mache ich falsch?
Rückmeldung wäre nett.
Viele Grüße
Ralf
Anzeige
AW: Wenn Bedingung für webabfrage
22.11.2011 21:24:16
Ralf
Hallo Rudi und Marcl,
ich habe das noch mal in einer Dummy Datei zusammengefasst.
https://www.herber.de/bbs/user/77608.xlsm
Irgendwie kommt die MSG Box nicht, falls keine Internetverbindung besteht.
Ich möchte die Goldabfrage als zwischengeschaltete Abfrage nutzen, um zu prüfen, ob eine Internetverbindung besteht.
Wenn die Zelle A3 leer bleibt (keine Internetverbindung) sollen die anderen beiden eigentlichen Abfragen nicht starten.
Ich komme irgendwie mit meinem Halbwissen bezgl. VBA nicht weiter. Aber mich lässt es auch nicht mehr los.
Viele Grüße
Ralf
Anzeige
AW: Wenn Bedingung für webabfrage
22.11.2011 23:14:41
Rudi
Hallo,
da ist nichts von dem drin, was ich dir geschrieben habe!
Public myErr as integer
Sub Gold()
' Gold Aktualisierung
'--- Bildschirmaktualisierung aus
Application.ScreenUpdating = False
On Error GoTo ErrHandler
Sheets("Devisen").Select
Range("A32").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://link", Destination:= _
Range("$A$32"))
.Name = "Gold"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = True
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "2"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
ErrHandler:
myERR = Err.Number
End Sub

Gruß
Rudi
Anzeige
AW: Wenn Bedingung für webabfrage
23.11.2011 06:38:48
Ralf
Hallo Rudi,
ich habe den Vorschlag von Marcl eingearbeitet.
In der neu angehängten Datei habe ich versucht Deinen Vorschlag umzusetzen.
Die direkte Abfrage funktioniert. Der "Umweg" über die Dummy Abfrage nicht. Hier erscheint jetzt immer "Kein I-net".
Hier der Link:
https://www.herber.de/bbs/user/77612.xlsm
Viele Grüße
Ralf
Anzeige
Datei tut's nicht. owT
23.11.2011 11:25:17
Rudi
alles was nötig ist, ...
23.11.2011 22:36:32
Rudi
Hallo,
steht in diesem Thread. Lies ihn aufmerksam, denke nach und experimentiere.
Gruß
Rudi
Anzeige
;

Forumthreads zu verwandten Themen

Löschen von Zeilen unter 1 Bedingung
Zeilen

Hallo,
ich habe in einer Excel Liste Produkte geführt, die den aktuellen Lagerbestand anzeigen.
Dort werden auch die Produkte aufgeführt, deren Produkte einen Lagerbestand von 0 haben.
Der Lagerbestand wird in Spalte B aufgeführt, die Produkte stehen in Spalte A. Der Datenbereich b...
08.08.2008 20:15:00
Thread-ID: 1000407
5 Beiträge
2 Bedingungen - ZÄHLENWENN
Toby

Hi!
Unten meine aktuelle Formel. Nun möchte ich aber, daß Excel zählen soll, wenn es ungleich X und ungleich Leerfeld ist.
Oder er soll nur dann zählen, wenn eine Zahl drin steht.
=ZÄHLENWENN(C3:AJ3;"X")
Bestimmt leicht für euch ...
Danke, Toby ...
10.08.2008 18:26:00
Thread-ID: 1000661
4 Beiträge
Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
If...Then... bei verschiedenen Bedingungen?
Vic

Hallo zusammen
Ich habe folgendes Problem und weiss nicht, wie ich das über mein Marko gelöst bekomme:
In der Spalte "H" habe ich diverse Werte (zwischen 0 und X) und in der Spalte "K" ebenfalls. Nun möchte ich, dass es in der Spalte "L" eine "0" ausgibt, wenn "H" den Wert Null hat und...
13.08.2008 15:00:00
Thread-ID: 1001553
5 Beiträge
Hilfe ! Zellen einfärben mit bedingung
sockel939

Hallo Leute,
wie schaffe ich es per makro ( ! )
alles was links neben zelle m2 bis m1000 steht einzufärben.
Also wenn in M2 z.B. a steht, alle zellen von L2 bis A2 = Grün
M3 z.B. Hallo = L3 bis A3 = Rot usw.
Weis nicht in welcher reihenfolge ich die makros aufnehmen soll :-...
15.08.2008 15:09:00
Thread-ID: 1002195
5 Beiträge
Unterschiedliche Werte mit Bedingung
kerberus

Hallo liebes Forum
Ich benötige mal wieder eure Hilfe. Das Ziel: eine Formel die mir die Anzahl unterschiedliche Eintragungen liefert. Folgender Code konnte ich bis jetzt erstellen:
Function ZUnterschiede(Kriterium As String, Kriteriumbereich As Range, Wertebereich As Range) _ As D...
22.08.2008 10:34:00
Thread-ID: 1003771
3 Beiträge
2 zellen als Bedingung
sockel939

Guten Morgen an alle,
habe diesen code hier gebastelt!
Würde ihn jetzt gerne um 2 Bedingungen erweitern
und zwar soll der bereich L4:L1000 und N4:N1000 als Bedingung hinzukommen,
hab aber keinen Plan wies geht.
For Each Zelle In Range("K4:K1000")
If Zelle = "overhauled"...
23.08.2008 04:57:59
Thread-ID: 1004065
10 Beiträge
ganze Zeile nach Bedingung formatieren
Tom

Hallo
wie kann ich denn ausgehend von der aktuellen Zeile diese mittels VBA formatieren.
Hintergrund:
Steht in Spalte N der Wert "Ja", dann ändere den Hintergund dieser Zeile von A bis R in grau ab (Interner Farbwert von Excel sollte 15 sein)
Wird diese Formatierung mittels VBA...
26.08.2008 14:48:36
Thread-ID: 1004813
3 Beiträge
Summe mit 2 Bedingungen
TobiasM

Hallo Excel-Experten,
ich würde gerne eine Summe mit zwei Bedingungen berechnen:
Wenn Wert in Spalte H gleich "EUR" und Wert in Spalte I gleich ""2005", dann Summe der entsprechenden Werte in Spalte J.
Könnte mir jmd. bitte einen Hinweis zur Formel geben?
Vielen Dank!!!
Tobi...
28.08.2008 10:11:30
Thread-ID: 1005310
3 Beiträge
Anzeige
Datum nach Prüfung mehrer Bedingungen anzeigen
Wilfried

Hallo, brauche dringend Hilfe !!
In einer Tabelle mit Kundendaten wird in Spalte C2:C350 zu Prüfzwecken ein "x" eingetragen. In Spalte AB2:AB350 erfolgt der Eintrag "N" wenn der Kunde nicht erschienen ist. In Spalte Z2:Z350 steht das dazugehörige Datum. Ich benötige eine Formel, welche mi...
28.08.2008 13:27:54
Thread-ID: 1005419
18 Beiträge
If Bedingung
Urmila

Hallo,
wie kann ich sagen ob in irgendeiner Zelle der Spalte (z.B. E) selektiert ist und in der aktiven Zelle ein Datum steht (Spalte E in diesem Fall im Format Datum)?
LG
Urmila
01.09.2008 09:24:24
Thread-ID: 1006329
4 Beiträge
Zählenwenn funktion an zweite Bedingung knüpfen
Simon

Hallo,
ich komme schon wieder mal nicht weiter und bräuchte eure Hilfe:
Ich will eine Zählenwenn funktion an eine zweite Bedingung knüpfen. kontkret sieht das folgendermaßen aus:
Ich habe folgende Spalten:
Kundennummer Bestellmenge
1000 5
1001...
02.09.2008 09:05:00
Thread-ID: 1006644
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige