Vereinfachen von Select Case
29.02.2004 01:06:57
Manu
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