größer 0 ja sonst nein

hi,
Ich habe schon viel von diesem Forum gehört und mich auch ein wenig in der Recherche umgesehen aber für mich keine Lösung gefunden.
Ich habe nämlich folgendes Problem,
ich kopiere Zeile A nach Zeile B und möchte bei dem kopiervorgang beschriebene Zellen in Zeile B nur dann überschreiben wenn der Wert aus Zeile A größer 0 ist, das heißt wird eine leere Zelle aus Zeile A in eine beschriebene Zelle in Zeile B kopiert darf diese nicht gelöscht werden sondern es sollte der Inhalt bestehen bleiben.
Ich habe mit dem Recorder versucht: kopiere Zeile A nach Zeile B und füge Inhalte ein, aber dann werden wie gesagt meine bestehenden Inhalte in Zeile B durch leere aus Zeile A ersetzt.
Frage gibt es eine Formel die ich in Zeile B schreiben kann
die automatisch erkennt, wenn Wert größer 0 dann zulassen sonst nicht dann meinen Wert erhalten.
Vieleicht hattet ihr hier mal ein ähnliches Problem und eine Lösung?
Grüsse von der Ostsee
holg

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub KopierenBedingt() Dim arrZ1 As Variant, arrZ2 As Variant Dim n As Integer arrZ1 = Rows(4) 'Zeile die Kopiert wird arrZ2 = Rows(10) 'Zeile in die eingefügt wird For n = 1 To UBound(arrZ1, 2) If arrZ2(1, n) = 0 Then arrZ2(1, n) = arrZ1(1, n) End If Next Rows(10) = arrZ2 End Sub

Sub KopierenBedingt() Dim arrZ1 As Variant, arrZ2 As Variant Dim n As Integer arrZ1 = Rows(1) 'Zeile die Kopiert wird arrZ2 = Rows(2) 'Zeile in die eingefügt wird For n = 1 To UBound(arrZ1, 2) If arrZ1(1, n) <> 0 Then arrZ2(1, n) = arrZ1(1, n) End If Next Rows(2) = arrZ2 End Sub

Private Sub CommandButton1_Cklick() Dim arrZ1 As Variant, arrZ2 As Variant Dim n As Integer arrZ1 = Rows(1) 'Zeile die Kopiert wird arrZ2 = Rows(2) 'Zeile in die eingefügt wird For n = 1 To UBound(arrZ1, 2) If arrZ1(1, n) <> 0 Then arrZ2(1, n) = arrZ1(1, n) End If Next Rows(2) = arrZ2 End Sub

Private Sub CommandButton1_Click() Dim arrZ1 As Variant, arrZ2 As Variant Dim n As Integer arrZ1 = Rows(1) 'Zeile die Kopiert wird arrZ2 = Rows("2:3") 'Zeile in die eingefügt wird' For n = 1 To UBound(arrZ1, 2) If arrZ1(1, n) <> 0 Then arrZ2(1, n) = arrZ1(1, n) End If Next Rows("2:3") = arrZ2 End Sub

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

87 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

größer 0 ja sonst nein

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

87 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread