Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1636to1640
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1636to1640
1636to1640
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Schleife über Spalten

VBA: Schleife über Spalten
07.08.2018 18:32:31
Bernd
Hallo zusammen,
brauche mal Hilfe, da meine VBA-Kenntnisse noch nicht reichen.
Musterdatei: https://www.herber.de/bbs/user/123191.xlsm
In meiner Datei rufe ich mit "WebBrowser.Navigate" eine Webseite auf, kopiere die komplette Seite und füge die Daten in ein neuanzulegendes Tabellenblatt ein, der Name der neuen Tabelle soll aus Spalte A in Blatt "Links" analog zur Zeile des Hyperlinks entnommen werden. D.h. rufe ich Hyperlink aus B2 auf, so muss der Blattname aus A2 sein. Bis dahin ok-
Mein Problem ist, dass ich es einfach nicht schaffe, die Hyperlinks in Spalte B und die Blattnamen in Spalte A in eine Schleife zu packen und der Reihe nach abzuarbeiten. In Originaldatei sind es ca. 100 Zeilen, im Muster 3.
Kann mit dabei jemand helfen?
Dankeschön im Voraus!!!
Übrigens der Code stammt von Nepumuk (im Web gefunden), etwas abgewandelt von mir.
Userbild
Office Version 2016 Pro 32bit - Windows10 Pro 64 bit
"Wenn du jemanden ohne Lächeln triffst, schenke ihm dein's!"

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Schleife über Spalten
07.08.2018 19:48:51
Nepumuk
Hallo Bernd,
teste mal:
Option Explicit

Private Declare PtrSafe Sub Sleep Lib "kernel32.dll" ( _
    ByVal dwMilliseconds As Long)

Private Sub UserForm_Activate()
    Call DownLoadData
End Sub

Public Sub DownLoadData()
    Dim lngRow As Long
    Dim objWorksheet As Worksheet
    With Worksheets("Links")
        For lngRow = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
            Call WebBrowser1.Navigate(URL:=.Cells(lngRow, 2).Value)
            Do While WebBrowser1.Busy
                Call Sleep(100)
                DoEvents
            Loop
            Call WebBrowser1.ExecWB(cmdID:=OLECMDID_SELECTALL, _
                cmdexecopt:=OLECMDEXECOPT_DONTPROMPTUSER, pvaIn:=0, pvaOut:=0)
            Call WebBrowser1.ExecWB(OLECMDID_COPY, _
                cmdexecopt:=OLECMDEXECOPT_DONTPROMPTUSER, pvaIn:=0, pvaOut:=0)
            Call WebBrowser1.Navigate(URL:="about:blank")
            
            Set objWorksheet = Worksheets.Add(After:=Worksheets(Worksheets.Count))
            With objWorksheet
                Call .Paste(Destination:=.Cells(1, 1))
                Call .Range("1:2,5:6").Delete(Shift:=xlShiftUp)
                With .Cells
                    .WrapText = False
                    .MergeCells = False
                End With
                .Name = Worksheets("Links").Cells(lngRow, 1).Value
            End With
        Next
    End With
End Sub

Gruß
Nepumuk
Anzeige
AW: VBA: Schleife über Spalten
07.08.2018 20:14:08
Bernd
Hallo Nepumuk,
Danke für deine Hilfe. Habe den Code getestet und bekomme Fehlermeldung "Variable nicht definiert" und zwar in deiser Zeile hier "Call WebBrowser1.ExecWB(cmdID:=OLECMDID_SELECTALL, _"
Sonnnige Grüße aus Bremen
Bernd
AW: Funktioniert Ein Verweis hat gefehlt ...
07.08.2018 20:17:32
Bernd
... und zwar Microsoft Internet Controls
Danke dir und schönen Abend noch!!!
Gruß
Bernd
AW: VBA: Schleife über Spalten
07.08.2018 20:22:54
Nepumuk
Hallo Bernd,
dann fehlt der Verweis. So sollte es gehen:
Option Explicit

Private Declare PtrSafe Sub Sleep Lib "kernel32.dll" ( _
    ByVal dwMilliseconds As Long)

Private Sub UserForm_Activate()
    Call DownLoadData
    Call Unload(Object:=Me)
End Sub

Public Sub DownLoadData()
    Dim lngRow As Long
    Dim objWorksheet As Worksheet
    With Worksheets("Links")
        For lngRow = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
            Call WebBrowser1.Navigate(URL:=.Cells(lngRow, 2).Value)
            Do While WebBrowser1.Busy
                Call Sleep(100)
                DoEvents
            Loop
            Call WebBrowser1.ExecWB(cmdID:=17, cmdexecopt:=2, pvaIn:=0, pvaOut:=0)
            Call WebBrowser1.ExecWB(cmdID:=12, cmdexecopt:=2, pvaIn:=0, pvaOut:=0)
            Call WebBrowser1.Navigate(URL:="about:blank")
            
            Set objWorksheet = Worksheets.Add(After:=Worksheets(Worksheets.Count))
            With objWorksheet
                Call .Paste(Destination:=.Cells(1, 1))
                Call .Range("1:2,5:6").Delete(Shift:=xlShiftToLeft)
                With .Cells
                    .WrapText = False
                    .MergeCells = False
                End With
                .Name = Worksheets("Links").Cells(lngRow, 1).Value
            End With
        Next
    End With
End Sub

Gruß
Nepumuk
Anzeige
AW: VBA: Schleife über Spalten
07.08.2018 20:31:22
Bernd
Hallo Nepumuk,
Alles zurück, funktioniert doch nicht. Gerade fiel mir auf, dass immmer die selbe Webseite als Tabelle angelegt wird, d.h. es wurde immer der selbe Hyperlink angewendet, anstatt die Spalte der Hyperlinks der Reihe nach abzuarbeiten.
Gruß
Bernd
AW: VBA: Schleife über Spalten
07.08.2018 20:16:30
Nepumuk
Hallo Bernd,
ich nochmal, das Shift-Statement der Delete-Methode des Range Objektes stimmt nicht.
So ist's richtig:
Call .Range("1:2,5:6").Delete(Shift:=xlShiftToLeft)

Gruß
Nepumuk
Anzeige
AW: VBA: Schleife über Spalten
07.08.2018 20:21:24
Bernd
Hallo Nepumuk,
Alles zurück funktioniert doch nicht. Gerade fiel mir auf, dass immmer die selbe Webseite als Tabelle angelegt wird, d.h. es wurde nur der selbe Hyperlink angewendet.
Gruß
Bernd
AW: VBA: Schleife über Spalten
07.08.2018 22:00:50
Nepumuk
Hallo Bernd,
dann teste mal:
Option Explicit

Private Declare PtrSafe Sub Sleep Lib "kernel32.dll" ( _
    ByVal dwMilliseconds As Long)

Private Sub UserForm_Activate()
    Call DownLoadData
    Call Unload(Object:=Me)
End Sub

Public Sub DownLoadData()
    Dim lngRow As Long
    Dim objWorksheet As Worksheet
    With Worksheets("Links")
        For lngRow = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
            Call WebBrowser1.Navigate(URL:=.Cells(lngRow, 2).Value)
            Do While WebBrowser1.Busy
                Call Sleep(100)
                DoEvents
            Loop
            Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
                Call Sleep(100)
                DoEvents
            Loop
            Call WebBrowser1.ExecWB(cmdID:=OLECMDID_SELECTALL, _
                cmdexecopt:=OLECMDEXECOPT_DONTPROMPTUSER)
            Call WebBrowser1.ExecWB(OLECMDID_COPY, _
                cmdexecopt:=OLECMDEXECOPT_DONTPROMPTUSER)
            Set objWorksheet = Worksheets.Add(After:=Worksheets(Worksheets.Count))
            With objWorksheet
                Call .Paste(Destination:=.Cells(1, 1))
                Call .Range("1:2,5:6").Delete(Shift:=xlShiftToLeft)
                With .Cells
                    .WrapText = False
                    .MergeCells = False
                End With
                .Name = Worksheets("Links").Cells(lngRow, 1).Value
            End With
        Next
    End With
End Sub

Gruß
Nepumuk
Anzeige
AW: VBA: Schleife über Spalten
07.08.2018 23:18:30
Bernd
Hallo Nepumuk,
zu so später Stunde habe ich gar nicht mehr mit dir gerechnet. Aber nun läuft der Code perfekt durch.
Bin dir wiedermal sehr dankbar!!!
Liebe Grüße aus Bremen
Bernd

58 Forumthreads zu ähnlichen Themen

VBA Schleife für gleiche Zellenwerte
Claudia

Hallo zusammen,
nachdem ich schon sehr lange nicht mehr mit VBA gearbeitet habe fehlt mir jeglicher Ansatz für eine Schleife, die folgende Aufgabe hat:
Ich habe eine Tabelle mit 4 Spalten. In Spalte A können untereinander gleiche Werte mehrfach vorkommen. Solange der Wert gleich ist, s...
12.06.2013 16:02:38
Thread-ID: 1317366
3 Beiträge
Anzeige
VBA Schleife Loeschen von best. Zeilen
best.

Liebes Forum,
ich habe eine Tabelle mit sehr vielen Zeilen in der folgenden Form
Artikelnummer Maschine Fertigungsauftrag Datum Menge Zyklus
Nun soll ein Makro ueber diese Tabelle laufen und zunaechst bei allen Artikeln, die haeufiger als 5x vorkommen, jeweils die Zeilen mit dem ael...
08.03.2015 08:02:50
Thread-ID: 1413538
9 Beiträge
VBA Schleife Zellen auswählen und selektieren
Andreas

Hallo,
trotz langem Suchen habe ich keine Lösung gefunden. Ich hoffe Ihr könnt mich helfen.
Folgende Ausgangssituation:
- Mappe „Makro“ befindet sich nur ein Button mit meiner Makro.
- In der Mappe „Daten“ befinden sich alle Informationen die selektiert und kopiert werden sollen...
08.06.2015 14:34:45
Thread-ID: 1429823
4 Beiträge
Anzeige
Excel2010 - VBA Schleife Zeilen einfügen
Robert

Hallo zusammen
Ich stehe vor folgendem Problem und brauche daher Eure Hilfe.
Folgendes ist gegeben:
Inhalt Tabelle 1 = Kategorie + Infos
Inhalt Tabelle 2 = Rang + Kategorie
Der Rang hat Unterschiedliche Kategorien, und die Kategorien unterschiedliche Infos.
Wobei verschi...
29.03.2019 05:42:24
Thread-ID: 1683959
3 Beiträge
VBA: Zeilen von bis nacheinander durchlaufen
Bongartz

Hallowie kann ich per VBA in den Zeilen 10 bis 100 nacheinander die Zelle in SpalteA aktivieren und in jeder aktiven Zeile einen vergleich aufrufen?Gib es die möglichkeit, anstatt der 100 das Ende der Datensätze automatisch zu ermittlen?Gruß
Bongartz
20.12.2002 16:39:13
Thread-ID: 195624
3 Beiträge
VBA-Schleife (Zeilenschaltung)
Bernd

Hallo,
bei folgendem Code würde ich gerne ein Anpassung vornehmen, die folgendes bewirken soll:
der gesamte Code soll z. B. 20x durchlaufen werden, dabei soll die Zeilenschaltung (For i=) aber jeweils um +1 erhöht werden. D. h. ich erhalte eine Liste mit Werten in Spalte B und C. Diese...
25.01.2008 13:16:55
Thread-ID: 945234
9 Beiträge
VBA - Spalten durchlaufen - Problem bei Übergang von Z zu AA
Z

Hallo zusammen,
ich schreibe gerade an einem meiner ersten VBA-Programme und bin auf ein Problem gestoßen, das ich auch mit stundenlangem googlen nicht lösen konnte. Es wäre super, wenn ihr mir weiterhelfen könntet:
Ich möchte das Sheet "Sheet1" von Spalte C bis Spalte CE durchlaufen...
23.01.2020 11:44:20
Thread-ID: 1736001
7 Beiträge
VBA - Zeilen durchlaufen und in farbige Zellen Wert reinschreiben
Frederic

Hallo,
ich habe folgendes Problem und zwar möchte die Zeilen beginned ab F5 bis NI7 durchlaufen und jeweils in die hellgrünen Kästchen das Volumen pro Tag reinschrieben.
Farbcode ist 43.
Also bspw. von I5 bis BG8 (erste Zeile - grüne Kästchen) das Volumen von 11,25 reinschreiben un...
29.01.2020 16:10:01
Thread-ID: 1737361
3 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm WebBrowser

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
2
8
3
3
2
2
8
6
2
9
5
7
2
8
10
2
8
3
2
3
3
5
2
4