copy u. paste special
04.08.2007 14:57:00
klausk
ich versuche mittels einem Code, den mir freundlicherweise Hajo überlassen hat, die Werte aus einer Reihe von Blättern einer Mappe in die Mappe "Übersicht" zu kopieren.
Irgendwie komme ich trotz vieler Versuche nicht über das Fehlerstadium hinaus.
Private Sub CommandButton1_Click()
Dim LoI As Long
Dim WsTabelle As Worksheet
LoI = 3
For Each WsTabelle In Worksheets
If WsTabelle.Name "Übersicht" Then
WsTabelle.Range("E39").copy
WsTabelle("Übersicht").Cells(LoI, 2).Select
PasteSpecial Paste:=xlValues
LoI = LoI + 1
End If
Next WsTabelle
End Sub
Bitte um Hilfe und sag schon mal danke
Klaus
Anzeige