Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1172to1176
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
Inhaltsverzeichnis

selcet case anstatt for/next

selcet case anstatt for/next
hotzi
hallo zusammen,
wie kann ich die folg. for/next-schleife durch eine select/case anweisung ersetzen. wichtig ist das in der spalte 10 und 12 die zahl 0 und nicht "-" steht.
freue mich auf eine antwort klaus

Sub test
Dim i as Integer, start as Integer
start=12
For i = 2 To 14
With Cells(start, i)
If i = 10 Or i = 12 Then
.Value = 0
.NumberFormat = "#,##0.00 $"
' .Style = "currency"
Else
.Value = "-"
End If
End With
Next i
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: selcet case anstatt for/next
21.08.2010 15:45:39
Gerd
Hallo Klaus,
bei deiner Konstruktion ist eigentlich lediglich die Zeile variabel. SelectCase nimmt man für eine Vielzahl von Bedingungen. Es ist eher eine erweiterte Möglichkeit zu "IF..THEN..ELSE.. -Bedingungen als zu einer Schleife.
Dann hast Du noch zwei Alternativen bezogen auf konstante Spalten. Somit kannst Du auf die Schleife
ganz verzichten u. Blockbildung betreiben.
Sub test2()
Dim lngZeile As Long
lngZeile = 12
With Union(Range(Cells(lngZeile, 2), Cells(lngZeile, 9)), Cells(lngZeile, 11), Range(Cells( _
lngZeile, 13), Cells(lngZeile, 14)))
.NumberFormat = "#,##0.00 $"
.Value = 0
End With
With Union(Cells(lngZeile, 10), Cells(lngZeile, 12))
.Value = "-"
End With
End Sub
P.S.: In diesem Forum ist ein Foren-ABC erwünscht - A=Anrede B= Frage/Text C=Grußwort u. (realer) Vorname.
Gruß Gerd
Anzeige
AW: selcet case anstatt for/next
21.08.2010 16:39:59
hotzi
hallo gerd,
danke klappt bestens.
ein ABC-gruß von klaus

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige