Irgendwie stehe ich auf dem Schlauch. Ich habe einen dynamischen Bereichsnamen, aus dem ich alle Werte der 1. Spalte dieser Matrix abfragen möchte.
Also Set Suchbereich = "Spalte 1 aus Matrix"
Vielen Dank
Bernd
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
Gruß