Sub DatenAuslesen()
Dim Zelle As Range, rngSuchbereich As Range
Set rngSuchbereich = Range("db").Columns(1)
For Each Zelle In rngSuchbereich.Cells
Debug.Print Zelle.Value, Zelle.Address, rngSuchbereich.Address
Next Zelle
End Sub
Sub test3()
Dim rngBereich As Range, zelle As Range
Set rngBereich = Range("db")
For Each zelle In rngBereich
Debug.Print zelle.Value, zelle.Address, rngBereich.Address
Next zelle
End Sub
Sub test3()
Dim rngBereich As Range, zelle As Range
Set rngBereich = Range("db").Columns(1)
For Each zelle In rngBereich.Cells
Debug.Print zelle.Value, zelle.Address, rngBereich.Address
Next zelle
End Sub
Public Sub MatrixAbfragen()
Dim WkSh As Worksheet
Dim lLetzte As Long
Dim vTemp As Variant
Dim lZeile As Long
Set WkSh = ThisWorkbook.Worksheets("Tabelle1")
lLetzte = WkSh.Cells(Rows.Count, 1).End(xlUp).Row
Set vTemp = WkSh.Range("A1:A" & lLetzte)
For lZeile = 1 To lLetzte
MsgBox vTemp(lZeile, 1)
Next lZeile
End Sub
Sub DatenAuslesen()
Dim Zelle As Range, rngSuchbereich As Range
Set rngSuchbereich = Range(Range("db").Columns(1).Address)
For Each Zelle In rngSuchbereich
Debug.Print Zelle, Zelle.Address, rngSuchbereich.Address
Next Zelle
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen