Supportnet / Forum / Tabellenkalkulation

Hallo zusammen, bin ganz neu hier und habe folgendes Anliegen: Habe folgenden VBA-Code: Sub zahlenvergleich() Dim i As Integer Dim j As Integer Range("C1:C65000").ClearContents For i = 10 To 1 Step -1 If Right(Range("B1"), j) = Right(Range("C1"), j) Then Range("D1") = Right(Range("B1"), j) Else Exit For End If j = j + 1 Next i End Sub Hier werden praktisch die Zahlen von rechts her auf Gleichheit überprüft, aber nur die in B1 und C1. Ergebnis steht dann in D1. Nun meine Frage: Wo und wie baue ich ne Schleife ein, dass das alles auch über mehrere Zeilen geht, z.B. von Zeile 1 bis 500?!? Würd mich sehr über ne Antwort freuen. Vielen Dank schon mal im Voraus!!

Hi,

bei deinem Code kann nie ein richtiges Ergebnis in Spalte D herauskommen, da du ja vor dem Vergleich Spalte C löschst, mit der vergleichen werden soll. Wenn Spalte C gelöscht werden soll, dann kann das erst nach dem Vergleich geschehen

Sub zahlenvergleich()
Dim i As Integer
Dim j As Integer
Dim inZeile As Integer
For inZeile = 1 To 500
For i = 10 To 1 Step -1
If Right(Cells(inZeile, 2), j) = Right(Cells(inZeile, 3), j) Then
Cells(inZeile, 4) = Right(Cells(inZeile, 2), j)
Else
Exit For
End If
j = j + 1
Next i
Next inZeile
Range("C1:C500").ClearContents
End Sub

Hi Berverly, das ging ja rasend schnell!
Vielen vielen Dank für deine Hilfe, muss mich erst mal ins Programmieren und VBA und so reindenken, aber ich glaub ich hab deinen Code weitestgehend verstanden :-)

wichtig ist, dass er funktioniert und das tut er!

Ganz großes Danke nochmal :-)

• Excel: Text in Spalten
• excel numerische spalten
• Exel spalten löschen und leere Spalten mit 0 füllen
• Dynamischer Bericht
• Spalten ausblenden