Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Excel-Anfänger vom 30.05.2019, 07:48 Options
Zahlenvergleich über mehrere Spalten
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!!
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!!
Antwort 1 von Beverly vom 30.05.2019, 08:06 Options
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
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
Antwort 2 von Excel-Anfänger vom 30.05.2019, 08:24 Options
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 :-)
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 :-)
Ähnliche Themen
Excel: Text in Spalten
rengren52 09.02.2007 - 147 Hits -
excel numerische spalten
smd 23.04.2007 - 167 Hits - 1 Antwort
Exel spalten löschen und leere Spalten mit 0 füllen
Sandrak 16.06.2007 - 135 Hits - 9 Antworten
Dynamischer Bericht
Mrfivejunior 11.01.2008 - 101 Hits - 2 Antworten
Spalten ausblenden
gplus 25.02.2008 - 202 Hits - 3 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
