Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Range funktioniert nicht bei auto open

Frage Microsoft Microsoft Office

Mitglied: DerBifi

DerBifi (Level 1) - Jetzt verbinden

20.12.2009 um 22:24 Uhr, 7153 Aufrufe, 7 Kommentare

Guten Abend zusammen,

Problem: Makro funktioniert bei manueller Betätigung aber nicht bei auto_open oder bei Private Sub Workbook_Open()

Hier ist der Code, dass Ihr Euch das besser vorstellen könnt:

Sub sort()
'
' sort Makro
'

'
Range("A8:A15773").Select
ActiveWorkbook.Worksheets("HS2_lower_kurz").sort.SortFields.Clear
ActiveWorkbook.Worksheets("HS2_lower_kurz").sort.SortFields.Add Key:=Range( _
"A8"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("HS2_lower_kurz").sort
.SetRange Range("A8:A15773")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Excel-Version: 2007, kann aber auch auf 2003 zurück gehen wenn es daran hängt.

Ziel ist, die Felder A8 bis A15773 zu markieren und die Werte zu sortieren. Bei automatischer Ausführung bekomme ich eine Fehlermeldung in der Range-Zeile am Anfang. Wo liegt mein Fehler?

Das alles ist ein Teil einer automatischen Auswertung, deshalb kann ich zwischendurch nicht manuell das Makro starten.

Würde mich riesig über Hilfe freuen, ich komme einfach nicht mehr weiter.

Viele Grüße
Bifi
Mitglied: 83928
21.12.2009 um 08:22 Uhr
Hallo Bifi,

hab die Funktion eben unter 2003 getestet. Funktionsaufruf war in Workbook_open untergebracht. Bei mir tritt kein Fehler auf (zumindest erst in der 2ten Zeile, aber auch nur weil es ein Worksheet mit dem Namen bei mir nicht gibt).

Hast Du es mit ThisWorkbook.Worksheets("Name").Range("A8:A15773").Select probiert? Evtl. hilft das.
Ist das Tabellenblatt geschützt o.ä.?

Gruß abaaba

P.S.: Benutze hier lieber ThisWorkbook statt ActiveWorkbook
Bitte warten ..
Mitglied: DerBifi
21.12.2009 um 08:56 Uhr
Guten Morgen,

das Tabellenblatt ist nicht geschützt oder so.

Habe gerade den Tipp mit dem "ThisWorkbook" ausprobiert, hat leider nicht funktioniert.

Eine andere Überlegung von mir wäre jetzt, das Excel-file per Batch zu öffnen und dann per Batch quasi-manuell das Makro starten. Wie komme ich an den Pfad des Makros? Dann könnte ich auto_open und Private Sub Workbook open () umgehen, denke ich.

Gruß Bifi
Bitte warten ..
Mitglied: 83928
21.12.2009 um 09:45 Uhr
Eine Timerprozedur wär auch denkbar.
Du schreibst das Du auf 2003 zurückgehen kannst. Das wär vermutlich die einfachere und saubere Methode.
Ach ja, nicht das das vllt. wichtig wäre oder so - wie lautet denn die Fehlermeldung ;)
Bitte warten ..
Mitglied: DerBifi
21.12.2009 um 10:40 Uhr
Zuerst mal vielen Dank für Deine Bemühungen.

Ich hab jetzt hin und her probiert und nix hinbekommen, bin wieder in Excel 2003

Hier die Fehlermeldungen:

Bei Code wie oben: Laufzeitfehler '1004': Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen

Bei ThisWorkbook...: Laufzeitfehler '1004': Die Select-Methode des Range-Objekts konnte nicht ausgeführt werden

Bei ActiveWorkbook...: Laufzeitfehler '91': Objektvariable oder With-Blockvariable nicht festgelegt.

Dachte dann es liegt am Namen des Arbeitsblattes wegen der _ und hab alles in Tabelle1 geändert, bringt auch nix.

Was kann ich noch probieren?
Hab die Fehlermeldungen auch gegoogelt, bin nicht weiter gekommen.
Bitte warten ..
Mitglied: 76109
21.12.2009 um 10:42 Uhr
Hallo DerBifi!

Das hier sollte funktionieren:
01.
Private Sub Workbook_Open() 
02.
    Call SortColumnA 
03.
End Sub 
04.
 
05.
Sub SortColumnA() 
06.
    With Sheets("HS2_lower_kurz") 
07.
        .Range("A8:A15773").Sort Key1:=.Range("A8"), Header:=xlNo 
08.
    End With 
09.
End Sub
wobei die anderen Sort-Optionen in Deinem Code schon als Standardwerte gesetzt sind.

Gruß Dieter
Bitte warten ..
Mitglied: DerBifi
21.12.2009 um 11:01 Uhr
Vielen Dank, das war's es läuft!!!

Wünsche Euch allen eine frohe Weihnachtszeit
Bitte warten ..
Mitglied: Biber
21.12.2009 um 11:06 Uhr
Moin DerBifi,

ich vermute ähnlich wie abaaba, dass gar nicht das gewünschte Tabellenblatt "den Fokus hat".

Ich würde allerdings lediglich vor die erste deiner vorhandenen Codezeilen setzen

ThisWorkbook.Worksheets("HS2_lower_kurz").Activate

Begründung:
Wenn die Redmonder PraktikantInnenen nicht vollkommen blond programmiert haben,
dann ist der AutoStart-Makro natürlich an genau ein bestimmtes Workbook gebunden, also ist "ThisWorkbook" bekannt und activated.
Falls aber das Workbook mehrere Sheets enthält, dann muss nicht zwangsweise eines davon aktiv sein.

Grüße
Biber

[Edit] Ok, ein bisschen langsam.... ist ja Montag.. [/Edit]
Bitte warten ..
Ähnliche Inhalte
Router & Routing
Open VPN auf Split konfiguriren (9)

Frage von rainergugus zum Thema Router & Routing ...

LAN, WAN, Wireless
gelöst Switch mit eigener IP Range (8)

Frage von Heinz189 zum Thema LAN, WAN, Wireless ...

Schulung & Training
Chamilo open source LMS (4)

Link von Mitchell zum Thema Schulung & Training ...

Microsoft
Welche Open source software nutzt ihr? (18)

Frage von thomasreischer zum Thema Microsoft ...

Neue Wissensbeiträge
Viren und Trojaner

Ransomware or Wiper? RedBoot Encrypts Files but also Modifies Partition Table

(1)

Information von BassFishFox zum Thema Viren und Trojaner ...

Notebook & Zubehör

WOL bei HP Notebooks

(6)

Erfahrungsbericht von Henere zum Thema Notebook & Zubehör ...

LAN, WAN, Wireless

Neue Cisco Catalyst-Serie 9000

Information von Kuemmel zum Thema LAN, WAN, Wireless ...

Heiß diskutierte Inhalte
Windows 10
Netzwerkkarte schaltet sich erst nach dem Logon ein (23)

Frage von DerWoWusste zum Thema Windows 10 ...

Windows Server
Seit IP Umstellung DC DNS Fehler (18)

Frage von Yaimael zum Thema Windows Server ...

Netzwerke
Mobile Einwahl IPSec VPN von iPhone iPad T-Mobile zur Pfsense (16)

Frage von Spitzbube zum Thema Netzwerke ...

Weiterbildung
gelöst Fest angestellter Admin oder Systemhaus Admin mit Kundenbetreuung? (15)

Frage von Voiper zum Thema Weiterbildung ...