Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
1376to1380
1376to1380
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textfelder sperren für einige Zugriffe - @Klaus

Forumthread: Textfelder sperren für einige Zugriffe - @Klaus

Textfelder sperren für einige Zugriffe - @Klaus
29.08.2014 13:50:54
Mirko
Hallo Klaus,
der andere Thread ist abgeschlossen -- DANKE für die Hilfe -- habe den Fehler dann doch noch gefunden, bei mir heißt dies aber Textfeld und nicht Textbox.
Eine Frage habe ich aber trotzdem noch -- kann man bei der erkennung der Namen die Groß. bzw. Kleinschreibung relativieren?
d.h. egal wie der MA sich anmeldet ob mit Groß oder Kleinschriebung seines Namens wird er trotzdem erkannt?
DANKE
VG Mirko

Anzeige

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textfelder sperren für einige Zugriffe - @Klaus
29.08.2014 13:55:20
yummi
Hallo Mirko,
Ucse wandelt alles in Großbuchstaben um. Beide Variablen mit Ucse behandeln und dann vergleichen, dann bist du nicht case sensitiv
Gruß
yummi

AW: Textfelder sperren für einige Zugriffe - @Klaus
29.08.2014 14:00:06
Mirko
Hallo Yummi,
Danke für die Rückmeldung aber:
jetzt hast du mich erwischt -- verstehe nur Bahnhof...
Kannst du mir dies bitte genauer erklären?
DANKE und Gruss Mirko

Anzeige
AW: Textfelder sperren für einige Zugriffe - @Klaus
29.08.2014 14:08:15
yummi
Hallo Mirko,
bei deienm Vergleich ob es der richtige User ist machst du folgendes, so in der Art
if UCase(Benutzer) = UCase(ErlaubterBenutzer) then
...
oder
analog mit select, ich weiß ja nicht wie dein Vergleich jetzt aussieht. Wenn Du noch schwierigkeiten hast, dann poste mal den Bereich wo du die Abfrage machst, ob das Textfeld gesperrt wird oder nicht.
Gruß
yummi

Anzeige
AW: Textfelder sperren für einige Zugriffe - @Klaus
29.08.2014 14:22:38
hary
Moin
Ist es der Code? 
Private Sub Workbook_Open()
Tabelle6.Cells(2, 1).Value = Environ("username")
Worksheets("Tabelle6").Range("R1").Value = UCase(Environ("username"))'setzt Namen in Gross
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.DisplayHorizontalScrollBar = True
Sheets("Tabelle1").Shapes.Range(Array("TextBox 1")).Visible = True
If Worksheets("Tabelle6").Range("R1").Value  UCase("pfoh02") 'wandelt "pfoh02" in "PFOH02"_
And Worksheets("Tabelle6").Range("R1").Value  UCase("musik01") _
'---usw---

gruss hary

Anzeige
AW: Textfelder sperren für einige Zugriffe - @Klaus
01.09.2014 08:32:35
Mirko
Hallo hary,
vielen Dank für eure Hilfe, ja dies ist der Code, aber mit "UCase" funktioniert dies nicht.
Vielleicht habe ich mich auch falsch ausgedrückt.. Sorry
was ich wollte ist das es egal ist wie mann sich am Rechner anmeldet z.B.
Muster.Max oder muster.max oder Muster.max oder muster.Max -- diese Schreibweisen sollen akzeptiert werden und nicht komplett gross oder klein...
Gibt es dafür auch eine Prüfung ..
Vielen Dank
Gruss Mirko

Anzeige
AW:Codeintern
01.09.2014 08:42:38
hary
Moin
Dann nur Codeintern pruefen. 
Private Sub Workbook_Open()
Tabelle6.Cells(2, 1).Value = Environ("username")
Worksheets("Tabelle6").Range("R1").Value = Environ("username")'setzt Namen wie angemeldet
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.DisplayHorizontalScrollBar = True
Sheets("Tabelle1").Shapes.Range(Array("TextBox 1")).Visible = True
If UCase(Worksheets("Tabelle6").Range("R1").Value)  UCase("pfoh02") 'wandelt Codeintern " _
pfoh02" in "PFOH02"_
And Worksheets("Tabelle6").Range("R1").Value  UCase("musik01") _
'---usw---

gruss hary

