Top-Themen

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

Anzahl belegte Zellen zählen in Spalte A1

Frage Microsoft Microsoft Office

Mitglied: gugguseli

gugguseli (Level 1) - Jetzt verbinden

14.09.2009 um 15:06 Uhr, 9761 Aufrufe, 4 Kommentare

Hallo zusammen
Ich hoffe auf einen VBA spez. unter Euch
Ich habe folgende Frage:

Ich möchte mit folgendem Code:

Sub Workbook_Open()
MsgBox "Du hast im Moment " & ActiveSheet.UsedRange.Count & " Aufträge erfasst."
End Sub

nicht das ganze Sheet durchzählen, sondern nur die Spalt A, ab Zelle A5 und folgende... kann auch wenn nicht möglich auf A200 z.Bsp. begrenzt werden.

Wie muss der Code angepasst werden ?

Vielen Dank und Gruss Daniel
Mitglied: 76109
14.09.2009 um 16:16 Uhr
Hallo Daniel!

In etwa so:
01.
Const StartLine = 5 
02.
 
03.
Sub Workbook_Open() 
04.
    Dim Orders As Integer 
05.
 
06.
    If IsEmpty(Cells(StartLine, 1)) Then 
07.
        MsgBox "Du hast noch keine Aufträge erfasst." 
08.
    Else 
09.
        Orders = Cells(Rows.Count, "A").End(xlUp).Row + 1 - StartLine 
10.
        MsgBox "Du hast im Moment " & Orders & " Aufträge erfasst." 
11.
    End If 
12.
End Sub
Gruß Dieter
Bitte warten ..
Mitglied: gugguseli
14.09.2009 um 16:36 Uhr
Hallo Dieter

funktioniert leider nicht... ich muss dazu sagen, dass diese Messagebox beim starten des Excel Sheets gleich angezeigt wird... der Code steht also nicht in einem Modul, sondern in "ThisWorkbook"... weiss zwar nicht ob das relevant ist ;)

Gruss Daniel
Bitte warten ..
Mitglied: 76109
14.09.2009 um 16:46 Uhr
Zitat von gugguseli:
"ThisWorkbook"... weiss zwar nicht ob das relevant ist ;)
Das ist nicht relevant, da die Funktion "Workbook_Open()" ja sonst nicht funktioniert.

Und wenn Du den Quelltext ohne Änderungen kopiert hast, sollte es schon funktionieren, sofern Makro's aktiviert sind?

Gruß Dieter
Bitte warten ..
Mitglied: gugguseli
14.09.2009 um 16:56 Uhr
Hallo Dieter

Ja, es funktioniert... Ich musste nur die Zeile "Const StartLine = 5" anders positionieren ( nach Dim...)

Super danke dir
Gruss Daniel
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Excel immer in Zelle A1 starten
gelöst Frage von Florian86Microsoft Office13 Kommentare

Hallo, gibt es im Excel eine Einstellung, dass beim Öffnen immer Zelle A1 bzw. das erste Blatt angezeigt wird. ...

Batch & Shell
Spalte einer Textdatei mit einer anderen Zahl überschreiben
Frage von THRILLERBatch & Shell2 Kommentare

Hallo zusammen, ich habe eine Textdatei mit den Namen "Info1.txt, Info2.txt, Info100.txt". Dabei hat jede Textdatei pro Zeile 3 ...

Microsoft Office
Name aus Zelle (A1) Tabellenblatt1 übernehmen für das Tabellenblatt2
gelöst Frage von wingetMicrosoft Office5 Kommentare

Hallo zusammen, folgender Fall: Blattname aus der Zelle (z.B. A1 - das selbe Tabellenblatt) funktioniert mit dem folgenden Code ...

Batch & Shell
Per Batch Datei die Zahl jede Zell in einer Spalte um 10 verkleinern
gelöst Frage von ha5257Batch & Shell12 Kommentare

Guten Morgen, ich importiere jeden Tag automatisch eine Lagerbestandsliste(csv Datei) von meinem Lieferant mit einem Batch Datei. Die Batch ...

Neue Wissensbeiträge
Microsoft Office

Office 2010 Starter erneut auf einer frischen Windows-Version installieren

Tipp von Lochkartenstanzer vor 16 StundenMicrosoft Office6 Kommentare

Moin, vor ein paar Tagen schlug bei mir ein Kunde auf, der sein Widnows 7 geschrottet und es inklusive ...

Datenbanken

Upgrade MongoDB 3.4 auf 3.6

Erfahrungsbericht von Frank vor 18 StundenDatenbanken

Seit kurzem gibt es das 3.6 Update für die MongoDB: Sicherheit, das Sortieren, Aggregation und auch die Performance wurde ...

SAN, NAS, DAS

Backdoor Zugang und Upload-Bug in vielen Western Digital MyCloud Geräten

Information von Frank vor 19 StundenSAN, NAS, DAS2 Kommentare

James Bercegay von der Firma Gulftech hat die Fehler an Western Digital gemeldet und das Unternehmen stellt bereits ein ...

Microsoft Office

Outlook 2016 - Beim Weiterleiten keine PDF Anhänge mehr - KB4011626 entfernen

Erfahrungsbericht von Deepsys vor 22 StundenMicrosoft Office3 Kommentare

Wenn ihr feststellt das ihr beim Weiterleiten von E-Mails keine PDF Anhänge mehr versendent, dann dankt Microsoft. Diese tolle ...

Heiß diskutierte Inhalte
Windows Netzwerk
Drucker isolieren in Windows Domäne
gelöst Frage von lcer00Windows Netzwerk14 Kommentare

Hallo zusammen, habe eine Windows-AD (2012R2) in der es einen Druckerserver gibt. Mittlerweile verliere ich das Vertrauen in die ...

Server-Hardware
Veeam Backup Server stürzt alle paar Tage ab
Frage von Leo-leServer-Hardware12 Kommentare

Hallo Forum, ich habe momentan folgendes Problem. Veeam Backup and Replication 9.5 u2 auf voll gepatchten DL 380 G7 ...

Windows 10
Windows10-Schnellzugriff per Kommandozeile bearbeiten
Frage von SarekHLWindows 1010 Kommentare

Hallo zusammen, weiß jemand, wie ich per Kommandozeile (in einem Logon-Script) den persönlichen Dokumentenordner aus dem Schnellzugriff entferne den ...

Batch & Shell
Dateien verschieben mit batch
gelöst Frage von michi-ffmBatch & Shell10 Kommentare

Hallo Zusammen hat jemand evtl eine Idee? Zunächst hier das Skript: Leider werden keine UNC-Pfade unterstüzt, kann mir jemand ...