Herbers Excel-Forum - das Archiv

Automatische Einblendung

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Automatische Einblendung
von: Steffi

Geschrieben am: 09.03.2005 08:48:43
Guten Morgen allerseits,
in meiner Arbeitsmappe (ca.30 Tabellenblätter)
schalte ich auf dem Blatt "Startseite" mit Hilfe von zwei Schaltfächen
auf das Tabellenblatt "Lieferschein" bzw. Blatt "Rechnung" um.
Der besondere Effekt:
Bei Aktivierung von Blatt "Lieferschein" werden die Spalten C / D / E / F
ab Tabellenblatt 6 ausgeblendet.
Bei Aktivierung von Blatt "Rechnung" werden die Spalten C / D / E / F
ab Tabellenblatt 6 eingeblendet.
Problem:
Ich möchte, wenn die Spalten eingeblendet sind das auf dem Blatt "Startseite"
in Zelle B11 dann das Wort "Aktiv" einblendet wird.
Schön wäre es wenn das Wort "Aktiv" dann noch blinkt.
Könnte mir bitte jemand behilflich sein?

Gruss
Steffi
Bild

Betrifft: AW: Automatische Einblendung
von: floste

Geschrieben am: 09.03.2005 09:18:09
würde mit if abfragen ob spalten CDEF in workbooks("lieferschein") eingeblendet sind ...
if workbook("lieferschein").columns(3).visible = true then
workbook("startseite").cells(1,11).value = "Aktiv"
end if
blinken ... weiss ich nicht ob das geht ... würde die zelle halt wenn aktiv mit grün, wenn inaktiv mit rot hinterlegen
Bild

Betrifft: AW: Automatische Einblendung
von: Steffi

Geschrieben am: 09.03.2005 09:46:27
Hallo Floste,
im Tabellenblatt "Lieferschein" (3tes Tabellenblatt)werden keine Spalten ausgeblendet
erst ab Tabellenblatt 7(Sorry habe mich vorhin verzählt).
Da ich wenig Ahnung von VBA habe weis ich nicht wie
der genaue Code (Sub.........) aussieht und wo ich diesen Code
reinschreiben muss.
Danke für deine Hilfe
Steffi
Bild

Betrifft: AW: Automatische Einblendung
von: UweD

Geschrieben am: 09.03.2005 09:48:05
Hallo Steffi

hier eine Beispielmappe (Ohne Blinken)
https://www.herber.de/bbs/user/19384.xls
enthält folgenden Code
Private Sub CommandButton1_Click() 'Lieferschein
Sheets("Startseite").Range("B11").Value = ""
Sheets("Lieferschein").Activate
For i = 6 To Sheets.Count
Sheets(i).Columns("C:F").EntireColumn.Hidden = True
Next
End Sub

Private Sub CommandButton2_Click() 'Rechnung
Sheets("Startseite").Range("B11").Value = "Aktiv"
Sheets("Rechnung").Activate
For i = 6 To Sheets.Count
Sheets(i).Columns("C:F").EntireColumn.Hidden = False
Next
End Sub

Gruß UweD
Bild

Betrifft: AW: Automatische Einblendung
von: Steffi

Geschrieben am: 09.03.2005 10:24:10
Hallo Uwe,
vielen Dank für deine Antwort kann man dies auch in die beiden
unteren Codes einbauen.
Nicht erschrecken der zweite Code ist etwas zu lang (Unwissen)
geht sicherlich auch viel kürzer.

Sub Rechnung _aktivieren()
Application.ScreenUpdating = False
If PasswortHolen("Geben Sie das Passwort ein") <> "Felix" Then
Beep
If MsgBox("Passwort falsch!", vbOKCancel) = vbCancel Then End
Else
For blatt = 7 To Sheets.Count
With Sheets(blatt)
.Unprotect Password:="Felix"
.Cells.EntireColumn.Hidden = False
Sheets("Administrator").Visible = True
End With
Next
Application.ScreenUpdating = False
MsgBox ("Tabellenblattschutz deaktiviert" & Chr(10) & "Tabellenblatt Administrator wird eingeblendet" & Chr(10) & "Preis-Spalten wurden eingeblendet")
Sheets("Rechnung").Activate
Range("C20").Select
End If
End Sub


Sub Von_Rechnung_zu_Lieferschein_wechseln_ohne_speichern()
Application.ScreenUpdating = False
Sheets("BacherSystems").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Sheets("BacherE").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Sheets("BacherJ").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
Sheets("Birkenstock").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
Sheets("Boewe").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
Sheets("Bosal").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
Sheets("Comeg").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
Sheets("dtm").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
Sheets("ENBW").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
Sheets("Fauser").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
Sheets("Fritz").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
Sheets("Grimm").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
Sheets("Hafner").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
Sheets("Handte").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
Sheets("Hawema").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
Sheets("Heiss").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
Sheets("Herzog").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
Sheets("Hipp").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
Sheets("HPH").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
Sheets("Häfele").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
Sheets("Hübner").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
Sheets("KW").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Sheets("KellerMarter").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Sheets("Desma").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Sheets("Kuhrau").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Sheets("Kunzmann").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Sheets("M.Martin").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Sheets("Mede").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Sheets("Middex").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
Sheets("Oertel").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
Sheets("Oswald").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
Sheets("Pernuma").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Sheets("PFM").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Sheets("REF").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
Sheets("Riedmueller").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
Sheets("Rieker").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
Sheets("SN").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Sheets("S.Schilling").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Sheets("Sauter").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
Sheets("Schott").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
Sheets("Schuetz").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
Sheets("Selutor").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
Sheets("SES").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Sheets("SHW").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Sheets("Solidus").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
Sheets("StadtTuttlingen").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
Sheets("Stecher").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
Sheets("Strom").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
Sheets("Treu").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Sheets("TUT Instruments").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Sheets("Typodruck").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
Sheets("Vomed").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
Sheets("Weber").Select
Range("C9:F100").Select
Selection.EntireColumn.Hidden = True
Range("A10").Select
MsgBox ("Preis-Spalten wurden ausgeblendet" & Chr(10) & "Tabellenblatt Administrator wird ausgeblendet" & Chr(10) & "Tabellenblattschutz aktiviert" & Chr(10) & "Es wird zum Lieferschein-Formular umgeschaltet")
For blatt = 2 To Sheets.Count
Sheets(blatt).Protect Password:="Felix"
Next
Application.ScreenUpdating = False
Sheets("Administrator").Visible = xlVeryHidden
Application.ScreenUpdating = True
Sheets("Lieferschein").Select
End Sub

Dank
Steffi
Bild

Betrifft: AW: Automatische Einblendung
von: UweD

Geschrieben am: 09.03.2005 11:13:24
Hallo

müste eigendlich so klappen.

Sub Rechnung_aktivieren()
Application.ScreenUpdating = False
If PasswortHolen("Geben Sie das Passwort ein") <> "Felix" Then
Beep
If MsgBox("Passwort falsch!", vbOKCancel) = vbCancel Then End
Else
For blatt = 7 To Sheets.Count
With Sheets(blatt)
.Unprotect Password:="Felix"
.Cells.EntireColumn.Hidden = False
Sheets("Administrator").Visible = True
End With
Next
Application.ScreenUpdating = False
MsgBox ("Tabellenblattschutz deaktiviert" & Chr(10) & "Tabellenblatt Administrator wird eingeblendet" & Chr(10) & "Preis-Spalten wurden eingeblendet")
'hier neu
Sheets("Startseite").Range("B11").Value = "Aktiv"
Sheets("Rechnung").Activate
'hier Ende Neu
Range("C20").Select
End If
End Sub

Sub Von_Rechnung_zu_Lieferschein_wechseln_ohne_speichern()
Application.ScreenUpdating = False
Sheets("Startseite").Range("B11").Value = "Aktiv"
For i = 6 To Sheets.Count
Sheets(i).Unprotect Password:="Felix"
Sheets(i).Columns("C:F").EntireColumn.Hidden = False
Next
MsgBox ("Preis-Spalten wurden ausgeblendet" & Chr(10) & "Tabellenblatt Administrator wird ausgeblendet" & Chr(10) & "Tabellenblattschutz aktiviert" & Chr(10) & "Es wird zum Lieferschein-Formular umgeschaltet")
For blatt = 2 To Sheets.Count
Sheets(blatt).Protect Password:="Felix"
Next
Application.ScreenUpdating = False
Sheets("Administrator").Visible = xlVeryHidden
Application.ScreenUpdating = True
Sheets("Lieferschein").Activate
End Sub

Bild

Betrifft: AW: Automatische Einblendung
von: Steffi
Geschrieben am: 09.03.2005 12:58:10
Hallo Uwe,
danke Dir, funktioniert wunderbar
und ich bin auch wieder ein Stück schlauer geworden.
Gruss
Steffi
 Bild
Excel-Beispiele zum Thema "Automatische Einblendung"
Automatische Datumformatierung unterdrücken Automatisches Komplettieren einer Zelleingabe
Nach Zelleingabe automatische Sortierung Automatische Sortierung bei Zelleintrag
Automatische Passworteingabe in Internet-Formular