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

Frage zu Select Case

Forumthread: Frage zu Select Case

Frage zu Select Case
Frank
Hallo
ich verwende folgenden Codeteil, um beim Öffnen einer Tabelle (Workbook_Open) die Ansicht je nach User anzupassen:
Select Case Environ("Username")
Case "user1", "user2"
Kann mir jemand sagen, wie ich hier anstelle der Auflistung einzelner User auf eine einzige Zelle in der gleichen Tabelle (Blatt1, F1204) verweisen kann, so dass ich dort nur noch "Administrator" hinterlegen muss ?
VG und vielen Dank Euch im Voraus,
Frank
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Frage zu Select Case
07.05.2012 10:35:50
Reinhard
Hallo Frank, 
Select Case Environ("Username")
Case Worksheets("Tabelle1").Range("A1").Value
MsgBox "ja"
Case Else
MsgBox "Nein"
End Select

Gruß
Reinhard
AW: Frage zu Select Case
07.05.2012 12:32:46
Frank
Hallo Reinhard,
vielen Dank - das klappt bestens !
VG und einen schönen Tag noch,
Frank
Anzeige
;

Forumthreads zu verwandten Themen

Per VBA ohne select sortieren
Steffen


Hallo
gibt es eine Möglichkeit ala :
Rows("2:500").Sort Key1:=Range("A3"), Order1:=xlDescending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom (Dies lößt ein VBA Fehler aus)
eine Tabelle zu sortieren ich konnte das sortieren bisher immer n...
29.10.2008 12:16:00
Thread-ID: 1020228
4 Beiträge
InputBox oder Select Case
BerndM

Hallo Freaks,
ich habe nachstehenden Code, der an sich funktioniert, nur leider keine Prüfung vornimmt, ob die Eingabe korrekt erfolgt ist. Wie BITTE muss der Code ergänzt werden, um dies zu gewährleisten?
Vielen Dank vorab f.d. Hilfe.
Die Datei https://www.herber.de/bbs/user/61719....
10.05.2009 17:41:07
Thread-ID: 1074180
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
Zeitwerte in Select Case
Marcel

Hallo Zusammen,
ich habe ein Problem und zwar möchte ich für unsere Firma ein kleines Telefon-Auswertungs-Programm schreiben in der die Gesprächsdauer einer bestimmten Nummer ausgewertet wird.
Die Gesprächsdauer wird von jedem Anruf in einer Datenbank protokolliert.
Ich habe nun die...
04.08.2009 12:33:06
Thread-ID: 1093460
12 Beiträge
Anzeige
Zeitwerte in Select Case
Marcel

Hallo Zusammen,
ich habe ein Problem und zwar möchte ich für unsere Firma ein kleines Telefon-Auswertungs-Programm schreiben in der die Gesprächsdauer einer bestimmten Nummer ausgewertet wird.
Die Gesprächsdauer wird von jedem Anruf in einer Datenbank protokolliert.
Ich habe nun die...
04.08.2009 13:07:33
Thread-ID: 1093496
4 Beiträge
Anzeige
aus If Abfrage - SelectCase Abfrage
Peter

Hallo,
wie erstellt man aus der den If Abfragen Select Case Abfragen?
(zur besseren Übersicht)
Danke Peter
Sub BenannteZellensuche() Dim benannteBereiche As Object Dim VglName As String For Each benannteBereiche In ThisWorkbook.Names VglName = benannteBereiche.Name If InStr(VglN...
31.10.2009 01:06:07
Thread-ID: 1113433
2 Beiträge
Anzeige
VBA - Case bringt alles durcheinander
Günther

Hallo,
anhand der Beispielmappe können Fachleute sicherlich nachvollziehen, welches Problem ansteht.
Ich war bis zum Einbau der SELECT CASE Geschichte bei Comboboxen sehr zufrieden. Allerdings war mein Gedanke die Anwendung so bedienerfreundlich als möglich zu erstellen. Dazu wollte ic...
12.11.2009 20:26:26
Thread-ID: 1116669
21 Beiträge
Case Select Rückgabe
Andy

Hallo Leute,
ich habe ein Problem mit Select Case, leider bekomm ich nicht die gewünschten Meldungen. Kann mir hier jemand weiterhelfen. Als Meldung bekomm ich bei Y Y immer Auto, ansonsten XXX/YYY.
Kann mir jemand sagen was ich falsch mache, ich steh grad voll auf dem Schlauch. Meiner...
10.09.2010 12:25:33
Thread-ID: 1176837
3 Beiträge
Änderung Code Select Case
Claudia

Hallo zusammen,
ich nutze folgendes Makro, mit Hilfe aus dem Forum. Private Sub färben() Application.ScreenUpdating = True ' Fülfarbe ' für Schrift RaZelle.Font.ColorIndex Dim RaBereich As Range ' Variable für Bereich Dim RaZelle As Range ' Variable für Z...
20.10.2010 11:42:51
Thread-ID: 1183166
9 Beiträge
Button merken... Select Case
abu

Hallo zusammen,
habe folgendes Problem und hoffe auf einen Loesungsansatz.
Mit hilfe eines Buttons wird man durch ein Menu gefuehrt und kehrt anschliessend wieder zum Ausgangspunkt zurueck.
Nun moechte ich das gleiche nochmal machen allerdings mit einigen Aenderungen im Code. Da ich...
21.12.2010 16:56:41
Thread-ID: 1192406
5 Beiträge
Variable Select Case-Funktion
Stefan

Hallo zusammen
Auch in diesem Jahr hoffe ich auf eure Unterstützung:
In einer vorhandenen Pendenzenliste habe ich bedingte Formatierungen mit Select Case eingerichtet, welche einwandfrei funktionieren. Dabei können in Abhängigkeit der Personenauswahl und Status 6 verschiedene Farben, Sc...
20.01.2011 18:58:03
Thread-ID: 1196618
9 Beiträge
If ElseIf oder Select Case? Hilfe!....
Lars

Hallo Liebe Excelgemeinde,
ich benötige nochmal von Euch Hilfe. Ich habe eine Listbox auf einer Userform, in welcher welcher per Multiselect-Auswahl einzelne, oder mehrere Datensätze ausgewählt werden können. Die dafür erforderlichen Daten befinden sich in einem Tabellenblatt "Daten" der Ar...
14.08.2011 15:43:01
Thread-ID: 1226038
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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