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 Excel-vba - Select Case Abfrage

Mitglied: goodbytes

goodbytes (Level 2) - Jetzt verbinden

18.09.2011 um 21:44 Uhr, 7608 Aufrufe, 3 Kommentare

Hallo,
irgendwie komme ich mit einer Select Case Abfage nicht klar.

Ich habe eine Mappe mit Optionsfeldern in einer Spalte (befinden sich in einer anderen Arbeitsmappe, welche ich per Makro öffne) .
Diese Optionsfelder sind jeweils mit der darunterliegenden Zelle verknüpft, so dass diese "True" oder "False" zurückliefert.

Wenn jetzt eine Zelle auf "True" gesetzt wird soll eine Schleife zum kopieren von verschiedenen Zellen gestartet werden. Diese Schleife funktioniert auch schon.

Wenn eine Zelle mittels Optionsfeld nun auf "True"gesetzt wir werden zwei Variablen jeweils mit der Startzeile und der Anzahl der Zeilen gesetzt, welche dann in meiner Kopierschleife verwendet werden.
Es darf aim Übrigen auch ohnehin nur ein Optionsfeld auf "True" gesetzt werden; da weiss ich auch noch nicht wie ich das am besten abfange.

Aber irgendwie komme ich mit der Auswertung der Rückgabewerte nicht klar. Ich dachte da an eine Celect Case Geschichte, da es mittels If-Abfragen ja ziemlich aufgebläht wird.

Vielleicht kann mir da ja jemand einen Ansatz für diesen Teil geben?

Danke schon mal im vorraus !!!

Torsten
Mitglied: Biber
18.09.2011 um 22:22 Uhr
Moin TorstenB,

ich versteh deine Frage nicht ganz.
Geht es dir um eine CASE-Struktur in VBA?
Geht es dir um eine CASE-Struktur in einem Abfrage-SELECT-Statement (also JET-SQL)?

Oder einfacher - wie sieht denn JETZT das Gestrunkele als IF..EndIF-Meterware aus?

Grüße
Biber
Bitte warten ..
Mitglied: steini84
18.09.2011 um 22:26 Uhr
Hallo,

ich hoffe du hast die Optionsfelder als ActiveX-Element eingefügt und nicht als MSForm. MSForms sind nur noch der Kompatibilität wegen vorhanden.

Also die "Verriegelung" der drei Optionbuttons erreichst du, indem du in den Eigenschaften unter [GroupName] den selben Namen einträgst.

Wenn du im Entwurfsmodus bist, klickst du jeweils auf jeden Optionbutton doppelt und erstellst somit automatisch ein Klick-Event im VBA-Editor.

Dieses Event wird immer dann ausgeführt, wenn jemand einen Button auswählt, die LinkedCell brauchst du somit nicht unbedingt.
Hier kannst du Problemlos, ohne Select Case, die weiteren Optionen übergeben.

MfG Steini
Bitte warten ..
Mitglied: goodbytes
18.09.2011 um 23:12 Uhr
Moin Biber und Steini,
@Biber: Als If/End If - Konstrukt hätte ich einfach nach und nach alle zu den Optionsfeldern gehörenden Zellen mit vba der Reihe nach "abgeklappert. und dann im Falle irgendeienes True-Wertes innerhalb der gerade betreffenden Schleife die passenden Variablen gesetzt und wäre mittels Goto über den Rest weg zu meiner Kopierschleife gesprungen. Das ist aber eigentlich ein recht primitiver Weg, welcher auch sicherlich viel Zeit beim Ablaub in Anspruch nimmt.

@Steini: Oh ja, das klingt ja eigentlich wirklich gut. Ich habe die Optionsfelder zwar als MSForm eingefügt; das neu zu machen sollte aber eigentlich nicht das Problem sein. Es hätte auch den Vorteil, dass nicht Alles "abgeklappert" werden müsste. Ich werde es gleich morgen früh mal probieren und melde mich dann. Heute ist es mir ganz einfach zu spät; der Wecker klingelt morgen leider wieder ziemlich früh.

Ein dickes Danke auf jeden Fall schon mal an euch Beide!

Gruß
Torsten

Anmerkung am 20. September 2011:
Hat prima geklappt! Hab es mit Steini`s Variante einwandfrei hinbekommen.

Ein dickes Dankeschön noch mal !!!

Torsten
Bitte warten ..
Ähnliche Inhalte
VB for Applications

Select Case wird nicht richtig ausgewertet

gelöst Frage von AximandVB for Applications11 Kommentare

Hallo zusammen, mich plagt etwas. Folgender Code Bis zum Fall "35" AND "18" wird die Textbox auch mit dem ...

VB for Applications

SNMP Abfrage in EXCEL über VBA

Frage von SebastianLVB for Applications7 Kommentare

Hallo Zusammen, Erstmal zum Sachverhalt: Ich habe mehrere Drucker (ca. 50) die über SNMP ansprechbar sind. Mein Ziel ist ...

Datenbanken

SELECT DISTINCT nur für eines der Felder in der Abfrage?

gelöst Frage von AdminKnechtDatenbanken5 Kommentare

Hallo, da ich nicht der DB-Guru bin und eine Abfrage erstellen muss hänge ich hier: Das Dataset sieht momentan ...

Datenbanken

Passende SELECT-Abfrage gesucht

gelöst Frage von DonChuniorDatenbanken8 Kommentare

Hallo liebe Datenbank-Admins, ich habe diese Frage bereits in einem anderen Forum gestellt. Da sich dort aber überwiegend CAD-Anwender ...

Neue Wissensbeiträge
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 ...

Sicherheits-Tools

Trend Micro WorryFree Business Security (WFBS) 10 - neuer Patch 1470 verfügbar

Tipp von VGem-e vor 3 TagenSicherheits-Tools2 Kommentare

Servus, mal sehen, ob mit Patch 1470, zu finden unter dann die angeblich fehlerhafte Funktion, die unter W10 im ...

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
Frage von Xaero1982Hardware21 Kommentare

Moin Zusammen, ich ersetze gerade nen alten Cisco DualWAN Router durch eine SG 135. Ich muss bestimmte Ziele über ...

Netzwerke
Hilfe bei der Planung meines Heimnetzwerks
Frage von DHD082Netzwerke15 Kommentare

Hallo zusammen, wir bauen gerade ein Einfamilienhaus, welches ich mit einem Heimnetzwerk ausstatten möchte. Da ich zwar auch in ...

Windows 7
Mit gpedit gesetzte Richtlinien in rsop.msc nicht definiert und ausgegraut
Frage von sampleUserWindows 714 Kommentare

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