Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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, 9645 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
Batch & Shell
gelöst Per Batch Datei die Zahl jede Zell in einer Spalte um 10 verkleinern (12)

Frage von ha5257 zum Thema Batch & Shell ...

Microsoft Office
gelöst Excel Formeln - Zählen der Anzahl eindeutiger Zellwerte mit einer Nebenbedingung (4)

Frage von Booster07 zum Thema Microsoft Office ...

Datenbanken
gelöst SQL-Abfrage - Anzahl der Wechsel zählen (15)

Frage von Cire48 zum Thema Datenbanken ...

Neue Wissensbeiträge
Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Windows 10

Windows 10: Erste Anmeldung Animation deaktivieren

(3)

Anleitung von alemanne21 zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Router & Routing
gelöst Linksys wrt1200ac v2 mit dd-wrt: keine vlan-einstellungen im GUI (15)

Frage von Pixi123 zum Thema Router & Routing ...

E-Business
Wo tragt ihr eure privaten Termine ein? (13)

Frage von honeybee zum Thema E-Business ...

Batch & Shell
Batch zum suchen und verschieben von Verknüpfungen (12)

Frage von zeroblue2005 zum Thema Batch & Shell ...

Windows Server
Terminalserver starten willkürlich neu (12)

Frage von thaefliger zum Thema Windows Server ...