ich habe eine kleines Problem, dass sich bestimmt ganz einfach mit einer "Case-Anweisung" lösen
ließe. Ich weiß nur leider nicht so richtig, wie.
In einer Zelle steht eine Zahl zwischen 1 und 52. Je nachdem, welche Zahl dort steht, soll eine
bestimmte Spalte auf ein anderes Blatt kopiert werden.
Bisher löse ich das mit einer IF-Anweisung. Bei 52 Fällen natürlich ziemlich umständlich, denke ich.
Zumal die 52 noch deutlich mehr werden könnte . . . So sieht mein Coed zur Zeit aus (Auszug):
Sub daten_holen()
If Sheets("Data Analysis").Range("F221").Value = 1 Then
Sheets("tabelle1").Activate
Range("U10").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("bridge_daten").Select
Range("w10").Select
ActiveSheet.Paste
End If
If Sheets("Data Analysis").Range("F221").Value = 2 Then
Sheets("tabelle1").Activate
Range("ab10").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("bridge_daten").Select
Range("w10").Select
ActiveSheet.Paste
End If
If Sheets("Data Analysis").Range("F221").Value = 3 Then
Sheets("tabelle1").Activate
Range("ai10").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("bridge_daten").Select
Range("w10").Select
ActiveSheet.Paste
End If
End Sub
Könnt Ihr mir bitte auf die Sprünge helfen?
Dankeschön!