Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
204to208
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
204to208
204to208
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

vereinfachen

vereinfachen
17.01.2003 11:39:04
Bastian
Ich habe mal denn Teil mitreingepackt um den es geht...
Meine Frage ist nun wie ich nun am bestens vereinfachen kann, da jeder zeile eine andere Range zugeordnet wird...

For zeile = 1 To 21 Step 10
If zeile = 1 Then
probe = "A6:L9"
End If
If zeile = 11 Then
probe = "A16:L19"
End If
If zeile = 21 Then
probe = "A26:L29"
End If

Vielen Dank im schon mal

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: vereinfachen
17.01.2003 11:45:33
Hajo_ZI
Halo Bastian

arbeir mit elseif dann wird nicht jedesmal alle vergleiche durchgeführt. Den Sinn der For Next Schleife ist mir schleierhaft.

If zeile = 1 Then
probe = "A6:L9"
ElseIf zeile = 11 Then
probe = "A16:L19"
elseIf zeile = 21 Then
probe = "A26:L29"
End If

Gruß Georg

Re: vereinfachen
17.01.2003 11:46:24
Nepumuk
Hallo Bastian,

For zeile = 1 To 21 Step 10
probe = "A" & CStr(zeile + 5) & ":L" & CStr(zeile + 8)

Gruß Nepumuk

Re: vereinfachen
17.01.2003 11:46:50
Holger Levetzow
versuche mal folgendes:

Sub test()
For zeile = 1 To 21 Step 10
probe = "A" & (zeile - 1) + 6 & ":L" & (zeile - 1) + 9
...
Next
End Sub

Holger

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige