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, 9369 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 ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(3)

Tipp von agowa338 zum Thema Windows 10 ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...

Outlook & Mail
Outlook 2010 findet ost datei nicht (18)

Frage von Floh21 zum Thema Outlook & Mail ...