Hallo Zusammen,
ich habe folgendes Makro zum Aufruf von Daten aus einer Datenbank, welches bei einzelnen Werten auch funktioniert. Jetzt will ich aber einen größeren Bereich aus der Datenbank wiedergeben ohne aber jede einzelne Zelle angeben zu müssen.
Kann mir hierbei jemand helfen.
Sub Aufruf()
'***** Aufrufen erfasster Daten *****
Set Abf = Sheets("Abfrage")
Set Dab = Sheets("Datenbank")
If Not Dab Is Nothing Then
With Dab
Set r = Dab.Range("A2:A65000").Find(Sheets("Abfrage").[Kennung].Value, , , xlWhole, xlByRows, xlNext)
If Not r Is Nothing Then
Abf.Range("A2:A150") = r.Offset(0, 1 bis 150) ' ?
'Werte aus gefundener Zeile sollen kopiert, transponiert und dann in
'Zellbereich A2:A150 kopiert werden
Abf.Range("A1") = r.Offset(0, 151).Value
Abf.Range("A151") = r.Offset(0, 152).Value
End If
End With
Vielen Dank und viele Grüße
Markus