Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
884to888
884to888
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

select case interner Tabellenname

Forumthread: select case interner Tabellenname

select case interner Tabellenname
10.07.2007 12:54:50
Peter
Guten Tag
Ich möchte gerne mein Select Case auf die internen Tabellennamen beziehen, die in der VBA Umgebung angezeigt werden. Wie ist die Bezeichnung genau - habe ich allenfalls noch andere Überlegungsfehler im untenstehenden Code?
Danke für eine Rückmeldung.
Peter

Sub anzStatus()
Select Case Sheet.Name
Case Is Tabelle11, Tabelle12, Tabelle13, Tabelle14, Tabelle15, Tabelle16, Tabelle17
'mein Code
Case Else
'keine Aktion
End Select
End Sub


Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: select case interner Tabellenname
10.07.2007 13:04:00
Rudi
Hallo,
.CodeName anstatt .Name
und Case "Tabelle11", "Tabelle12", ....
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Das war es - vielen Dank! owT
10.07.2007 15:09:00
Peter

AW: select case interner Tabellenname
10.07.2007 13:06:04
c0bRa
Hio...
so sollts gehen:
Code aus Modul Modul1:
Option Explicit
Sub anzStatus()
    'Kladderadatsch
    Dim sheet As Worksheet
    Set sheet = ActiveSheet
    
    'Hier wirds interessant:
    Select Case sheet.Name
    Case "Tabelle11", "Tabelle12", "Tabelle13", "Tabelle14", "Tabelle15", "Tabelle16", "Tabelle17":
        MsgBox "ja"
        'Dein Code
        '........
    Case Else
        MsgBox "nö"
        'keine Aktion
        '........
    End Select
End Sub
Rückmeldung nicht vergessen...
c0bRa
Perl ist die einzige Sprache, die vor und nach einer RSA-Verschlüsselung gleich aussieht.
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
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
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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige