Hallo,
ich suche für 2 Makros eine Lösung ohne Select, damit ich nicht das Tabellenblatt öffnen muss.
Wie könnte das funktionieren:
1.)
Sheets("Rechnungsbuch").Visible = xlSheetVisible
'neue Rechnungsnummer zuordnen
Sheets("Rechnungsbuch").Select
Range("A60000").End(xlUp).Offset(0, 0).Select
Value = Selection + 1
Sheets("Rechnung").Select
Range("I21") = Value
Sheets("Rechnungsbuch").Visible = xlSheetUnVisible
2.)
Sheets("Artikel").Visible = xlSheetVisible
Sheets("Artikel").Select
Selection.Range("A2", Cells(Rows.Count, 1).End(xlUp).Offset(0, 7)). _
Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range( _
"A2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
Sheets("Artikel").Visible = xlSheetUnVisible
Wäre toll, wenn es auch ohne Select geht.
Lieben Gruß,
Larissa