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, 6059 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 ...

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 ...

VB for Applications

Excel: übertragung von Werten aus Tabelle 1 in Tabelle 2 und anschließende Löschung in Tabelle 1

Frage von AldiorVB for Applications1 Kommentar

Hallo ihr Lieben, nachdem mir hierbereits einmal sehr kompetent geholfen wurden, wende ich mich mit einer Fragestelltung an euch ...

Neue Wissensbeiträge
Sonstige Systeme
Es war einmal ein BeOS - Wer erinnert sich noch?
Information von BassFishFox vor 1 StundeSonstige Systeme1 Kommentar

Hallo, Bin gerade ueber Haiku gestolpert, von dessen Existenz als "Nachfolger des BeOS" ich wusste nur mich nie wirklich ...

Datenschutz

Microsoft und DSGVO - ob das wohl jemals klappt (Probleme beim Datenabfluss für Office Pro Plus)?

Tipp von VGem-e vor 4 StundenDatenschutz3 Kommentare

Servus Kollegen, siehe Aber wer setzt schon MS Office Pro Plus ein? Wie dann der Stand beim "normalen" MS ...

Windows 10

Macht Windows 10.1809 Probleme mit gemappten Netzlaufwerken (betrifft wohl insbes. AMD-Hardware und Trend Micro AV-Produkte)?

Tipp von VGem-e vor 9 StundenWindows 102 Kommentare

Moin Kollegen, grad dazu gefunden und Hatten wir dies nicht bei früheren W10-Upgrades ebenfalls? Da bleibt nur, das Upgrade ...

Humor (lol)

Das neue Miniatur Wunderland OFFICIAL VIDEO - worlds largest model railway - railroad

Information von StefanKittel vor 21 StundenHumor (lol)1 Kommentar

Hallo, wer noch nie im Miniatur Wunderland war, sollte es dringend mal nachholen. Es gibt eine neues Video. Viele ...

Heiß diskutierte Inhalte
Java
Testautomatisierung
gelöst Frage von WPFORGEJava16 Kommentare

Hallo, nehmen wir an, es gibt eine Webseite mit einer Karte und einem Suchfeld. Nun wird in das Suchfeld ...

Netzwerkgrundlagen
Werksreset HP 1920S-24G
gelöst Frage von HenereNetzwerkgrundlagen14 Kommentare

Servus zusammen, ich habe mir 2 neue Switche zugelegt, doch ich komme damit nicht ganz klar. Waren Vorführgeräte zum ...

Viren und Trojaner
Office365 Trojaner Analyse
Frage von ZeppelinViren und Trojaner13 Kommentare

Liebe Community, ich wende mich an euch, um mehr über den Office365 Trojaner zu erfahren, welcher grade seine Runden ...

Firewall
Sophos UTM 9.5 Firewall Log-File durchsuchen
gelöst Frage von Leo-leFirewall12 Kommentare

Hallo zusammen, weiß jemand von Euch, ob man bei der Sophos die Firewall logs noch etwas besser filtern kann? ...