Referenzierung formatierte Tabelle!
14.07.2017 08:57:39
Sven
ich habe eine Problem mit einer formatierten Tabelle.
Ich habe per Makroaufzeichnung ein paar Funkktionen erstellt und diese sind per
Symbol auf dem Sheet abrufbar.
Wenn ich das Sheet jetzt kopiere (es handelt sich um Monate), habe ich das Problem das die formatierte Tabelle einen neuen Namen bekommt und das Makro einen Fehler ausspuckt, da der Verweis nicht richtig ist!
Wie kann ich denn den Namen dynamisch abfragen/referenzieren?
Bin kein Profi, nur zur Info... ;-))
Hier mein dazugehöriger Code:
Sub neuer_Tag()
' Legt neuen Tag an!
' Sucht erste leere Zeile in Spalte A und kopiert Tag nach unten weiter!
Cells(65000, 1).End(xlUp).Offset(0, 0).Select
ActiveCell.Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:A2"), Type:= _
xlFillDefault
ActiveCell.Range("A1:A2").Select
ActiveCell.Offset(1, 2).Range("Tabelle22[[#Headers],[Datum]]").Select
End Sub
Sub selber_Tag()
' selber_Tag Makro
' Legt selben Tag(gleiches Datum) nochmals an! Wird gebraucht für Ein- und Ausgänge am selben _
_
_
_
_
Tag!
Cells(65000, 1).End(xlUp).Offset(0, 0).Select
ActiveCell.Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:A2"), Type:= _
xlFillDefault
ActiveCell.Range("A1:A2").Select
ActiveCell.Offset(1, 2).Range("Tabelle22[[#Headers],[Datum]]").Select
ActiveCell.Offset(-1, -2).Range("Tabelle22[[#Headers],[Datum]]").Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("Tabelle22[[#Headers],[Datum]]").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 2).Range("Tabelle22[[#Headers],[Datum]]").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub
Sub letzen_Eintrag_loeschen()
' letzen_Eintrag_loeschen Makro
' Löscht letzten Eintrag aus Tabelle! Falls falscher Button vorher gedrückt wurde!
Cells(65000, 1).End(xlUp).Offset(0, 0).Select
ActiveCell.Offset(0, 0).Rows("1:1").EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.Select
End Sub