Wie ich meinen aktuellen VBA-Code umschlinge

Question

Ich muss mit Schleife meine vorhandene VBA ändern. Ich habe einen Teil der Website-Link in Spalte A. Ich möchte dynamisch unter dieser Zeile.

ticjername = Sheet1.Range("A1").Value 

ich Schleife brauche es, weil ich diesen Code fortsetzen wollen, bis die Daten in Spalte A My-Code gefunden:

Sub Macro1() 
' 
' Macro1 Macro 
' 
' Keyboard Shortcut: Ctrl+q 
' 

Dim ticjername As String 
ticjername = Sheet1.Range("A1").Value 
mURL$ = "http://www.example.com=" & ticjername 
    With ActiveSheet.QueryTables.Add(Connection:= _ 
     "URL;" & mURL, Destination:=Range("B1")) 
     .Name = " " 
     .FieldNames = True 
     .RowNumbers = False 
     .FillAdjacentFormulas = False 
     .PreserveFormatting = True 
     .RefreshOnFileOpen = False 
     .BackgroundQuery = True 
     .RefreshStyle = xlInsertDeleteCells 
     .SavePassword = False 
     .SaveData = True 
     .AdjustColumnWidth = False 
     .RefreshPeriod = 0 
     .WebSelectionType = xlSpecifiedTables 
     .WebFormatting = xlWebFormattingNone 
     .WebTables = "1" 
     .WebPreFormattedTextToColumns = True 
     .WebConsecutiveDelimitersAsOne = True 
     .WebSingleBlockTextImport = False 
     .WebDisableDateRecognition = False 
     .WebDisableRedirections = False 
     .Refresh BackgroundQuery:=False 
    End With 

Columns("B:C").Select 
    Selection.Delete Shift:=xlToLeft 
    Columns("B:B").Select 
    Selection.SpecialCells(xlCellTypeBlanks).Select 
    Selection.Delete Shift:=xlUp 
    Range("B1").Select 
    Range(Selection, Selection.End(xlDown)).Select 
    Selection.Cut 
    Sheets("Sheet2").Select 
    ActiveCell.Select 
    ActiveSheet.Paste 
    Range("A" & Rows.Count).End(xlUp).Offset(1).Select 
End Sub 

Answer 1

Try Code unten

Dim rowID As Integer 
    rowID = 1 
    Do 

     '<Your code> 

     rowID = rowID + 1 
    Loop Until Sheet1.Cells(rowID, 1).Value = "" 

Kredit geht zu www.stackoverflow.com