Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
516to520
516to520
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

select case Abfrage verkuerzen ?

Forumthread: select case Abfrage verkuerzen ?

select case Abfrage verkuerzen ?
13.11.2004 14:28:39
marc
hallo zusammen,
ich habe mir 'ne select case Abfrage geschrieben.
Der Code funktioniert, die Werte werden in den txtBoxen angezeigt.
Nun das ganze ist sehr, sehr lang geworden.
Die Frage lautet: kann ich das ganze anders bzw. kuerzer gestallten ?
marc.

Private Sub cmdMOO10_Click()
Select Case txtDatum.Value
Case "42"
Sheets(1).Select
Me.txtSumme1.Value = Range("H4").Value
Case "43"
Sheets(2).Select
Me.txtSumme1.Value = Range("H4").Value
Case "44"
Sheets(3).Select
Me.txtSumme1.Value = Range("H4").Value
Case "45"
Sheets(4).Select
Me.txtSumme1.Value = Range("H4").Value
Case "46"
Sheets(5).Select
Me.txtSumme1.Value = Range("H4").Value
Case "47"
Sheets(6).Select
Me.txtSumme1.Value = Range("H4").Value
Case "48"
Sheets(7).Select
Me.txtSumme1.Value = Range("H4").Value
Case "49"
Sheets(8).Select
Me.txtSumme1.Value = Range("H4").Value
Case "50"
Sheets(9).Select
Me.txtSumme1.Value = Range("H4").Value
Case "51"
Sheets(10).Select
Me.txtSumme1.Value = Range("H4").Value
End Select
End Sub
Private Sub cmdMO020_Click()
Select Case txtDatum.Value
Case "42"
Sheets(1).Select
Me.txtSumme2.Value = Range("H5").Value
Case "43"
Sheets(2).Select
Me.txtSumme2.Value = Range("H5").Value
Case "44"
Sheets(3).Select
Me.txtSumme2.Value = Range("H5").Value
Case "45"
Sheets(4).Select
Me.txtSumme2.Value = Range("H5").Value
Case "46"
Sheets(5).Select
Me.txtSumme2.Value = Range("H5").Value
Case "47"
Sheets(6).Select
Me.txtSumme2.Value = Range("H5").Value
Case "48"
Sheets(7).Select
Me.txtSumme2.Value = Range("H5").Value
Case "49"
Sheets(8).Select
Me.txtSumme2.Value = Range("H5").Value
Case "50"
Sheets(9).Select
Me.txtSumme2.Value = Range("H5").Value
Case "51"
Sheets(10).Select
Me.txtSumme2.Value = Range("H5").Value
End Select
End Sub
Private Sub cmdMOO30_Click()
Select Case txtDatum.Value
Case "42"
Sheets(1).Select
Me.txtSumme3.Value = Range("H2").Value
Me.txtPVC.Value = Range("H9").Value
Case "43"
Sheets(2).Select
Me.txtSumme3.Value = Range("H2").Value
Me.txtPVC.Value = Range("H9").Value
Case "44"
Sheets(3).Select
Me.txtSumme3.Value = Range("H2").Value
Me.txtPVC.Value = Range("H9").Value
Case "45"
Sheets(4).Select
Me.txtSumme3.Value = Range("H2").Value
Me.txtPVC.Value = Range("H9").Value
Case "46"
Sheets(5).Select
Me.txtSumme3.Value = Range("H2").Value
Me.txtPVC.Value = Range("H9").Value
Case "47"
Sheets(6).Select
Me.txtSumme3.Value = Range("H2").Value
Me.txtPVC.Value = Range("H9").Value
Case "48"
Sheets(7).Select
Me.txtSumme3.Value = Range("H2").Value
Me.txtPVC.Value = Range("H9").Value
Case "49"
Sheets(8).Select
Me.txtSumme3.Value = Range("H2").Value
Me.txtPVC.Value = Range("H9").Value
Case "50"
Sheets(9).Select
Me.txtSumme3.Value = Range("H2").Value
Me.txtPVC.Value = Range("H9").Value
Case "51"
Sheets(10).Select
Me.txtSumme3.Value = Range("H2").Value
Me.txtPVC.Value = Range("H9").Value
End Select
End Sub
Private Sub cmdMOO40_Click()
Select Case txtDatum.Value
Case "42"
Sheets(1).Select
Me.txtSumme4.Value = Range("H3").Value
Case "43"
Sheets(2).Select
Me.txtSumme4.Value = Range("H3").Value
Case "44"
Sheets(3).Select
Me.txtSumme4.Value = Range("H3").Value
Case "45"
Sheets(4).Select
Me.txtSumme4.Value = Range("H3").Value
Case "46"
Sheets(5).Select
Me.txtSumme4.Value = Range("H3").Value
Case "47"
Sheets(6).Select
Me.txtSumme4.Value = Range("H3").Value
Case "48"
Sheets(7).Select
Me.txtSumme4.Value = Range("H3").Value
Case "49"
Sheets(8).Select
Me.txtSumme4.Value = Range("H3").Value
Case "50"
Sheets(9).Select
Me.txtSumme4.Value = Range("H3").Value
Case "51"
Sheets(10).Select
Me.txtSumme4.Value = Range("H3").Value
End Select
End Sub
Private Sub cmdMOO50_Click()
Select Case txtDatum.Value
Case "42"
Sheets(1).Select
Me.txtSumme5.Value = Range("H6").Value
Case "43"
Sheets(2).Select
Me.txtSumme5.Value = Range("H6").Value
Case "44"
Sheets(3).Select
Me.txtSumme5.Value = Range("H6").Value
Case "45"
Sheets(4).Select
Me.txtSumme5.Value = Range("H6").Value
Case "46"
Sheets(5).Select
Me.txtSumme5.Value = Range("H6").Value
Case "47"
Sheets(6).Select
Me.txtSumme5.Value = Range("H6").Value
Case "48"
Sheets(7).Select
Me.txtSumme5.Value = Range("H6").Value
Case "49"
Sheets(8).Select
Me.txtSumme5.Value = Range("H6").Value
Case "50"
Sheets(9).Select
Me.txtSumme5.Value = Range("H6").Value
Case "51"
Sheets(10).Select
Me.txtSumme5.Value = Range("H6").Value
End Select
End Sub

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: select case Abfrage verkuerzen ?
13.11.2004 14:40:32
Josef
Hallo Marc!
Das geht doch auch so.

Private Sub cmdMOO10_Click()
Me.txtSumme1.Value = Sheets(txtDatum.Value - 41).Range("H4").Value
End Sub

Gruß Sepp
AW: select case Abfrage verkuerzen ?
marc
thanks Sepp :o)
Anzeige
;

Forumthreads zu verwandten Themen

Bei Select Case-Anweisung Codezeilensparen
Richard


Hallo,
funktionell, funktioniert folgender Code, so wie ich ihn gerne haben will, jedoch bin ich noch nicht so pfiffig um hier Codezeilen zu sparen, kann mir jemand eine Lösung anbieten?
Select Case KeyAscii Case 48 To 57 17-Zeilen-Code (If-, ElseIf-, End If-Anweisungen) Case 1...
24.10.2008 13:18:31
Thread-ID: 1018982
6 Beiträge
Anzeige
Code mir Select Case optimieren
Edie

Hallo zusammen,
würde gerne den nachfolgenden Code optimieren. Aber wie?
Kann mir jemand dabei helfen?
Sub Test() Dim Bereich As Range Set Bereich = Range("A1") Select Case Bereich Case Is = 7 ActiveCell.Offset(0, 1).Value = ActiveCell.Value / 7 ActiveCell.Offset(1, 1).Value = Act...
03.06.2009 16:04:11
Thread-ID: 1078904
4 Beiträge
Anzeige
select case im datenfeld
Steffen

Guten Abend,
Ich bin seit kurzem dabei mir Funktionen mit Datenfeldern anzueignen . Doch bei einer Sache komme ich nicht zurecht. Ich möchte in einem Datenfeld Inhalte auslesen und wenn Übereinstimmungen sich ergeben soll die Zelle formatiert werden. Mit der für mich üblichen Methode "Selec...
02.12.2009 17:59:23
Thread-ID: 1121461
7 Beiträge
Select Case ... Sheet.CodeName
Peter


Guten Tag
Ich möchte, dass ein Code nur ausgeführt wird, wenn der Tabellen-Codename Tabelle01, Tabelle02, Tabelle03, .... oder Tabelle25 ist.
Auf Codename greiffe ich zurück, da die Tabellennamen gelegentlich angepasst werden (ohne dass der Inhalt ändert).
Das versuche ich mich...
16.08.2010 10:44:55
Thread-ID: 1172363
13 Beiträge
Anzeige
Select Case richtigstellen
Lorenz

Hallo, & guten Abend!
Hab schon einige Varianten erfolglos probiert
Laut untenstehenden Code liefert LoProzent leider immer Null (Egal welcher optionsButton gewählt ist).
Aufgabe: Ist einer der vier Optionsbutton in UF gewählt, so soll der jeweilige Wert weitergegeben werden.
23.05.2011 22:42:13
Thread-ID: 1215692
9 Beiträge
Select Case Zellnamen
KlausF
Hallo Forum,
wie kann ich mit Select Case Zellnamen abfragen?
Ich habe z.B. 3 Zellen mit Namen Klaus, Peter und Rolf
Select Case ?????
Case "Klaus", "Peter"
Case "Rolf"
Case Else
End Select
Select Case Target.Name oder ähnliches funktioniert nicht
Gruß
Klaus<...
21.10.2014 17:32:55
Thread-ID: 1387817
37 Beiträge
Select Case bei definierten Namen
Propman

Hallo Herber-Gemeinde,
ich habe einigen Bereichen in meinem Tabellenblatt Namen gegeben um nicht absolut auf die jeweilige Zelle ansprechen zu müssen. Das funktioniert überall sehr gut.
Nun habe ich 2 Themen:
1. Funktioniert der Select Case Code auch bei definierten Namen? Mein Cod...
26.02.2015 09:43:03
Thread-ID: 1411635
9 Beiträge
If in einem Select Case form
Armin

Moin Moin,
ich habe eine Frage und Zwar:
Wie kann man eine If + und + oder funktion in form von einem Select Case schreiben.
Z.B:
If Range("A1").value="a" or Range("A1").value="b" und Range("B1").value="1" then
Range("C1").value="Hallo"
end if
wie geht das in form vo...
08.03.2016 11:18:28
Thread-ID: 1480615
3 Beiträge
for each mit select case ersetzen - fehler
Alex

Hallo,
per VBA sollen bei ca. 600 Zeilen in 16 Gruppen gruppiert werde.
1 Gruppe = z.b. alle Felder mit "1." vorne oder "2.".
Ich denke mal per Select Case ist die Laufzeit deutlich kürzer als mit for each...
oder dauert gruppieren allg. so lange?
Code:
Sub gruppieren()...
08.03.2016 15:51:49
Thread-ID: 1480691
9 Beiträge
Mit Target und Select Case Formel benutzen
Nermin
Hallo liebe Community,
ich wollte zunächst eine Formel verwenden mit der if funktion, da es aber nur eine Bedingung gibt von der die Verwendung der Formel abhängt habe ich mir gedacht es wäre wesentlich einfacher die Select Case Methode zu verwenden. Code sieht wie folgt aus:
Private Sub Wo...
22.06.2016 09:00:22
Thread-ID: 1500244
3 Beiträge
Select Case mit Vielfachem von Werten
Werten

Hallo,
ich habe folgenden Select Case in einem Makro, der zum Testen soweit funktioniert.
Mein Problem dabei ist, ich muss auch die folgenden Szenarien abdecken:
1) Das Event für den Fall 9 soll auch für die Vielfachen davon, d.h. auch für 18, 27, 36, 45, 54, 63, 72, 81, 90 etc....
26.01.2017 23:08:54
Thread-ID: 1537713
3 Beiträge
Frage zum Select Case in einer For Next-Schleife
Alexander

Hallo zusammen,
ich bin noch recht frisch in der VBA-Programmierung, aber es klappt schon ganz gut.
Zur Zeit arbeite ich an einem Code, der aus einem bestehenden Sheet Daten in ein neues Sheet extrahiert, diese in eine andere Reihenfolge packt und auch einige Berechnungen durchführt. Ge...
27.09.2017 15:35:51
Thread-ID: 1582975
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige