Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

EXCEL Webabfrage per VBA Script erweitern.

Frage Microsoft Microsoft Office

Mitglied: alsdorf2011

alsdorf2011 (Level 1) - Jetzt verbinden

22.05.2011, aktualisiert 09:26 Uhr, 8551 Aufrufe, 4 Kommentare

Hallo,
da ich selber keine Ahnung von VBA unter Excel habe habe ich mir bisher immer per Aufzeichnungsmodul geholfen. Ich komm aber an eine Stelle nun nichtm ehr weiter.

Ich habe eine Webabfrage manuell erstellt. Jetzt suche ich eine Möglichkeit, welcher mit eine Webabfrage automatisch aus dieser Datenbank erstellt.
Die Abzufragende URL ist immer gleich aufgebaut, enthält aber immer Zahlen die in der u.g. Excel Tabelle stehen.

Aufbau (beispiel Zahlen sind immer 5 Stellig und x Anzahl von Spalten).

Spalten:
Zeile

A B C D E F G ....

1 TEXTZelle

2 123 Default 123

3 456 Default 456 789

4 789 Default 789 012 345 678 901

5 012 Default 012

6 345 Default 345 678 901
...




bisher hab ich jede Abfrage versucht einzelnt in das VBA zu bringen:

01.
Sheets("Tabelle2").Select 
02.
    Range("A1").Select 
03.
Range("A:Z").Delete 
04.
 
05.
    With ActiveSheet.QueryTables.Add(Connection:= _ 
06.
        "URL;http://10.112.230.xxx/admin/daemons?rm=service&sid=873fc6d94d1d583a1f07e9c32d973a9c&ctx=c2comsrvd.deehqap081vwdum.c123&d=123&srm=services" _ 
07.
        , Destination:=Range("$A$1")) 
08.
        .Name = _ 
09.
        "daemons?rm=service&sid=873fc6d94d1d583a1f07e9c32d973a9c&ctx=c2comsrvd.deehqap081vwdum.c123&d=123&srm=services_2" 
10.
        .FieldNames = True 
11.
        .RowNumbers = False 
12.
        .FillAdjacentFormulas = False 
13.
        .PreserveFormatting = True 
14.
        .RefreshOnFileOpen = False 
15.
        .BackgroundQuery = True 
16.
        .RefreshStyle = xlInsertDeleteCells 
17.
        .SavePassword = False 
18.
        .SaveData = True 
19.
        .AdjustColumnWidth = True 
20.
        .RefreshPeriod = 0 
21.
        .WebSelectionType = xlSpecifiedTables 
22.
        .WebFormatting = xlWebFormattingNone 
23.
        .WebTables = "1" 
24.
        .WebPreFormattedTextToColumns = True 
25.
        .WebConsecutiveDelimitersAsOne = True 
26.
        .WebSingleBlockTextImport = False 
27.
        .WebDisableDateRecognition = False 
28.
        .WebDisableRedirections = False 
29.
        .Refresh BackgroundQuery:=False 
30.
    End With 
31.
    On Error Resume Next 
32.
     
33.
    Sheets("Tabelle2").Select 
34.
    Range("A40").Select 
35.
    With ActiveSheet.QueryTables.Add(Connection:= _ 
36.
        "URL;http://10.112.230.xxx/admin/daemons?rm=service&sid=873fc6d94d1d583a1f07e9c32d973a9c&ctx=c2comsrvd.deehqap081vwdum.c456&d=456&srm=services" _ 
37.
        , Destination:=Range("$A$40")) 
38.
        .Name = _ 
39.
        "daemons?rm=service&sid=873fc6d94d1d583a1f07e9c32d973a9c&ctx=c2comsrvd.deehqap081vwdum.c456&d=456&srm=services_2" 
40.
        .FieldNames = True 
41.
        .RowNumbers = False 
42.
        .FillAdjacentFormulas = False 
43.
        .PreserveFormatting = True 
44.
        .RefreshOnFileOpen = False 
45.
        .BackgroundQuery = True 
46.
        .RefreshStyle = xlInsertDeleteCells 
47.
        .SavePassword = False 
48.
        .SaveData = True 
49.
        .AdjustColumnWidth = True 
50.
        .RefreshPeriod = 0 
51.
        .WebSelectionType = xlSpecifiedTables 
52.
        .WebFormatting = xlWebFormattingNone 
53.
        .WebTables = "1" 
54.
        .WebPreFormattedTextToColumns = True 
55.
        .WebConsecutiveDelimitersAsOne = True 
56.
        .WebSingleBlockTextImport = False 
57.
        .WebDisableDateRecognition = False 