Anzeige
AW: AW:Codeintern
01.09.2014 09:03:57
Mirko
Hallo hary,
Danke -- das ist dann meine letzte Zeile aber irgendwie noch nicht korrekt..
And UCase (Worksheets("Tabelle2").Range("R1").Value "" Then
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHorizontalScrollBar = False
Sheets("Start Projekt").Shapes.Range(Array("Textfeld 7")).Visible = False
Fehler bei Kompilieren:
Syntaxfehler
VG Mirko

Anzeige
AW: AW:Codeintern
01.09.2014 10:00:48
yummi
Hallo hary,
eine Zeile die mit And anfängt kann nur einen Syntax Error hervorrufen, egal ob am Ende oder mittendrin. Kann es sein, dass diese Zeile zu der darüber gehört und Du nur ein _ am Ende der vorletzten Zeile vergessen hast?
Gruß
yummi

AW: AW:Codeintern
01.09.2014 10:41:00
Mirko
Hallo yummi,
hier mal alle Zeilen.. 
Private Sub Workbook_Open()
Tabelle2.Cells(2, 1).Value = Environ("username")
Worksheets("Tabelle2").Range("R1").Value = UCase(Environ("username"))
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.DisplayHorizontalScrollBar = True
Sheets("Start Projekt").Shapes.Range(Array("Textfeld 7")).Visible = True
If UCase (Worksheets("Tabelle2").Range("R1").Value  UCase("pfoh02") _
' hier stehen noch mehr Zeilen zwischen wie die nächste Zeile da ja mehere MA Zugriff haben  _
sollen'
And UCase (Worksheets("Tabelle2").Range("R1").Value  UCase("Pfoh.M") Then
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHorizontalScrollBar = False
Sheets("Start Projekt").Shapes.Range(Array("Textfeld 7")).Visible = False
End If
End Sub
VG Mirko

Anzeige
AW: AW:Codeintern
01.09.2014 10:54:25
yummi
Hallo Mirko,
den Teil wo der Fehler auftritt hast Du mit ... ausgeblendet!
Nochmal: Schau dir die Zeile direkt über dem Syntaxfehler an, diese muss mit _ enden!!! Das fehlt bei dir orakel ich jetzt mal.
Das _ besagt, dass der Ciode in der Zeile fortgesetzt wird, wenn das fehlt wird jede Zeile einzeln für sich betrachtet und eine zeile die mit And beginnt ist syntaktisch falsch, mach ein _ in die Zeile davor und alles ist gut
Gruß
yummi

Anzeige
AW: AW:Codeintern
01.09.2014 12:07:14
Mirko
Hallo Yummi,
ich habe in jeder Zeile am Ende ein _
siehe hier:
If UCase (Worksheets("Tabelle2").Range("R1").Value UCase("pfoh02") _
And UCase (Worksheets("Tabelle2").Range("R1").Value UCase("muster.max") _
And UCase (Worksheets("Tabelle2").Range("R1").Value UCase("user.test") _
And UCase (Worksheets("Tabelle2").Range("R1").Value UCase("Meier.Karl") _
And UCase (Worksheets("Tabelle2").Range("R1").Value UCase("Pfoh.M") Then
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHorizontalScrollBar = False
Sheets("Start Projekt").Shapes.Range(Array("Textfeld 7")).Visible = False
End If
End Sub
so sieht dies aus -- und dann trotzdem der Fehler
VG Mirko

Anzeige
AW: AW:Codeintern
01.09.2014 12:12:03
hary
Moin
Da fehlt/fehlen 'ne Klammer(n)
If UCase (Worksheets("Tabelle2").Range("R1").Value)
gruss hary

AW: AW:Codeintern
01.09.2014 12:45:10
Mirko
Hallo harvy, Hallo yummi,
vielen Dank für eure Hilfe funktioniert super -- Besten Dank an euch.
VG Mirko
;

Forumthreads zu verwandten Themen

Einzigartige Werte in Array identifizieren
Sebastian

Hallo Experten,
ich habe eine Frage, die vermutlich recht leicht zu lösen sein sollte:
Ich habe eine sehr lange Liste, in der in Spalte A Produktnummern stehen, viele kommen auch mehrfach vor. Ich möchte gerne daraus in einem neuen Tabellenblatt eine Liste erstellen, in der jede verschi...
10.08.2008 21:30:00
Thread-ID: 1000688
2 Beiträge
in einem Range navigieren?
pasya

Hallo zusammen,
wie kann man in einem Range navigieren? Z.b. ich habe Zeilen mit dem Autofilter gefiltert und möchte jetzt auf bestimmte Werte bestimmter Spalten zugreifen.
.Cells(row, 1).Value = wkstArtikeln.UsedRange.Columns("$A:$A").SpecialCells(xlCellTypeVisible).Offset(1, 0).Value<...
12.08.2008 09:58:00
Thread-ID: 1001081
3 Beiträge
Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
If...Then... bei verschiedenen Bedingungen?
Vic

Hallo zusammen
Ich habe folgendes Problem und weiss nicht, wie ich das über mein Marko gelöst bekomme:
In der Spalte "H" habe ich diverse Werte (zwischen 0 und X) und in der Spalte "K" ebenfalls. Nun möchte ich, dass es in der Spalte "L" eine "0" ausgibt, wenn "H" den Wert Null hat und...
13.08.2008 15:00:00
Thread-ID: 1001553
5 Beiträge
Anzeige
In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
Wert finden und nicht Ziffer
baronf


Habe ein Problem,
in der Spalte C soll nach Zahlen gesucht werden (Variable MZ)
Wenn MZ den Wert 1 bekommt, wird dür MZ ein wahrer Wert ausgegeben, wenn die Zahl auftriit.
Das heisst, dass nach der Ziffer und nicht nach der Zahl gesucht wird!
Wie kann ich die Formel ändern,...
28.08.2008 16:05:00
Thread-ID: 1005503
2 Beiträge
Wert finden und nicht Ziffer
baronf


Habe ein Problem,
in der Spalte C soll nach Zahlen gesucht werden (Variable MZ)
Wenn MZ den Wert 1 bekommt, wird dür MZ ein wahrer Wert ausgegeben, wenn die Zahl auftriit.
Das heisst, dass nach der Ziffer und nicht nach der Zahl gesucht wird!
Wie kann ich die Formel ändern,...
28.08.2008 16:06:00
Thread-ID: 1005504
4 Beiträge
Anzeige
Knifflig - Zeilen einfügen
Frederic

Guten Morgen liebes Forum,
ich hab da ein kleines kniffeliges Problem, hoffe, ihr könnt mir evtl. weiterhelfen:
Ich exportiere Daten per Makro in eine neue leere Mappe (Mappe1.xls).
Vorab: Die Spaltenzuordnung ist immer identisch!
Jetzt möchte ich statt manuell wie bisher, die R...
29.08.2008 07:29:19
Thread-ID: 1005628
10 Beiträge
Anzeige
Range bis zu einer bstimmten Zeile kopieren
Joachim

Hi,
ich habe eine Sub, um Daten eines Ranges von einem Tabellenblatt zu einem andren Tabellenblatt zu kopieren:
Sub Kopieren() Dim intS As Integer Sheets("Daten einlesen").Range("C2:H150").Copy With Sheets("Übersicht") intS = .Cells(4, Columns.Count).End(xlToLeft).Column .Cells(5, in...
19.09.2008 20:57:12
Thread-ID: 1011139
5 Beiträge
Anzeige
Datum in einem Range Formatieren
TomTom

Hi,
ich möchte per Makro einen Range auf dem Tabellenblatt "Tabelle5" deffinieren (zB. C5:C40) und in diesem das Datum auf TT.MM.JJJJ stellen, egal was vorher für ein Format stand (ob amerikanisch, ob Deutsch, JJJJ.MM.TT.....)
Wie formatiere ich einen Range in dieses datumsformat ?
...
06.11.2008 13:13:00
Thread-ID: 1022256
10 Beiträge
Klein.- in Grosschrift ändern
Macro

Hi,
kann ich per Makro in der Tabelle "DATEN" im Range B5:B35 alle Einträge von klein ind Grosschrift ändern.
Also, z.B. aus
test
Test
tEST
soll letztendlich immer "TEST" werden
Wie macht man den sowas ?
Danke mal
Marko
12.11.2008 12:18:23
Thread-ID: 1023771
8 Beiträge
Schleife: Zählen mit 2 Bedingungen
Sabrina

Hallo liebe Excel - Freunde,
Wollte erstmal sagen, dass ich das Forum ganz toll finde. Hat mir als Einsteiger schon den ein oder anderen Tipp gegeben.
Nun habe ich ein spezifisches Problem, bei dem ich einfach nicht weiterkomme. Ich hoffe ihr könnte mir dabei ein bisschen helfen.
Ic...
23.11.2008 20:21:00
Thread-ID: 1027155
6 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