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, 9534 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
Datenbanken
gelöst SQL-Abfrage - Anzahl der Wechsel zählen (15)

Frage von Cire48 zum Thema Datenbanken ...

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

Frage von Booster07 zum Thema Microsoft Office ...

Visual Studio
gelöst C-Sharp WPF ListView Select nur bei bestimmter Spalte (2 Fragen in einer) (3)

Frage von mayho33 zum Thema Visual Studio ...

Neue Wissensbeiträge
Batch & Shell

Batch - ein paar Basics die man kennen sollte

Tipp von Pedant zum Thema Batch & Shell ...

Microsoft

Restrictor: Profi-Schutz für jedes Window

(6)

Tipp von AlFalcone zum Thema Microsoft ...

Batch & Shell

Batch zum Zurücksetzen eines lokalen Profils

Tipp von Mr.Error zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Windows Server
Benutzer lässt sich nur an einem Clientcomputer anmelden (11)

Frage von Ammann zum Thema Windows Server ...

Hosting & Housing
gelöst Webserver bei WIX, aber DNS Server wo anders (9)

Frage von laster zum Thema Hosting & Housing ...

Hyper-V
Virtualisierung eines Servers (7)

Frage von Lornsti zum Thema Hyper-V ...