title image


Smiley Re: Sheetname als Variable

Hast Du ein Beispiel in der Form von Quelle und Ziel ?

 

 

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Sub sortieren()

Dim ende As Long  

'letzte Zeile

ende = Split(Split(ActiveSheet.UsedRange.Address, ":")(1), "$")(2)  

 

ActiveSheet.Range("C4:G" & ende).Sort Key1:=Range("C4"),

Order1:=xlAscending, Header:=xlGuess, _

        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

        DataOption1:=xlSortNormal

End Sub

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

 

Das ist mein Code. Ich erhalte aber immer die Fehlermeldung Sub oder Function nicht definiert

 



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: