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

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

Frage Microsoft Microsoft Office

Mitglied: 17033

17033 (Level 1)

22.08.2006, aktualisiert 29.03.2007, 6001 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
VB for Applications
Mehrere Spalten Durchsuchen und Ergebnisse in neuer Tabelle Ausgeben (3)

Frage von Mr.Green zum Thema VB for Applications ...

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

Frage von Booster07 zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel: Wert aus mehreren Datein suchen und zugehörige Werte ausgeben (11)

Frage von RubyLissy zum Thema Microsoft Office ...

Datenbanken
gelöst Hilfe bei MSSQL-Anweisung, Werte in andere Tabelle einfügen (8)

Frage von d4shoerncheN zum Thema Datenbanken ...

Neue Wissensbeiträge
Batch & Shell

Batch zum Zurücksetzen eines lokalen Profils

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

RedHat, CentOS, Fedora

Fedora, RedHat, Centos: DNS-Search Domain setzen

(13)

Tipp von Frank zum Thema RedHat, CentOS, Fedora ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
VPN Tunnel aufbauen (16)

Frage von Hajo2006 zum Thema LAN, WAN, Wireless ...

Microsoft Office
Saubere HTML aus Word-Dokument (14)

Frage von peterpa zum Thema Microsoft Office ...

Router & Routing
ASUS RT-N18U mit VPN Client hinter Fritzbox - Portforwarding (14)

Frage von marshall75000 zum Thema Router & Routing ...

E-Mail
gelöst Probleme beim E-Mail Empfang (12)

Frage von TommyB83 zum Thema E-Mail ...