Index außerhalb des gültigen Bereichs
Korl
ich habe habe lange nicht mehr im VBA-Bereich gemacht, deshalb ist mir wohl einiges abhanden gekommen ;-)
Mit nachfolgendem Code stoße ich an Grenzen. Fehlerwert = siehe Betreff
Sub Daten_übernehmen()
' Daten aus der Datenbank ins Formular übernehmen
' aus der aktiven Zeile einzelne Werte in Tabelle "Formular" kopieren
Dim wksQ As Worksheet
Dim wksD As Worksheet
Set wksQ = Worksheets(Formular)
Set wksD = Worksheets(Datenbank)
Application.ScreenUpdating = False
wksD.Cells(ActiveCell.Row, 1).Copy
wksQ.Cells(3, 5).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
wksD.Cells(ActiveCell.Row, 2).Copy
wksQ.Cells(4, 5).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
wksD.Cells(ActiveCell.Row, 7).Copy
wksQ.Cells(5, 5).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
wksD.Cells(ActiveCell.Row, 8).Copy
wksQ.Cells(7, 5).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
wksD.Cells(ActiveCell.Row, 9).Copy
wksQ.Cells(8, 5).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
wksD.Cells(ActiveCell.Row, 10).Copy
wksQ.Cells(9, 5).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Für Eure Hilfe bedanke ich mich schon mal im voraus.
Gruß Korl
Anzeige