ich habe ein kleines Problem mit einer Sources:= Zuweisung. Ich habe mir ein kleines Makro für eine Konsolidierung geschrieben, anfangs hatte ich dabei Namen für die Datenquelle und das entsprechende Ziel definiert, damit funktionierte es einwandfrei. Jedoch muss ich dies ändern, da ich immer wieder Zeilen einfüge. Bei der Zuweisung des Zielbereiches(Tabelle1) habe ich keine Probleme, jedoch bekomme ich die Zuweisung der Quelle nicht hin, da sich diese auf dem zweiten Tabellenblatt befindet.
Vielleich könnt Ihr Euch ja mal diesen Programmteil anschauen.
Private Sub ButtonEreignisdatumZuweisen_Click()
Dim LZziel
Dim LZquelle
LZziel = Sheets(1).Cells(Rows.Count, 3).End(xlUp).Row
LZquelle = Sheets(2).Cells(Rows.Count, 3).End(xlUp).Row
Range(Cells(8, 4), Cells(LZziel, 5)).Select 'Zielbereich
Selection.Consolidate Sources:=Range(Sheets(2).Cells(6, 3), Sheets(2).Cells(LZquelle, 4)) _
, Function:=xlSum, TopRow:=True, LeftColumn:=True, CreateLinks:=False
Range("E5").Select
End Sub