habe folgende Formel:
Sheets("Angebot").Range("C41") = Sheets("Aktuell").Range("F41:F47")
habe so versucht, geht nicht:
Sheets("Angebot").Range("C41") = Sheets("Aktuell").Cells(41, 6) & Cells(47, 6)
Wie ?
Danke im voraus,
mfg Kurt P
Option Explicit
Sub Makro1()
'so
Sheets("Aktuell").Range("F41:F47").Copy
Sheets("Angebot").Range("C41:C47").PasteSpecial (xlPasteValues)
'oder
Sheets("Angebot").Range("C41:C47").Value = Sheets("Aktuell").Range("F41:F47").Value
End Sub
Gruß Tino
Sub evtl_so()
Dim x As Byte
For x = 41 To 47
Sheets("Angebot").Cells(x, 3) = Sheets("Aktuell").Cells(x, 6)
Next
End Sub
Gruß Matthias
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen