Werte in anderes Tabellenblatt kopieren mit VBA

[Mario]

Hallo zusammen,

ich benötige mal wieder Hilfe  :69: .
Ich möchte per VBA Werte in ein anderes Tabellenblatt kopieren, wenn diese größer Null sind.

Ich benötige dies per VBA, da im Ziel keine Formeln stehen sollen.

Ich habe nun folgenden Code:

Code:

Private Sub Worksheet_Calculate()

  With Worksheets("Tabelle1").Range("A2:A13")
      .Value = Worksheets("Tabelle2").Range("C2:C13").Value
      .Replace what:="0", Replacement:=""
 
  End With
 
End Sub

Leider werden mir die anstatt 200 Euro nur 20 Euro im Ziel ausgegeben.
Könnt hier hier eventuell helfen?

Danke und LG
Mario

[Crazy Tom]

Hallo

wozu ist das Replace gut?

Code:

Private Sub Worksheet_Calculate()

  With Worksheets("Tabelle1").Range("A2:A13")
      .Value = Worksheets("Tabelle2").Range("C2:C13").Value
  End With
 
End Sub

MfG Tom

[Crazy Tom]

Hallo

mal ein anderer Weg
ich würde in dem Fall allerdings lieber die 0 sehen als nüscht

Code:

Private Sub Worksheet_Calculate()
   Dim rngZelle As Range
   With Worksheets("Tabelle1").Range("A2.A13")
       Set rngBereich = .Range("A2:A13")
       .Value = Worksheets("Tabelle2").Range("C2:C13").Value
       For Each rngZelle In .Range("A2.A13")
           If rngZelle.Value = 0 Then
               rngZelle.Value = ""
           End If
       Next
   End With
End Sub

MfG Tom

[Mario]

Hallo Tom,

funktioniert super.

Vielen Dank  :23: und noch ein schönes WE.

VG Mario

[atilla]

Hallo,

wen nur Formelergebnisse in den Zellen sind, dann ginge es auch so:

Code:

Private Sub Worksheet_Calculate()

 Worksheets("Tabelle2").Range("C2:C13").SpecialCells(xlCellTypeFormulas, 1).Copy
 Worksheets("Tabelle1").Range("A2").PasteSpecial Paste:=xlPasteValues
 
End Sub

[Mario]

Hallo Atilla,

auch die ein sehr großes Danke für deine Hilfe.

LG Mario