Clever-Excel-Forum

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

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

Hallo

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

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

Hallo Tom,

funktioniert super.

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

VG Mario

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

Hallo Atilla,

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

LG Mario

Mario

Crazy Tom

Crazy Tom

Mario

atilla

Mario