Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
612to616
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
612to616
612to616
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

jede 3. Spalte durchsuchen

jede 3. Spalte durchsuchen
16.05.2005 22:00:14
Karsten
Hallo zusammen,
Die Zeile 13 meines Worksheets soll per VBA nach dem Maximalwert durchzucht werden und die entsprechende Spaltennummer zurückgegeben werden. Das Problem ist, daß nur jede dritte Spalte bei der Suche berücksichtigt werden darf (z.B. Spalte 3, Spalte 6, Spalte 9...).
Kann mir hier jemand helfen?
Karsten

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: jede 3. Spalte durchsuchen
16.05.2005 22:07:29
Ramses
Hallo
ungetestet mal zum probieren

Sub Max13()
Dim myMax as integer, myC as integer
Dim i as integer
Dim lC as Integer
lc = Range("IV13").End(xltoleft).Column
mymax = 0
for i = 3 to lc step 3
if mymax < cells(13,i) then
mymax = cells(13,i)
myC = i
endif
next i
msgbox myMax & " in Spalte " & left(columns(5).address(false,false),instr(1,columns(5).address(false,false),":")-1)
End Sub

Gruss Rainer
Korrektur :-(
16.05.2005 22:11:23
Ramses
Hallo
man sollte doch richtig lesen was man schreibt.
Der Code muss eigentlich so lauten

Sub Max13()
Dim myMax as integer, myC as integer
Dim i as integer
Dim lC as Integer
lc = Range("IV13").End(xltoleft).Column
mymax = 0
for i = 3 to lc step 3
if mymax < cells(13,i) then
mymax = cells(13,i)
myC = i
endif
next i
msgbox myMax & " in Spalte " & left(columns(lc).address(false,false),instr(1,columns(lc).address(false,false),":")-1)
End Sub

Gruss Rainer
Anzeige
AW: Korrektur :-(
16.05.2005 22:15:13
Jochen
Hi,
funktioniert nicht wenn IV13 nicht leer ist.
mfg Jochen
Weiss ich auch. Machs besser ;-) o.T.
16.05.2005 22:33:06
Ramses
...
warum ohne "pre" ? :-) o.w.T.
16.05.2005 22:54:02
Reinhard
AW: jede 3. Spalte durchsuchen
16.05.2005 22:22:52
Bert
Hi,

Sub jede3()
Dim dblMax As Double, s As Integer, i As Integer
For s = 3 To 255 Step 3
If Cells(13, s) > dblMax Then
dblMax = Cells(13, s)
i = s
End If
Next
MsgBox "Wert: " & dblMax & "   " & "Spalte: " & i
End Sub

mfg Bert

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige