Nur Werte einfügen
13.03.2007 18:15:00
petra
habe folgenden Makro:
Sub kopieren()
Dim rngfind As Range
With Sheets("Tätigkeiten Übersicht")
Set rngfind = .Rows("3").Find _
(what:=Sheets("Tätigkeiten nach Uhrzeit").Range("B2"), After:=.Range("E3"), LookIn:=xlValues)
If rngfind Is Nothing Then
MsgBox "Datum nicht gefunden"
Exit Sub
End If
Range("BI5:BI38").Copy rngfind.Offset(2, 0)
End With
End Sub
Der Makro kopiert den Bereich BI5:BI38 aus Tabelle Tätigkeiten nach Uhrzeit und fügt die Werte je nach Angabe in B2 in die entsprechende Spalte des Tabellenblattes Tätigkeiten Übersicht.
Das einzige Problem dabei ist, dass er mir nur die Formeln kopiert, ich aber lediglich die Werte eingefügt haben möchte.
Sitzt jetzt schon ne Weile davor und komm nicht drauf. Vielleicht hat ja jemand von euch ne Idee.
Danke schon mal.
Gruß
petra