Sub main()
Dim startwert As String
buchstabe = ActiveWorkbook.Worksheets("skalierung").Range("C4").Value


If buchstabe = "A" Then
    startwert = "A5"
ElseIf buchstabe = "B" Then
    startwert = "B5"
ElseIf buchstabe = "C" Then
    startwert = "C5"
ElseIf buchstabe = "D" Then
    startwert = "D5"
End If

Call hole(startwert)

End Sub



Sub hole(startwert As String)
    Sheets("datensaetze").Select
    Range(startwert).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("A1").Select
    '''
    Sheets("skalierung").Select
    Range("E6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    ''''
    Sheets("datensaetze").Select
    Application.CutCopyMode = False
    Sheets("skalierung").Select
End Sub