Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Meikel vom 06.06.2019, 10:15 Options
Hilfe beim Prozedur Ablauf
Hallo zusammen,
wäre sehr dankbar, wenn jemand helfen könnte.
Habe folgenden Code eingebaut:
Sub Textfeld26_BeiKlick()
If Sheets("Masterdata").Visible = True Then
Sheets("Masterdata").Activate
UserForm2.Show = False
Else
If Sheets("Masterdata").Visible = False Then
UserForm2.Show
End Sub
Hier wird folgender Fehler ausgegeben:
Zuweisung zu einer Konstanten nicht zulässig.
Ich möchte folgendes erreichen:
Wenn die Tabelle "Masterdata" bereits geöffnet ist, dann keine Passwortabfrage, die augelöst wird durch die Userform2.Show.
Ist die Tabelle "Masterdata nicht geöffnet, dann Passwortabfrage mit Userform2.Show.
Hat ein Experte einen Rat für mich? Danke vielmals vorab.
Viele Grüße, meikel
wäre sehr dankbar, wenn jemand helfen könnte.
Habe folgenden Code eingebaut:
Sub Textfeld26_BeiKlick()
If Sheets("Masterdata").Visible = True Then
Sheets("Masterdata").Activate
UserForm2.Show = False
Else
If Sheets("Masterdata").Visible = False Then
UserForm2.Show
End Sub
Hier wird folgender Fehler ausgegeben:
Zuweisung zu einer Konstanten nicht zulässig.
Ich möchte folgendes erreichen:
Wenn die Tabelle "Masterdata" bereits geöffnet ist, dann keine Passwortabfrage, die augelöst wird durch die Userform2.Show.
Ist die Tabelle "Masterdata nicht geöffnet, dann Passwortabfrage mit Userform2.Show.
Hat ein Experte einen Rat für mich? Danke vielmals vorab.
Viele Grüße, meikel
Antwort 1 von Beverly vom 06.06.2019, 10:55 Options
Hi Meikel,
versuche es mit diesem Code
Bis später,
Karin
versuche es mit diesem Code
Sub Textfeld26_BeiKlick()
If Sheets("Masterdata").Visible Then
Sheets("Masterdata").Activate
Else
UserForm1.Show
End If
End Sub
Bis später,
Karin
Antwort 2 von Meikel vom 06.06.2019, 11:20 Options
Hi Karin,
erstmal besten Dank für den Tipp, der Code scheint zu stimmen, aber wenn ich auf das Textfeld drücke gibt es keine Reaktion:
Ich versuch den Ablauf nochmal zu beschreiben:
In Tabelle1 ist ein Textfeld welches beim Drücken eine UserForm1 öffnet und nach richtiger Eingabe des Passwortes die Tabelle Masterdata öffnet. Die Tabelle Masterdata wurde versteckt mit "xlSheet veryHidden.
Ziel ist, falls ein User die Tabelle bereits geöffnet hat, und er das Textfeld in Tabelle1 drückt, nicht nochmal das Passwort abgefragt wird, sondern in Tabelle Masterdata gesprungen wird.
Hoffe es ist verständlich erklärt. Danke vorab nochmal für die Hilfe. Gruß, meikel
erstmal besten Dank für den Tipp, der Code scheint zu stimmen, aber wenn ich auf das Textfeld drücke gibt es keine Reaktion:
Ich versuch den Ablauf nochmal zu beschreiben:
In Tabelle1 ist ein Textfeld welches beim Drücken eine UserForm1 öffnet und nach richtiger Eingabe des Passwortes die Tabelle Masterdata öffnet. Die Tabelle Masterdata wurde versteckt mit "xlSheet veryHidden.
Ziel ist, falls ein User die Tabelle bereits geöffnet hat, und er das Textfeld in Tabelle1 drückt, nicht nochmal das Passwort abgefragt wird, sondern in Tabelle Masterdata gesprungen wird.
Hoffe es ist verständlich erklärt. Danke vorab nochmal für die Hilfe. Gruß, meikel
Ähnliche Themen
Datensatz suchen, Suchmaske
HolySteiger 19.07.2007 - 156 Hits -
autom. einlesen von cd's und dvd's unter windows XP
golfgritti 17.10.2007 - 92 Hits - 1 Antwort
LostFocus-Problem
NochEinGast 17.01.2008 - 15 Hits -
VBA + prozedur zu groß
seebaer_1 22.02.2008 - 36 Hits - 6 Antworten
Prozedur FormClose(Nil) mittels eines Buttons in Borland Delphi aufrufen
GastXY 28.05.2008 - 28 Hits - 3 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
