Werte zählen, anschließend Werte und Anzahl in neuer Tabelle ausgeben
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
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
Antworten
- Mehr
Auf Facebook teilen
Auf Twitter teilen5 Antworten
- LÖSUNG Stefan764 schreibt am 22.08.2006 um 17:09:27 Uhr
- LÖSUNG 17033 schreibt am 23.08.2006 um 07:06:50 Uhr
- LÖSUNG szimmer schreibt am 23.08.2006 um 07:09:14 Uhr
- LÖSUNG 17033 schreibt am 23.08.2006 um 07:48:57 Uhr
- LÖSUNG 46010 schreibt am 29.03.2007 um 01:15:23 Uhr
LÖSUNG 22.08.2006 um 17:09 Uhr
Würde ich mit VBA machen, ungefähr so :
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 !
Private Sub CommandButton1_Click()
Dim a As Long
Dim b As Long
Dim PLZArray(0 To 99999) As Integer
For a = 1 To 99999
PLZArray(a) = 0
Next
a = 1
While (Tabelle1.Cells(a, 1) <> "")
b = Tabelle1.Cells(a, 1)
PLZArray(b) = PLZArray(b) + 1
a = a + 1
Wend
Tabelle2.Range("A1:D32767").Clear
b = 1
For a = 1 To 99999
If PLZArray(a) > 0 Then
Tabelle2.Cells(b, 1) = a
Tabelle2.Cells(b, 2) = PLZArray(a)
b = b + 1
End If
Next
End SubDabei 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 !
LÖSUNG 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
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
LÖSUNG 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.
LÖSUNG 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
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
LÖSUNG 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
2 from mitarbeiter
3 group by nachname, vorname, telefon;
sollte weiterhelfen...nach umbau.
gruss c
