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

gelöst VBA Auswertung: Problem mit Kriterien

Mitglied: Forencamper

Forencamper (Level 1) - Jetzt verbinden

04.12.2006, aktualisiert 05.12.2006, 5458 Aufrufe, 9 Kommentare

[Edit Biber] Den gelösten Beitrag geschlossen und von Entwicklung nach Excel verschoben [/Edit]

Guten Morgen @all!

Ich habe folgendes Problem:
Ich habe eine Tabelle in der ich bestimmte Vorgänge
erfasse.
Die Vorgänge haben ein Start und ein Enddatum (tt.mm.jjjj).
Jetzt möchte ich über eine Form (in die ich dann textboxen einbaue) bestimmte Vorgänge anzeigen und auswerten, die in einen bestimmten Zeitraum fallen.

Bsp.
Ich will alle Vorgänge vom 01.01.2006 bis 01.04.2006
Ich gebe dies also in Meine Form ein (als Start und Enddatum).

Wie filtere ich das jetzt in der Tabelle?
Müsste so eine Art "between" sein?!?

Nach dem filtern benötige ich die Vorgänge dann
in einer Variablen, da ich die Vorgänge des bestimmten
Zeitraumes dann in ein anderes Tabellenblatt kopiere.

Kann mir vielleicht jemand helfen?

Vielen Dank im Voraus,

mfg

Forencamper
Mitglied: 14695
04.12.2006 um 13:20 Uhr
Hoi!

Was heißt Tabelle, sind wir in Excel oder in Word oder... oder hast du es gar mit einem OLE zu tun?

Grüße aus Köln
Oli
Bitte warten ..
Mitglied: Dogbert
04.12.2006 um 19:43 Uhr
Servus Forencamper,

falls es sich um ein annähernd TSQL fähiges Format handelt (-> Access?) geht's einfach mit 'SELECT [Wasauchimmer] FROM [Tabelle] WHERE Date>[Startdatum] AND date<[Enddatum]'.

Gruß
Dogbert
Bitte warten ..
Mitglied: Stefan764
04.12.2006 um 21:19 Uhr
Hallo,

Wenn es sich um Excel handeln sollte, würde ich das z.B. so machen :

01.
Sub Schaltfläche1_BeiKlick()
02.
 
03.
Start = DateValue("16.08.2003")
04.
Ende = DateValue("28.09.2005")
05.
 
06.
ZielZ = 1
07.
For QuellZ = 1 To 32767
08.
  If (Tabelle1.Cells(QuellZ, 1) > Start) And (Tabelle1.Cells(QuellZ, 1) < Ende) Then
09.
     Tabelle2.Cells(ZielZ, 1) = Tabelle1.Cells(QuellZ, 1)
10.
     Tabelle2.Cells(ZielZ, 2) = Tabelle1.Cells(QuellZ, 2)
11.
     Tabelle2.Cells(ZielZ, 3) = Tabelle1.Cells(QuellZ, 3)
12.
     Tabelle2.Cells(ZielZ, 4) = Tabelle1.Cells(QuellZ, 4)
13.
     Tabelle2.Cells(ZielZ, 5) = Tabelle1.Cells(QuellZ, 5)
14.
     ZielZ = ZielZ + 1
15.
  End If
16.
Next
17.
 
18.
End Sub
mfG
Stefan
Bitte warten ..
Mitglied: Biber
04.12.2006 um 23:28 Uhr
@Stefan764,

nicht reizlos, Deine Strategie, aber...

Änderungsvorschlag 1)
Bei diesem neumodischeren Excel-Krams so seit Windows 3.1 kann doch Excel schon bis 65536 Zeilen zählen AFAIK?

Änderungsvorschlag 2)
Da das aber stinkelangsam werden würde (auf meinen ollen Rechnern zumindest),
würde ich mich doch mit dem Durchwackeln der benutzten und nicht der auf der weiten Welt nutzbaren Zeilen zufrieden geben:
01.
Sub Schaltfläche1_BeiKlick()
02.
....
03.
QuellTabelleLastRow=Tabelle1.Cells(65536, 1).End(xlUp).Row 
04.
'<i>eigentlich</i> ...Tabelle1.Cells(Rows.Count, 1) ... und die "1" bedeutet: in Spalte A.
05.
' natürlich unterstellt, dass keine der Spalten B....E in "tieferen" Zeilen gefüllt ist, 
06.
' während Spalte A (schon) leer ist.
07.
 
08.
For QuellZ = 1 To QuellTabelleLastRow
09.
  ....
10.
 
11.
Next
12.
...
13.
End Sub
Laienhafte Frage 3) von mir:
Arbeitet Excel nicht durch Setzen und Anwenden eines "Filters" (über VBA natürlich) schneller als bei dem Versuch, die Schleifen zu Fuß nachzubilden?
[Ist wirklich als Frage gemeint - ich bin in Excel auch eher Noob.]

Grüße
Biber
Bitte warten ..
Mitglied: Dogbert
05.12.2006 um 00:26 Uhr
Nochmals Servus,

in Bezug auf Excel hat ja biber eh schon den richtigen Ansatz mit den Filtern.
Also am besten einfach mal den Makrorekorder anschmeissen und auf einen Teilbereich die 2 verkettetten Filter (>Startdatum UND <Enddatum) anwenden. Danach dürfte ziemlich leicht zu finden sein wo die Extremwerte durch die Textboxeingabe und die Range-Auswahl durch eine Colum-Auswahl ersetzt werden müssen.
Hab's mit Open-Office ausprobiert, da geht's (dat kann aber kein VBA) - Excel benutze ich nur auf Arbeit.

Gruß
Dogbert
Bitte warten ..
Mitglied: Forencamper
05.12.2006 um 08:49 Uhr
Ist eine Excel Tabelle...
ich probier´s mal kurz aus...
Bitte warten ..
Mitglied: Stefan764
05.12.2006 um 12:37 Uhr
@Stefan764,

nicht reizlos, Deine Strategie, aber...

Änderungsvorschlag 1)
Bei diesem neumodischeren Excel-Krams so
seit Windows 3.1 kann doch Excel schon bis
65536 Zeilen zählen AFAIK?

Stimmt, ist mir noch gar nicht aufgefallen (meine Tabellen sind immer kleiner...)


Änderungsvorschlag 2)
Da das aber stinkelangsam werden würde
(auf meinen ollen Rechnern zumindest),
würde ich mich doch mit dem
Durchwackeln der benutzten
und nicht der auf der weiten Welt
nutzbaren Zeilen zufrieden
geben:
01.
Sub
02.
> Schaltfläche1_BeiKlick()
03.
> ....
04.
> QuellTabelleLastRow=Tabelle1.Cells(65536,
05.
> 1).End(xlUp).Row 
06.
> '<i>eigentlich</i>
07.
> ...Tabelle1.Cells(Rows.Count, 1) ... und die
08.
> "1" bedeutet: in Spalte A.
09.
> ' natürlich unterstellt, dass keine der
10.
> Spalten B....E in "tieferen" Zeilen
11.
> gefüllt ist, 
12.
> ' während Spalte A (schon) leer ist.
13.
> 
14.
> For QuellZ = 1 To QuellTabelleLastRow
15.
>   ....
16.
> 
17.
> Next
18.
> ...
19.
> End Sub
20.
> 

Gute Idee !


Laienhafte Frage 3) von mir:
Arbeitet Excel nicht durch Setzen und
Anwenden eines "Filters" (über
VBA natürlich) schneller als bei dem
Versuch, die Schleifen zu Fuß
nachzubilden?

Auch das stimmt - High-Level-Funktionen wie Filter sind natürlich wesentlich schneller, da sie in einer besseren Programmiersprache (warscheinlich C) geschrieben sind.
ABER: Eine Filterfunktion, die GENAU das macht, was ich will, kenne ich nicht.
UND: Wenn das Programm einmal die Woche 10 Sekunden Rechenzeit verschwendet, dann kann ich damit leben. (und ich denke Forencamper kann das auch)

[Ist wirklich als Frage gemeint - ich bin in
Excel auch eher Noob.]

Kein Problem : Ich auch , mein Kerngebiet ist die Automatisierungstechnik.

Grüße
Biber

Grüße
Stefan
Bitte warten ..
Mitglied: Biber
05.12.2006 um 13:40 Uhr
@Stefan764
...mein Kerngebiet ist die Automatisierungstechnik..
Meines auch... im weitesten Sinne

Gruß
Biber
Bitte warten ..
Mitglied: Forencamper
05.12.2006 um 13:46 Uhr
passt!

Vielen Dank nochmals!^^
Bitte warten ..
Ähnliche Inhalte
Windows Server
Auswertung Logondaten
Frage von erwin.tWindows Server6 Kommentare

Hallo zusammen, ich habe ein Anliegen, und zwar bräuchte ich für einen User eine Protokollierung seiner Anmeldezeiten, leider reicht ...

Netzwerkmanagement
Traffic Auswertung Provider
Frage von tvprog1Netzwerkmanagement8 Kommentare

Hallo, welche Programme kommen in der Regel bei Providern für eine Traffic Auswertung zum Einsatz? Wie sieht so eine ...

Netzwerkprotokolle
Ping aus Auswertung
Frage von FreedomGirlNetzwerkprotokolle5 Kommentare

Aufgabe: Schicken Sie Pakete mit unterschiedlicher Länge zu diesem Ziel (10 relativ gleichmäßig verteilte Paketlängen zwischen 32 Byte und ...

Datenbanken
MySQL: Auswertung des Alters
gelöst Frage von schneerunzelDatenbanken3 Kommentare

Hallo zusammen, für einen Report möchte ich gerne aus unserer Mitglieder Datenbank eine Altersstatistik rauszieren: Alter W M 1 ...

Neue Wissensbeiträge
iOS
WatchChat für Whatsapp
Tipp von Criemo vor 2 TageniOS3 Kommentare

Ziemlich coole App für WhatsApp User in Verbindung mit der Apple Watch. Gibts für iOS sowohl als auch für ...

iOS
IOS hat nen Cursor !!!
Tipp von Criemo vor 3 TageniOS5 Kommentare

Nette Funktion im iOS. iPhone-Mauszeiger aktivieren „Nichts ist nerviger, als bei einem Tippfehler zu versuchen, den iOS-Cursor an die ...

Off Topic
Avengers 4: Endgame - Erster Trailer
Information von Frank vor 5 TagenOff Topic2 Kommentare

Ich weiß es ist Off Topic, aber ich freue mich auf diesen Film und vielleicht geht es anderen hier ...

Webbrowser
Microsoft bestätigt Edge mit Chromium-Kern
Information von Frank vor 5 TagenWebbrowser5 Kommentare

Microsoft hat nun in seinem Blog bestätigt, dass die nächste Edge Version kein EdgeHTML mehr für die Darstellung benutzen ...

Heiß diskutierte Inhalte
Hosting & Housing
VMware VM mit über 1TB RAM für S4HANA
gelöst Frage von Leo-leHosting & Housing24 Kommentare

Hallo zusammen, wer hat Erfahrng und kann mir einen Tipp zum sizing von S4HANA Systemen geben? Wir möchten, zunächst ...

LAN, WAN, Wireless
WLAN und Ausmessung - Eine Glaubensfrage?
Frage von ptr2brainLAN, WAN, Wireless23 Kommentare

Liebe Experten, als Sys-Admin habe ich mir schon öfter die Frage gestellt, ob es sich beim Thema WLAN und ...

Drucker und Scanner
SW-Laserdrucker mit sechs Papierfächern gesucht
Frage von MOS6581Drucker und Scanner19 Kommentare

Moin, zur Abwechslung mal eine sonderbare Anforderung :) Ich suche einen S/W Laserdrucker (kein MFP), der sechs Papierfächer bzw. ...

Virtualisierung
Gebrauchte Server Hardware als Virtualisierungs-"Spielwiese"?
Frage von NixVerstehenVirtualisierung19 Kommentare

Einen wunderschönen guten Morgen zusammen, ich möchte mich gerne etwas tiefer mit dem Thema Virtualisierung beschäftigen und dazu ein ...