Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1612to1616
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1612to1616
1612to1616
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Form ein-ausblenden

Form ein-ausblenden
16.03.2018 10:17:32
Max
Hallo liebes Forum,
ich habe folgendes Problem, dass ich lösen möchte:
Eine Form mit dem Namen Info1 (ein Pfeil o.ä.) wurde einem Makro zugewiesen und öffnet über folgendes Modul eine Userform: 
Sub Info1()
Userform1.Show
End Sub

Soweit so gut. In Zelle T12 kann man die Zahlen 0,1,2,3,4 eintragen. Ich möchte nun, dass die Form "Info1" nur dann angezeigt wird, wenn in der Zelle T12 die Zahlen 2 oder 3 stehen. Bei den Zahlen 0,1 und 4 möchte ich, dass man die Form "Info1" nicht sieht (ausgeblendet wird).
Ist dies möglich? Habe bereits in verschiedenen Foren nach Möglichkeiten gesucht, allerdings keine Lösung gefunden.
Vielen Dank für jegliche Hilfe!

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Form ein-ausblenden
16.03.2018 10:28:54
yummi
Hallo Max,

Sub Info1()
if ThisWorkbook.Sheets("DeinSheetName").Cells(12,20).value = 2 or ThisWorkbook.Sheets(" _
DeinSheetName").Cells(12,20).value = 3 then
Userform1.Show
end if
End Sub

Evtl musst du die 2 und die 3 so schreiben "2" "3"
Gruß
yummi
AW: Form ein-ausblenden
16.03.2018 10:29:53
ChrisL
Hi Max
Sub Info1()
If Worksheets("Tabelle1").Range("T12") = 2 Or Worksheets("Tabelle1").Range("T12") = 3 Then _
Userform1.Show
End Sub
cu
Chris
AW: Form ein-ausblenden, bitte spezifizeren...
16.03.2018 10:32:00
EtoPHG
Hallo Max,
1. Es fehlen Angaben, auf welchem Blatt die Zelle T2 betroffen ist.
2. Es fehlen Angaben, wie das Resultat in T12 entsteht: Manuelle Eingabe, Formel, ActiveX-Control, Datenprüfung... etc.
3. Es fehlen Angaben, ob es sich um eine Modale/Nonmodale Userform handelt
4. Es fehlen Angaben, ob sich der Wert in T12 nur vor dem Start, oder auch während dem Show der Userform, verändern kann.
Gruess Hansueli
Anzeige
AW: Form ein-ausblenden, bitte spezifizeren...
16.03.2018 11:34:21
Max
Hallo,
1. Das Blatt trägt den Namen "Kernprozesse"
2. Das Ändern der Zahlen erfolgt über folgendes Modul: 
Sub Umfarben()
Dim Farbe(0 To 4)
Dim x
Farbe(0) = RGB(242, 242, 242)
Farbe(1) = vbGreen
Farbe(2) = vbYellow
Farbe(3) = vbRed
Farbe(4) = RGB(166, 166, 166)
With ActiveSheet.Shapes(Application.Caller)
With .Fill.ForeColor
x = Application.Match(.RGB, Farbe, 0)
If VarType(x) = vbError Then x = 4
x = x Mod (UBound(Farbe) + 1)
.RGB = Farbe(x)
End With
.TopLeftCell.Value = x
End With
End Sub
Bedeutet: Ich klicke auf eine ovale Form. Dadurch ändert sich die Farbe und entsprechend die Zahl in der Zelle T12 auf dem o.g. Tabellenblatt. In dieser ovalen Form ist eine weitere kleine Form (ein Pfeil o.ä.), die nur angezeigt werden soll, wenn in der Zelle T12 die Zahl 2 oder 3 steht. Wenn die kleine Form (ein Pfel o.ä.) zu sehen ist (T12=2 oder T12=3), dann kann man auf diese Form klicken und es öffnet sich eine Userform.
3. Ich weiß ehrlich gesagt nicht, was der Unterschied zwischen modal und nonmodal ist.
4. Die Zahl in T12 (also die Farbe der großen Form) kann nur vor dem Start der Userform oder auch nach dem Schließen der Userform geändert werden.
Anzeige
AW: Form ein-ausblenden, bitte spezifizeren...
16.03.2018 11:34:22
Max
Hallo,
1. Das Blatt trägt den Namen "Kernprozesse"
2. Das Ändern der Zahlen erfolgt über folgendes Modul: 
Sub Umfarben()
Dim Farbe(0 To 4)
Dim x
Farbe(0) = RGB(242, 242, 242)
Farbe(1) = vbGreen
Farbe(2) = vbYellow
Farbe(3) = vbRed
Farbe(4) = RGB(166, 166, 166)
With ActiveSheet.Shapes(Application.Caller)
With .Fill.ForeColor
x = Application.Match(.RGB, Farbe, 0)
If VarType(x) = vbError Then x = 4
x = x Mod (UBound(Farbe) + 1)
.RGB = Farbe(x)
End With
.TopLeftCell.Value = x
End With
End Sub
Bedeutet: Ich klicke auf eine ovale Form. Dadurch ändert sich die Farbe und entsprechend die Zahl in der Zelle T12 auf dem o.g. Tabellenblatt. In dieser ovalen Form ist eine weitere kleine Form (ein Pfeil o.ä.), die nur angezeigt werden soll, wenn in der Zelle T12 die Zahl 2 oder 3 steht. Wenn die kleine Form (ein Pfel o.ä.) zu sehen ist (T12=2 oder T12=3), dann kann man auf diese Form klicken und es öffnet sich eine Userform.
3. Ich weiß ehrlich gesagt nicht, was der Unterschied zwischen modal und nonmodal ist.
4. Die Zahl in T12 (also die Farbe der großen Form) kann nur vor dem Start der Userform oder auch nach dem Schließen der Userform geändert werden.
Anzeige
AW: Form ein-ausblenden, bitte spezifizeren...
16.03.2018 11:44:37
EtoPHG
Hallo Max,
Dann sollte genügen: 
Sub Info1()
Select Case Worksheets("Kernprozesse").Cells(12, 20)
Case 2, 3
UserForm1.Show
End Select
End Sub
Gruess Hansueli

300 Forumthreads zu ähnlichen Themen

Kann Fehler in Formel nicht finden. :(
Alex

Hallo Forum!
Ich habe eine Formel, die ein Moment für eine Schraubverbindung berechnet. Eigentlich ist die Eingabe von Formeln kein Problem für mich, aber irgendwie habe ich in der aktuellen Formel einen Fehler reingepackt, den ich nicht finden kann.
Hier erstmal die Formel:

Hi...
20.08.2008 09:09:00
Thread-ID: 1003086
5 Beiträge
Anzeige
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Zellenformatierung testen - .InsertIndent
Tom

Guten Morgen,
mittels diesem kleinen VBA möchte ich erreichen, dass in Spalte "D" nach "Teilprojekt" gesucht wird.
Wird dieses gefunden, so wird der Text in der Spalte "F" um 2 Einzüge nach rechts verschoben.
Das funktioniert auch soweit.
Private Sub CommandButton2_Click() For...
01.09.2008 10:56:47
Thread-ID: 1006352
3 Beiträge
Anzeige
MultiPage und ImageCombo - Bilder verschwinden
Alfons

Hallo,
ich habe eine UserForm mit einer MultiPage.
In der ersten Registerkarte ist eine ImageCombo.
Die Bilder für die ImageCombo sind in einer ImageList.
Beim starten der UserForm sind die Bilder in der ImageCombo auch zu sehen.
Wird aber zwischendurch ein anderes Register...
15.10.2008 19:38:13
Thread-ID: 1016667
9 Beiträge
Mit LoadPicture Bild aus dem Internet laden
Tobias

Hallo zusammen,
hab mal wieder ein Frage an das Kompetenzteam :).
Möchte in einer Userform ein Firmenlogo anzeigen lassen aber ich will keine Daten irgendwo ablegen. Sollte die Exeldatei mal irgenwo anderst landen ohne zugehöriges IMG wird das Logo nicht mehr angezeigt das will ich verm...
29.10.2008 09:09:00
Thread-ID: 1020141
4 Beiträge
Formel verbinden
Malivendi

Guten Abend,
habe gerade ein problem und komme nicht weiter. Ich gabe eine formel mit der kann ich in einer Tabelle 2 suchen und vergleichen, jetzt müsste ich die formel so erweitern, dass ich in Tabelle 3 , Tabelle 4 usw. suchen und vergleichen kann. In der ersten Tabelle gebe ich die Bez...
04.11.2008 21:31:00
Thread-ID: 1021733
4 Beiträge
Bild in Userform laden
Toby


hallo zusammen
Die aufgabe ist es, mit einer auswahl liste verschiedene Bilder in eine userform zu laden!
die Bilder sollte mit dem Excelfile gespeichert werden können
Zur Zeit mache ich das so, ich lade ein bild mit folgender Funktion in eine Userform
Public Function Bil...
15.12.2008 12:57:09
Thread-ID: 1033005
4 Beiträge
Bild einblenden
Stefan

Hallo Forum,
habe beim suchen im Forum folgenden Code gefunden:
Dim HWH As Object
Sub CommandButton1_Click() CommandButton1.Caption = "Bild" [A300].Activate Set HWH = ActiveSheet.Pictures.Insert("G:\...\....gif") End Sub
Sub CommandButton2_Click() ActiveSheet.Shapes("Pictur...
07.01.2009 13:19:00
Thread-ID: 1037518
3 Beiträge

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
6
9
2
1
8
3
3
3
2
4
4
10
1
5
5
1
1
3
2
6
8
4
7
1