Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
548to552
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
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

buchstaben zurückzählen

buchstaben zurückzählen
19.01.2005 11:28:59
tino
Hallo,
möchte in einem VBA Befehl Buchstaben zurückzählen,
in einer For-Next Schleife
Beispiel:
buchst=Q
For a = 1 To 7
If Range(buchst & "19") = Range(buchst & "15") Then
With Range(buchst & "19").Interior
.ColorIndex = 4
End With
End If
'''' hier sollte aus "buchst=Q" ,
'''' 1. Durchlauf buchst=P ,
'''' 2. Durchlauf buchst=O ... usw. werden
Next a
aus "buchst=Q" soll nach dem ersten durchlauf "buchst=P" werden usw.
Wie könne ich dies schreiben?

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

Betreff
Datum
Anwender
Anzeige
AW: buchstaben zurückzählen
IngoG
Hallo Tino,
Du könntest zB folgendermassen vorgehen...
buchst="Q"
zz=range(buchst & "1").column
For a = zz To zz-6 step -1
If cells(19,zz) = cells(15,zz) Then
cells(19,zz).Interior.ColorIndex = 4
End If
Next a
habs zawr nicht getestet, sollte eigentlich funzen
gruß Ingo
uups to fast ;-)
IngoG
Es muß nat. heißen:
buchst="Q"
zz=range(buchst & "1").column
For a = zz To zz-6 step -1
If cells(19,a) = cells(15,a) Then
cells(19,a).Interior.ColorIndex = 4
End If
Next a
Gruß Ingo
PS eine Rückmeldung wäre nett...
AW: uups to fast ;-)
19.01.2005 12:24:23
tino
hallo IngoG,
so gehts
danke
Anzeige
Danke für die Rückmeldung oT
IngoG
.

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige