Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
848to852
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
848to852
848to852
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Spaltenbuchstaben in Zahl für Schleife wandeln

Spaltenbuchstaben in Zahl für Schleife wandeln
05.03.2007 13:31:00
Boris
Hallo,
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spaltenbuchstaben in Zahl für Schleife wandeln
05.03.2007 13:40:08
EtoPHG
Hallo Boris,
Ersetze Deine beiden Zeilencode mit diesen hier:

ColStart = .Range(.Range("B11").Value & "1").Column
ColEnd = .Range(.Range("C11").Value & "1").Column

Gruiss Hansueli
AW: Spaltenbuchstaben in Zahl für Schleife wandeln
05.03.2007 13:47:00
Boris
Hallo,
super, funktioniert! Vielen Dank...
Das hätte ich mir allerdings fast selber überlegen können, manchmal denkt man einfach zu kompliziert:))
Viele Grüße,
Boris
AW: Spaltenbuchstaben in Zahl für Schleife wandeln
05.03.2007 13:55:00
EtoPHG
Hallo Boris,
Na, ja Fragen kann nie schaden
P.S. Zu Deinem Code, du weisst sicher, dass ein Konstrukt wie dieses:

Dim RowStart, RowEnd, ColStart, ColEnd As Long

Nur die Variable ColEnd als Long definiert, alle andern sind Variant!
Gruss Hansueli
Anzeige
AW: Spaltenbuchstaben in Zahl für Schleife wandeln
05.03.2007 13:57:52
Boris
Ups,
nein, das wusste ich nicht... wieder etwas gelernt.
Danke für den Hinweis!!!

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige