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, 5448 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
E-Mail
Kriterien eines Mailservers
Frage von mexxE-Mail12 Kommentare

Hallo zusammen, ich möchte mein Horizont als Admin erweitern und betreibe einen eigenen Mailserver (Postfix). Ich erfülle dabei bereits ...

Datenbanken
Auswertungen Zeitnahme
gelöst Frage von schneerunzelDatenbanken6 Kommentare

Hallo zusammen, für eine Sportveranstaltung habe ich eine Zeitnahmesoftware. Diese Software besteht so und soll auch so bleiben. Ich ...

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

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

Neue Wissensbeiträge
Datenschutz

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

Tipp von magicteddy vor 6 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 ...

Windows 7
Mit gpedit gesetzte Richtlinien in rsop.msc nicht definiert und ausgegraut
gelöst Frage von 137006Windows 715 Kommentare

Hallo zusammen, anfangs verweise ich fairerweise daruf dass ich dieses Thema bereits im Forum angeschnitten habe, nachdem ich hier ...