Microsoft Excel

Herbers Excel/VBA-Archiv

Formel ändern ? | Herbers Excel-Forum


Betrifft: Formel ändern ? von: Kurt P
Geschrieben am: 16.10.2008 19:44:07

Guten Abend,
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

  

Betrifft: AW: Formel ändern ? von: Tino
Geschrieben am: 16.10.2008 19:49:56

Hallo,
Du willst sieben Zellen in eine verfrachten und was davon?

Die Summe oder einen zusammenhängenden String oder was?


Gruß Tino


  

Betrifft: AW: Formel ändern ? von: Kurt P
Geschrieben am: 16.10.2008 19:56:42

Hallo Tino,
von in Sheets("Aktuell").Range("F41:F47") die Zeilen von F41 bis F47
soll in
"C41 eingefügt werden, wobei ich dachte das die Zeilen bis C47 ergänzt werden,
mfg Kurt P


  

Betrifft: AW: Formel ändern ? von: Kurt P
Geschrieben am: 16.10.2008 20:03:03

Hallo Tino,
hatte so gedacht:
Sheets("Angebot").Range("C41:C47") = Sheets("Aktuell").Range("F41:F47")
geht aber nicht.
mfg kurt p


  

Betrifft: AW: Formel ändern ? von: Tino
Geschrieben am: 16.10.2008 20:09:00

Hallo,
hier mal zwei Möglichkeiten.

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


  

Betrifft: Danke Tino, habe die 2.Zeile genommen ! -) von: Kurt P
Geschrieben am: 16.10.2008 20:15:28




  

Betrifft: AW: Formel ändern ? von: Matthias L
Geschrieben am: 16.10.2008 20:13:35

Hallo

meinst Du so ?

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


  

Betrifft: Hallo Matthias, Danke für die Hilfe -) von: Kurt P
Geschrieben am: 17.10.2008 16:37:55




Beiträge aus den Excel-Beispielen zum Thema "Formel ändern ?"