Herbers Excel/VBA-Archiv

Formel in Zelle per VBA bis Listenende kopieren

• Formel in Zelle per VBA bis Listenende kopieren von Bernhard vom 12.08.2014 14:08:58
• AW: Formel in Zelle per VBA bis Listenende kopieren - von Tino am 12.08.2014 14:48:45
  • fehlen noch Punkte... - von Tino am 12.08.2014 14:50:18
    • AW: fehlen noch Punkte... - von Bernhard am 12.08.2014 19:04:47
• AW: Formel in Zelle per VBA bis Listenende kopieren - von Daniel am 12.08.2014 17:07:41
  • AW: Formel in Zelle per VBA bis Listenende kopieren - von Bernhard am 13.08.2014 09:54:38
    • AW: Formel in Zelle per VBA bis Listenende kopieren - von Hajo_Zi am 16.08.2014 16:58:14
    • AW: Formel in Zelle per VBA bis Listenende kopieren - von Hajo_Zi am 16.08.2014 19:40:46
      • Warum Doppelt, Hajo? - von Christian am 16.08.2014 20:01:52
      • AW: Formel in Zelle per VBA bis Listenende kopieren - von Bernhard am 18.08.2014 13:06:21

Betrifft: Formel in Zelle per VBA bis Listenende kopieren von: Bernhard
Geschrieben am: 12.08.2014 14:08:58

Hallo Forum,
ich will die Formel, die ich in Zelle D3 stehen habe bis ans Listenende kopieren und nicht darüber hinaus. In Spalte A, B und C stehen manchmal Werte, manchmal nicht.
Ich habe bereits mit dieser Formel experimentiert - aber es tut nicht:

Cells(3, 4).Copy Range(Cells(4, 4), Cells(Rows.Count, 2).End(xlUp).Offset(, 1))

Irgendwas ist falsch..

Würde mich riesig freuen, wenn mir ein kundiger Mensch helfen könnte!!!

Vorab schon mal vielen Dank!!

Bernhard

Betrifft: AW: Formel in Zelle per VBA bis Listenende kopieren von: Tino
Geschrieben am: 12.08.2014 14:48:45

Hallo,
vielleicht geht es so?

Sub VielleichtSo()
Dim MaxRow&

With Tabelle1 'Tabelle anpassen
    MaxRow = Application.WorksheetFunction.Max( _
            .Cells(.Rows.Count, 1).End(xlUp).Row, _
            .Cells(.Rows.Count, 2).End(xlUp).Row, _
            .Cells(.Rows.Count, 3).End(xlUp).Row)
            
    If MaxRow > 3 Then
        Range(Cells(3, 4), Cells(MaxRow, 4)).FormulaR1C1 = Cells(3, 4).FormulaR1C1
    End If
End With

End Sub

Gruß Tino

Betrifft: fehlen noch Punkte... von: Tino
Geschrieben am: 12.08.2014 14:50:18

Hallo,

Sub VielleichtSo()
Dim MaxRow&

With Tabelle1 'Tabelle anpassen
    MaxRow = Application.WorksheetFunction.Max( _
            .Cells(.Rows.Count, 1).End(xlUp).Row, _
            .Cells(.Rows.Count, 2).End(xlUp).Row, _
            .Cells(.Rows.Count, 3).End(xlUp).Row)
            
    If MaxRow > 3 Then
        .Range(.Cells(3, 4), .Cells(MaxRow, 4)).FormulaR1C1 = .Cells(3, 4).FormulaR1C1
    End If
End With

End Sub

Gruß Tino

Betrifft: AW: fehlen noch Punkte... von: Bernhard
Geschrieben am: 12.08.2014 19:04:47

Hi Tino - VIELEN DANK für Deine prompte Hilfe! Das paßt!

Betrifft: AW: Formel in Zelle per VBA bis Listenende kopieren von: Daniel
Geschrieben am: 12.08.2014 17:07:41

Hi

der Fehler in deinem Code ist folgender:
- die Formel steht in Spalte D (4)
- du ermittelst die letzte befüllte Zeile in Spalte B (2)
um von der Spalte B (2) in die Spalte D (4) zu kommen brauchst du ein Offset(0, 2)
du hast aber nur eines von 1 und landest damit in Spalte C und überschreibst damit die Werte in dieser Spalte mit der Formel aus D3.

aber wie gesagt, du prüfst hier nur Spalte B und wenn auch die anderen Spalten geprüft werden müssen, dann kannst du ja den Code von Tino verwenden.

Gruß Daniel

Betrifft: AW: Formel in Zelle per VBA bis Listenende kopieren von: Bernhard
Geschrieben am: 13.08.2014 09:54:38

Hallo Daniel, danke... wenn ich die Formel so erklärt bekomme ist das fürs Verständnis deutlich besser als nur Formeln nehmen und ins Makro reinkopieren! Ich bin immer wieder begeistert wie hilfsbereit hier alle sind. Tolles Forum. Vielen Dank!!!!!

Betrifft: AW: Formel in Zelle per VBA bis Listenende kopieren von: Hajo_Zi
Geschrieben am: 16.08.2014 16:58:14

was ist noch offen?

Betrifft: AW: Formel in Zelle per VBA bis Listenende kopieren von: Hajo_Zi
Geschrieben am: 16.08.2014 19:40:46

was ist noch offen?

Betrifft: Warum Doppelt, Hajo? von: Christian
Geschrieben am: 16.08.2014 20:01:52

Betrifft: AW: Formel in Zelle per VBA bis Listenende kopieren von: Bernhard
Geschrieben am: 18.08.2014 13:06:21

Upps... da habe ich versehentlich ein Häkchen ins Kästchen für nicht beantwortete Frage gemacht. Sorry :-( soll nicht wieder vorkommen.
Trotzdem allen Beteiligten vielen Dank!!!!

Beiträge aus den Excel-Beispielen zum Thema "Formel in Zelle per VBA bis Listenende kopieren"