Spaltenbuchstaben in Zahl für Schleife wandeln
05.03.2007 13:31:00
Boris
für den Vergleich zweier Worksheets möchte ich den User auf einer Startseite den zu vergleichenden Zeilen- und Spaltenbereich eingeben lassen. Folgendes Makro vergleich Sheet 2 und 3 und markiert die Zellen farbig in rot und grün. Der Spaltenbereich muss allerdings numerisch angegeben werden (z.B. von 1 bis 16). Wie schafft man es, als "Buchstaben" angegebene Spalten in der Schleife zu verarbeiten (z.B: A bis BG)?
Sub Vergleich()
Dim ws_alt, ws_neu As Worksheet
Dim RowStart, RowEnd, ColStart, ColEnd As Long
Dim Zeile, Spalte As Long
Set ws_alt = ThisWorkbook.Worksheets(2)
Set ws_neu = ThisWorkbook.Worksheets(3)
With ThisWorkbook.Worksheets(1)
RowStart = .Range("B10").Value
RowEnd = .Range("C10").Value
ColStart = .Range("B11").Value
ColEnd = .Range("C11").Value
End With
For Zeile = RowStart To RowEnd
For Spalte = ColStart To ColEnd
If ws_alt.Cells(Zeile, Spalte).Value <> ws_neu.Cells(Zeile, Spalte).Value Then
ws_neu.Cells(Zeile, Spalte).Interior.ColorIndex = 3
Else
ws_neu.Cells(Zeile, Spalte).Interior.ColorIndex = 50
End If
Next Spalte
Next Zeile
MsgBox "Vergleich ausgeführt", vbOKOnly, ""
End Sub
Viele Grüße,
Boris
Anzeige