58.
        .WebDisableRedirections = False 
59.
        .Refresh BackgroundQuery:=False 
60.
    End With 
61.
    On Error Resume Next
der Part:
"URL;http://10.112.230.xxx/admin/daemons?rm=service&sid=873fc6d94d1d583a ..." _
und
"daemons?rm=service&sid=873fc6d94d1d583a1f07e9c32d973a9c&ctx=c2comsrvd.deehqap081vwdum.c456&d=456&srm=services_2"


Die URL soll sich aus den Werte der Spalte A und darauffolgenden die Spalten zusammen setzen
Es gibt immer feste URL Werte, aber auch Variablen aus den Spálten ...."URL;http://10.112.230.xxx/admin/daemons?rm=service&sid=873fc6d94d1d583a ..." & "Wert aus Spalte A" & "&d=" & "Wert aus
Spalte A; B; C; D" & "&srm=services" _"

Wie bekomme ich es hin, dass hier im VBA automatisch Webanfragen geniert werden die sich Werte aus der Tabelle zieht und zwar so lange bis keine Felder mit Informationen erhalten
Gleichzeitig die Werte aber nicht überschreiben, sondern immer mit 40 Zeilen Abstand abfragt?

Zu Komplext?. kann gerne eine Beispieldatei zukommen lassen
Mitglied: 76109
22.05.2011 um 15:10 Uhr
Hallo alsdorf2011!

Das mit den Variablen habe ich nicht so ganz verstanden, insoweit es Deine Beispiel-Daten angeht. Von daher habe ich mal vier Variablen angenommen und zwar die Spalten A,B,C,D. Das kannst Du aber leicht entsprechend anpassen, indem Du die Codezeile 20 und die Konstante 'WebUrl' entsprechend anpasst.

In der Codezeile 20 werden die Spalten A,B,C,D an die Funktion 'GetUrl' übergeben und die Variablen (%1-%4) im 'WebUrl'-String durch diese Werte ersetzt. Es können
maximal 6 Werte den Variablen %1-%6 zugeordnet werden z.B GetUrl(WebUrl, A, B, C, D, E, F) -> %1=A, %2=B, %3=C usw. Jedoch muss mindestens ein Parameter übergeben werden.

01.
Option Explicit 
02.
 
03.
Private Const SheetDaten = "Tabelle1"   'Tabellenname mit Daten 
04.
Private Const SheetQuery = "Tabelle2"   'Tabellenname für den Web-Import 
05.
 
06.
Private Const StartDaten = 2            'Tabelle Daten ab Zeile 
07.
Private Const StartQuery = 1            'Tabelle Query ab Zeile 
08.
 
09.
Private Const BreakQuery = 40           'Tabelle Query Zeilenversatz 
10.
 
11.
Private Const WebUrl = "URL;http://10.112.230.xxx/admin/daemons?rm=service&sid=873fc6d94d1d583a1f07e9c32d973a9c&ctx=c2comsrvd.deehqap081vwdum.c%1&d=%1%2%3%4&srm=services" 
12.
 
13.
Sub Start() 
14.
    Dim WebSite As String, EndLine As Long, NextLine As Long, i As Long 
15.
 
16.
    With Sheets(SheetDaten) 
17.
        EndLine = .Cells(.Rows.Count, 1).End(xlUp).Row:  NextLine = StartQuery 
18.
         
19.
        For i = StartDaten To EndLine 
20.
            WebSite = GetUrl(WebUrl, .Cells(i, 1), .Cells(i, 2), .Cells(i, 3), .Cells(i, 4)) 
21.
            Call QueryTableImport(Sheets(SheetQuery), WebSite, NextLine) 
22.
            NextLine = NextLine + BreakQuery 
23.
        Next 
24.
    End With 
25.
End Sub 
26.
 
27.
Private Sub QueryTableImport(ByRef Wks, ByRef WebSite, Optional ByVal Line As Long = 1) 
28.
    On Error Resume Next 
29.
    With Wks 
30.
        If Line = 1 Then .Cells.Clear 
31.
        With .QueryTables.Add(Connection:=WebSite, Destination:=.Cells(Line, 1)) 
32.
            .AdjustColumnWidth = True 
33.
            .PreserveFormatting = True 
34.
            .WebSelectionType = xlSpecifiedTables 
35.
            .WebTables = "1" 
36.
            .Refresh BackgroundQuery:=False 
37.
            .Delete 
38.
        End With 
39.
        If Err Then .Cells(Line, 1) = "Seite konnte nicht gefunden/geöffnet werden! " 
40.
    End With 
41.
    On Error GoTo 0 
42.
End Sub 
43.
 
44.
Private Function GetUrl(ByRef StrUrl, ByVal Str1$, Optional ByVal Str2$, Optional ByVal Str3$, _ 
45.
                  Optional ByVal Str4$, Optional ByVal Str5$, Optional ByVal Str6$) As String 
46.
     
47.
    Dim Arg as Variant, i As Integer 
48.
     
49.
    GetUrl = StrUrl:    Arg = Array("", Str1, Str2, Str3, Str4, Str5, Str6) 
50.
     
51.
    For i = 1 To 6 
52.
        GetUrl = Replace(GetUrl, "%" & (i), Arg(i)) 
53.
    Next 
54.
End Function
Gruß Dieter
Bitte warten ..
Mitglied: alsdorf2011
23.05.2011 um 11:23 Uhr
Hallo Dieter, danke für das Script.

Leider funktioniert das nicht so wie ich es gedacht habe
Habe nun es ein wenig vereinfacht:
in der Tabelle stehen jetzt alle URL untereinander

Wenn die die Möglichkeit hättest, wäre es lieb das Script nochmal so anzupassen, dass er sich nur die URLS aus der Tabelle 1 Spalte A ziehen soll
aber wie gewohnt mit 40 Zeilen abstand ( wie ja oben in deinem Script beschrieben) die Webabfragen erzeugt

Danke schön für die Hilfe
Bitte warten ..
Mitglied: alsdorf2011
24.05.2011 um 09:52 Uhr
Hallo nochmal,

wie bekomme ich es hin, dass er bei der Datenabfrage z.b 5-10 sec wartet, bis die Datensätze ordnungsgemäß geladen wurden.
Bekomme hier gut die Hälfte an Datwensätze nicht angezeigt.

"Seite konnte nicht gefunden/geöffnet werden! 2

obwohl wenn ich die URL von Hand abfrage er sich Daten zieht.
Bitte warten ..
Mitglied: 76109
24.05.2011 um 11:27 Uhr
Hallo alsdorf2011!

Mit diesem Code werden die Url's direkt aus der Tabelle erzeugt. Verwendet wurden die Beispiel-Daten aus diesem Thread: http://www.administrator.de/Per_VBA_URL_aus_einzelne_Zellen_zusammen_se ...

Eine extra Pause ist eigentlich nicht erforderlich, da die Anweisung in Codezeile 59 besagt, dass die Ausführung des Codes warten soll, bis die Abfrage beendet ist.
Wenn die Webabfrage also nicht funktioniert, dann muss der Fehler woanders liegen.

Hier der neue Code (Tabellennamen anpassen):
01.
Option Explicit 
02.
 
03.
Private Const SheetDaten = "Tabelle1"   'Tabellenname mit Daten 
04.
Private Const SheetQuery = "Tabelle2"   'Tabellenname für den Web-Import 
05.
 
06.
Private Const StartDaten = 2            'Tabelle Daten ab Zeile 
07.
Private Const StartQuery = 1            'Tabelle Query ab Zeile 
08.
 
09.
Private Const BreakQuery = 40           'Tabelle Query Zeilenversatz 
10.
 
11.
Private Const WebUrl = "URL;http://10.112.230.xxx/admin/daemons?rm=service&sid=873fc6d94d1d583a1f07e9c32d973a9c&ctx=c2comsrvd.%1.%2&d=%3&srm=services" 
12.
 
13.
Sub Start() 
14.
    Dim RngA As Range, RngX As Range, EndCol As Long, EndRow As Long, NextRow As Long, WebSite As String 
15.
     
16.
    With Sheets(SheetDaten) 
17.
        EndRow = .Cells(.Rows.Count, 1).End(xlUp).Row:  NextRow = StartQuery 
18.
     
19.
        For Each RngA In .Cells(StartDaten, 1).Resize(EndRow, 1) 
20.
            If Not IsEmpty(RngA) And Not IsEmpty(RngA.Offset(0, 1)) Then 
21.
                EndCol = .Cells(RngA.Row, .Columns.Count).End(xlToLeft).Column 
22.
                 
23.
                For Each RngX In .Cells(RngA.Row, 3).Resize(1, EndCol - 2) 
24.
                    If Not IsEmpty(RngX) Then 
25.
                        WebSite = GetUrl(WebUrl, RngA, RngA.Offset(0, 1), RngX) 
26.
                        Call QueryTableImport(Sheets(SheetQuery), WebSite, NextRow) 
27.
                        NextRow = NextRow + BreakQuery 
28.
                    End If 
29.
                Next 
30.
            End If 
31.
        Next 
