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

Vereinfachen von Select Case

Vereinfachen von Select Case
29.02.2004 01:06:57
Manu
Hallo Ihr alle da.Nachfolgend ein Ausschnitt aus einem Makro.
Seid Ihr so nett und schaut mal ob man die Case Is = ... nicht irgendwie verkürzen kann (schleife etc.)damit ich nicht jedes mögliche Feld einzeln auflisten muss (Also Case is = A6 und Case is = A7....).
Danke (Vielen Dank) für eure Mühe.
Manu
Cells.find(What:=Gewählt).Activate
gefundenesFeld = ActiveCell.Address
'gh = Rows.Count
Select Case gefundenesFeld
Case Is = "$A$5"
Range("C5").Select
Selection.Copy

Case Is = "$A$6"
Range("C6").Select
Selection.Copy

Case Is = "$A$7"
Range("C7").Select
Selection.Copy

Case Is = "$A$8"
Range("C8").Select
Selection.Copy

Case Is = "$A$9"
Range("C9").Select
Selection.Copy

Case Is = "$A$10"
Range("C10").Select
Selection.Copy

Case Is = "$A$11"
Range("C11").Select
Selection.Copy

Case Is = "$A$12"
Range("C12").Select
Selection.Copy

Case Is = "$A$13"
Range("C13").Select
Selection.Copy

Case Is = "$A$14"
Range("C14").Select
Selection.Copy

Case Is = "$A$15"
Range("C15").Select
Selection.Copy

Case Is = "$A$16"
Range("C16").Select
Selection.Copy

Case Is = "$A$17"
Range("C17").Select
Selection.Copy

Case Is = "$A$18"
Range("C18").Select
Selection.Copy

Case Is = "$A$19"
Range("C19").Select
Selection.Copy

Case Is = "$A$20"
Range("C20").Select
Selection.Copy
End Select
ActiveWorkbook.Close _
SaveChanges:=False
Sheets("Viskosität").Select

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

Betreff
Datum
Anwender
Anzeige
AW: Vereinfachen von Select Case
29.02.2004 01:41:32
PeterW
Hallo Manu,
dass VBA in der Regel ohne Select und Activate auskommt hast du hier im Forum bestimmt schon mitbekommen. ;-)
Ohne die Aufgabe und den kompletten Code zu kennen würde ich es so versuchen:
Cells.find(What:=Gewählt).Activate
'gh = Rows.Count
Cells(3, ActiveCell.Column).Copy
Gruß
Peter
Danke schön
29.02.2004 02:11:31
Manu
Danke schön Peter.
Ich habe es angepasst und es klappt gut.
Ich habe es auch gehört mit dem nicht erforderlichen Select...
Nur bin ich halt ein wirrer Geist - und versuche in Zukunft auch tpfer ohne Select.. auszukommen.
Alles Liebe Manu
AW: Vereinfachen von Select Case
29.02.2004 01:45:40
FP
Hallo Manu,
Ersetze den ganzen "Select Case" Block durch:
With ActiveCell.Offset(0,2).Copy
Servus aus dem Salzkammergut
Franz
Anzeige
AW: Vereinfachen von Select Case
29.02.2004 01:47:57
FP
Hallo Manu,
Sorry, soll natürlich heissen:
ActiveCell.Offset(0,2).Copy
also das "With" weglassen
Servus aus dem Salzkammergut
Franz

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige