AW: vielleicht bist Du nur im falschen Sheet ?
23.07.2011 20:14:50
Korl
Hallo Matthias,
danke für Dein Interesse.
So sieht der gesamte Code aus:
Sub BSM_übernehmen()
' Daten für BSM aus der Datenbank ins Formular übernehmen
' aus der aktiven Zeile einzelne Werte in Tabelle "Formular" kopieren
Set wksQ = Worksheets("Formular")
Set wksD = Worksheets("Datenbank")
Application.ScreenUpdating = False
wksD.Cells(ActiveCell.Row, 1).Copy
wksQ.Cells(3, 5).PasteSpecial Paste:=xlPasteValues
wksD.Cells(ActiveCell.Row, 2).Copy
wksQ.Cells(4, 5).PasteSpecial Paste:=xlPasteValues
wksD.Cells(ActiveCell.Row, 7).Copy
wksQ.Cells(5, 5).PasteSpecial Paste:=xlPasteValues
wksD.Cells(ActiveCell.Row, 8).Copy
wksQ.Cells(7, 5).PasteSpecial Paste:=xlPasteValues
wksD.Cells(ActiveCell.Row, 9).Copy
wksQ.Cells(8, 5).PasteSpecial Paste:=xlPasteValues
wksD.Cells(ActiveCell.Row, 10).Copy
wksQ.Cells(9, 5).PasteSpecial Paste:=xlPasteValues
wksQ.Range("O5").Copy
wksQ.Range("E5").PasteSpecial Paste:=xlPasteValues
wksQ.Range("O7").Copy
wksQ.Range("E7").PasteSpecial Paste:=xlPasteValues
wksQ.Range("O8").Copy
wksQ.Range("E8").PasteSpecial Paste:=xlPasteValues
wksQ.Range("O9").Copy
wksQ.Range("E9").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
' wksQ.Range("C13").Select
Application.ScreenUpdating = True
End Sub
Gruß Korl