32.
    End With 
33.
End Sub 
34.
 
35.
Private Function GetUrl(ByRef StrUrl, ByVal Str1$, Optional ByVal Str2$, Optional ByVal Str3$, _ 
36.
                  Optional ByVal Str4$, Optional ByVal Str5$, Optional ByVal Str6$) As String 
37.
     
38.
    Dim Arg As Variant, i As Integer 
39.
     
40.
    GetUrl = StrUrl:    Arg = Array("", Str1, Str2, Str3, Str4, Str5, Str6) 
41.
     
42.
    For i = 1 To 6 
43.
        GetUrl = Replace(GetUrl, "%" & (i), Arg(i)) 
44.
    Next 
45.
End Function 
46.
 
47.
Private Sub QueryTableImport(ByRef Wks, ByRef WebSite, Optional ByVal Line As Long = 1) 
48.
    On Error Resume Next 
49.
    With Wks 
50.
        If Line = 1 Then .Cells.Clear 
51.
        With .QueryTables.Add(Connection:=WebSite, Destination:=.Cells(Line, 1)) 
52.
            .AdjustColumnWidth = True 
53.
            .PreserveFormatting = True 
54.
            .WebSelectionType = xlSpecifiedTables 
55.
            .WebTables = "1" 
56.
            .Refresh BackgroundQuery:=False 
57.
            .Delete 
58.
        End With 
59.
        If Err Then .Cells(Line, 1) = "Seite konnte nicht gefunden/geöffnet werden!" 
60.
    End With 
61.
    On Error GoTo 0 
62.
End Sub
Und hier das Ergebnis:
01.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c20309&d=20309&srm=services 
02.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c20309&d=40525&srm=services 
03.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c20309&d=75596&srm=services 
04.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c20309&d=88900&srm=services 
05.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c20619&d=10116&srm=services 
06.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c20619&d=10619&srm=services 
07.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c20619&d=20619&srm=services 
08.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c20619&d=21656&srm=services 
09.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c20619&d=21696&srm=services 
10.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c20619&d=52116&srm=services 
11.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c21082&d=21082&srm=services 
12.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c21082&d=21885&srm=services 
13.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c21232&d=21232&srm=services 
14.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c21232&d=21233&srm=services 
15.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c21232&d=21234&srm=services 
16.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c21232&d=21235&srm=services 
17.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c21232&d=21236&srm=services 
18.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c21232&d=21238&srm=services 
19.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c21232&d=21243&srm=services 
20.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c21239&d=21239&srm=services 
21.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c21239&d=21240&srm=services 
22.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c22051&d=21072&srm=services 
23.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c22051&d=21073&srm=services 
24.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c22051&d=21074&srm=services 
25.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c22051&d=21077&srm=services 
26.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c22051&d=22051&srm=services 
27.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c22051&d=22178&srm=services 
28.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c26573&d=20729&srm=services 
29.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c26573&d=21518&srm=services 
30.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c26573&d=26573&srm=services 
31.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c26573&d=71307&srm=services 
32.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c26573&d=71323&srm=services 
33.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c26573&d=71340&srm=services 
34.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c26603&d=21202&srm=services 
35.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c26603&d=25445&srm=services 
36.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c26603&d=25658&srm=services 
37.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c26603&d=26603&srm=services 
38.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c30899&d=30899&srm=services 
39.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c30899&d=74004&srm=services 
40.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c32590&d=32590&srm=services 
41.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c33022&d=32999&srm=services 
42.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c33022&d=33022&srm=services 
43.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c33022&d=33081&srm=services 
44.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c33022&d=33120&srm=services 
45.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c33022&d=41483&srm=services 
46.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c33022&d=41891&srm=services 
47.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c33804&d=21242&srm=services 
48.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c33804&d=22331&srm=services 
49.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c33804&d=33804&srm=services 
50.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c44989&d=20664&srm=services 
51.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c44989&d=20907&srm=services 
52.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c44989&d=21220&srm=services 
53.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c44989&d=44954&srm=services 
54.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c44989&d=44989&srm=services 
55.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c44989&d=45021&srm=services 
56.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c44989&d=50938&srm=services 
57.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c44989&d=88781&srm=services 
58.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c44989&d=88803&srm=services 
59.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c50041&d=45187&srm=services 
60.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c50041&d=45209&srm=services 
61.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c50041&d=50041&srm=services 
62.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c72893&d=20519&srm=services 
63.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c72893&d=20914&srm=services 
64.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c72893&d=30597&srm=services 
65.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c72893&d=30651&srm=services 
66.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c72893&d=32573&srm=services 
67.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c72893&d=42595&srm=services 
68.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c72893&d=42625&srm=services 
69.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c72893&d=53635&srm=services 
70.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c72893&d=60682&srm=services 
71.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c72893&d=60691&srm=services 
72.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c75621&d=75621&srm=services 
73.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c75621&d=75639&srm=services 
74.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c75621&d=84000&srm=services 
75.
URL;http://.......&ctx=c2comsrvd.deehqap081vwdum.c75621&d=84001&srm=services 
76.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c99949&d=99949&srm=services 
77.
URL;http://.......&ctx=c2comsrvd.deehqap071vwdum.c99959&d=99959&srm=services
Gruß Dieter
Bitte warten ..
Ähnliche Inhalte
VB for Applications
VBA Outlook - Automatisierte Anhänge - Script erweitern
gelöst Frage von sokraTonisVB for Applications3 Kommentare

