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

Werte zählen, anschließend Werte und Anzahl in neuer Tabelle ausgeben

Mitglied: 17033

17033 (Level 1)

22.08.2006, aktualisiert 29.03.2007, 6054 Aufrufe, 5 Kommentare

Office 2000 bzw 2003

Hallo!

Habe folgendes Problem: 18.900 Adressen (in Tabellenform) unterschiedliche Postleitzahlen.
Ich möchte wissen wieviele Adressen die PLZ 99999 haben, wieviele 99998, wieviele 99997 usw haben.

Mein Endziel wäre eine automatisch genierierte Liste die in etwa so aussieht:

PLZ Anzahl
99999 12
99998 16
99997 03

Könnte ihr mir hier weiter helfen?


Danke!


Martin
Mitglied: Stefan764
22.08.2006 um 17:09 Uhr
Würde ich mit VBA machen, ungefähr so :

01.
Private Sub CommandButton1_Click() 
02.
Dim a As Long 
03.
Dim b As Long 
04.
Dim PLZArray(0 To 99999) As Integer 
05.
 
06.
For a = 1 To 99999 
07.
    PLZArray(a) = 0 
08.
Next 
09.
 
10.
a = 1 
11.
 
12.
While (Tabelle1.Cells(a, 1) <> "") 
13.
    b = Tabelle1.Cells(a, 1) 
14.
    PLZArray(b) = PLZArray(b) + 1 
15.
    a = a + 1 
16.
Wend 
17.
 
18.
Tabelle2.Range("A1:D32767").Clear 
19.
 
20.
b = 1 
21.
 
22.
For a = 1 To 99999 
23.
    If PLZArray(a) > 0 Then 
24.
        Tabelle2.Cells(b, 1) = a 
25.
        Tabelle2.Cells(b, 2) = PLZArray(a) 
26.
        b = b + 1 
27.
    End If 
28.
Next 
29.
 
30.
End Sub
Dabei stehen die Postleitzahlen in der ersten Spalte von Tabelle1.
Die Zählergebnisse werden in die 2.Tabelle eingetragen.
Der Inhalt der zweiten Tabelle wird vorher gelöscht !
Bitte warten ..
Mitglied: 17033
23.08.2006 um 07:06 Uhr
Hallo!


Vielen Dank für deine Hilfe! Das schaut ja schon hervorragend aus!

Leider bekomme ich immer wieder den Fehler "Laufzeitfehler 424, Objekt erforderlich".

Und zwar bei der Zeile in der die Tabelle2 gelöscht wird. Verzichte ich auf das Löschen, erhalte ich die Fehlermeldung sobald auf Tabelle2 zugegriffen wird (Tabell2.Cells(b, 1) =a).

Die Tabelle2 existiert natürlich.


Google bringt mich leider auch nicht weiter.


Gruß, Martin
Bitte warten ..
Mitglied: szimmer
23.08.2006 um 07:09 Uhr
Du kannst das ganze auch mit dem Abfrage-Editor unter Daten > Externe Daten machen, wie in einer Access Datenbank.
Bitte warten ..
Mitglied: 17033
23.08.2006 um 07:48 Uhr
Hallo!

Bin jetzt draufgekommen an was es gescheitert ist:

statt
Tabelle2.Range("A1:D32767").Clear

muss es

Worksheets("Tabelle2").Range("A1:D32767").Clear

lauten.


Dann klappts!



Vielen Dank für eure Hilfe!


Martin
Bitte warten ..
Mitglied: 46010
29.03.2007 um 01:15 Uhr
SQL> select count(nachname), vorname, telefon
2 from mitarbeiter
3 group by nachname, vorname, telefon;

sollte weiterhelfen...nach umbau.

gruss c
Bitte warten ..
Ähnliche Inhalte
Microsoft Office

Werte in einer Tabelle zählen mit Excel

Frage von achkleinMicrosoft Office8 Kommentare

Hallo, ich führe eine Excel-Tabelle mit von mir ausgestellten Rechnungen. In jeder Zelle steht der Name, die Kundennummer und ...

PHP

Eine Bestimmte Zahl in einer anderen Farbe ausgeben

gelöst Frage von helmuthelmut2000PHP3 Kommentare

Hi, Ich habe eine PHP Seite, da wo von einer MSSQL DB Daten von ausgegeben werden. Jetzt hätte ich ...

Batch & Shell

Bash Nur Zahlen ausgeben regex

gelöst Frage von MarabuntaBatch & Shell11 Kommentare

Hi, ich möchte einige Fehler mit case abfangen und divereses automatisieren. Trotz einem Regex Builder, Antworten auf ähnliche Fragen ...

VB for Applications

Mehrere Spalten Durchsuchen und Ergebnisse in neuer Tabelle Ausgeben

Frage von Mr.GreenVB for Applications3 Kommentare

Hallo liebe Community. Ich würde gerne mit einer VBA mehrere Spalten ("A:W") in einer Tabelle nach einem oder mehreren ...

Neue Wissensbeiträge
Datenschutz

Die Datenkrake Google verlängert ihr Arme mal wieder ein wenig, automatische Anmeldung

Tipp von magicteddy vor 13 StundenDatenschutz

Benutzer mit einem Google Account und gespeicherten Zugangsdaten werden von chrome 69 automatisch bei Google angemeldet, natürlich alles zum ...

Verschlüsselung & Zertifikate
Meine Wissenssammlung zu Bitlocker
Erfahrungsbericht von DerWoWusste vor 1 TagVerschlüsselung & Zertifikate3 Kommentare

Die Motivation für diesen Beitrag waren die vielen Posts rund um dieses Thema, die deutlich machen, wie viele Einzelaspekte ...

E-Mail
Email-Apps und Verhalten bei Pop3
Erfahrungsbericht von kfranzk vor 3 TagenE-Mail11 Kommentare

Hallo Freunde, da mir mein diesbezüglicher Faden als gelöst markiert wurde, muss ich hier neu aufsetzen. Ich arbeite bewusst ...

Hyper-V

Optimiertes Ubuntu per Microsoft Hyper-V-Schnellerstellung verfügbar

Anleitung von Frank vor 3 TagenHyper-V1 Kommentar

Für Microsofts Virtualisierungssoftware Hyper-V ist ab sofort auch ein optimiertes Ubuntu 18.04.1 LTS verfügbar. In der "Hyper-V-Schnellerstellung" App, die ...

Heiß diskutierte Inhalte
Datenschutz
Gilt ein Ransomware-Befall als Datenpanne nach DSGVO?
Frage von MOS6581Datenschutz22 Kommentare

Moin Kollegen, wenn sich jemand Ransomware einfängt und dadurch bspw. Kundendaten verschlüsselt werden; gilt dies dann als meldepflichtige Datenpanne ...

Hardware
Sophos SG135 - Routing
gelöst Frage von Xaero1982Hardware22 Kommentare

Moin Zusammen, ich ersetze gerade nen alten Cisco DualWAN Router durch eine SG 135. Ich muss bestimmte Ziele über ...

E-Mail
Welche ist die beste E-Mail Groupware für die Zukunft?
Frage von ITCrowdSupporterE-Mail18 Kommentare

Guten Tag allerseits :) Ich möchte mich mit einer Frage heute mal an die Schwarmintelligenz wenden. Aktuell befasse ich ...

Netzwerke
Hilfe bei der Planung meines Heimnetzwerks
Frage von DHD082Netzwerke15 Kommentare

Hallo zusammen, wir bauen gerade ein Einfamilienhaus, welches ich mit einem Heimnetzwerk ausstatten möchte. Da ich zwar auch in ...