Hallo Leute, ich würde mein Script: Sub AnlagenRewe(olMail As MailItem) Dim att As Attachment, fso As Object, ziel As ...

Microsoft Office
Excel 2010 VBA automatisch erweitern mit Datensätze aus Tabelle
Frage von karlchristianMicrosoft Office3 Kommentare

Hallo, ich habe eine Excel Tabelle QUELLE wo Worte (Datenbanken) untereinander stehen. Diese Datenbanken versuche ich per VBA in ...

Microsoft Office
VBA und Excel
gelöst Frage von cosmonautMicrosoft Office6 Kommentare

Ich habe eine "Aufgabe" zum Thema VBA programmieren. Dazu habe ich eine Exceltabelle, - dessen Inhalt ich nach bestimmten ...

Microsoft Office
Webabfrage funktioniert nicht
Frage von Druide83Microsoft Office4 Kommentare

Hallo Comunity, ich habe gerade ein Problem. Ausgangssituation: Ich muss jede Woche Montag manuell auf unseren Aerohive und eine ...

Neue Wissensbeiträge
Batch & Shell

Open Object Rexx: Eine mittlerweile fast vergessene Skriptsprache aus dem Mainframebereich

Information von Penny.Cilin vor 19 StundenBatch & Shell8 Kommentare

Ich kann mich noch sehr gut an diese Skriptsprache erinnern und nutze diese auch heute ab und an noch. ...

Humor (lol)

"gimme gimme gimme": Automatischer Test stolpert über Easter Egg im man-Tool

Information von Penny.Cilin vor 21 StundenHumor (lol)6 Kommentare

Interessant, was man so alles als Easter Egg implementiert. Ist schon wieder Ostern? "gimme gimme gimme": Automatischer Test stolpert ...

MikroTik RouterOS

Mikrotik - Lets Encrypt Zertifikate mit MetaROUTER Instanz auf dem Router erzeugen

Anleitung von colinardo vor 1 TagMikroTik RouterOS8 Kommentare

Einleitung Folgende Anleitung ist aus der Lage heraus entstanden das ein Kunde auf seinem Mikrotik sein Hotspot Captive Portal ...

Sicherheit

Sicherheitslücke in HP-Druckern - Firmware-Updates stehen bereit

Information von BassFishFox vor 1 TagSicherheit1 Kommentar

Ein weiterer Grund, dass Drucker keinerlei Verbindung nach "auswaerts" haben sollen. Unter Verwendung spezieller Malware können Angreifer aus der ...

Heiß diskutierte Inhalte
Windows Server
RDP macht Server schneller???
Frage von JaniDJWindows Server17 Kommentare

Hallo Community, wir betrieben seit geraumer Zeit diverse virtuelle Maschinen und Server mit Windows Server 2012. Leider haben wir ...

Windows 10
Bitlocker nach Verschlüsselung nicht mehr aufrufbar!
gelöst Frage von alexlazaWindows 1013 Kommentare

Hallo, ich besitze ein HP ZBook 17 G4 mit einem Windows 10 Pro Betriebssystem. Bei diesem Problem handelt sich, ...

Off Topic
Fachkräftemangel in Deutschland? - Talentschmiede schreibt alle 2 Tage die gleichen Stellen aus
Frage von Penny.CilinOff Topic12 Kommentare

Hallo, haben wir in Deutschland Fachkräftemangel? Die Talentschmiede schreibt gefühlt alle zwei Tage dieselben Stellen aus. Und das schon ...

Windows Server
Sichere Remote Desktop Verbindung wie?
gelöst Frage von nuss33Windows Server11 Kommentare

Hallo zusammen, eins vorweg: Ich besitze einen privaten Windows Server 2008 R2 zu Hause im Netzwerk er wird nicht ...