Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
936to940
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
936to940
936to940
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code - verkürzte Schreibweise möglich?

Code - verkürzte Schreibweise möglich?
03.01.2008 23:03:18
Gerhard
Hallo Zusammen...
Gibt es eigentlich für den unten aufgeführten Code eine "verkürzte" Schreibweise?
So wie ich das jetzt mit meinem "Wissen" zusammengepfriemelt habe, funzt es ja, aber es is ja schon irre viel an "Text"
Lässt sich soetwas auch verkürzt schreiben? Wenn ja wie?
LG Gerhard

Private Sub Userform_initialize()
lbl_KL.Visible = True
Opt_KL.Visible = True
lbl_KL_Menge.Visible = False
txt_KL_Menge.Visible = False
lbl_KL_LFSDatum.Visible = False
txt_KL_LFSDatum.Visible = False
lbl_KL_LFSNr.Visible = False
txt_KL_LFSNr.Visible = False
lbl_KL_LFSNr.Visible = False
txt_KL_LFSNr.Visible = False
lbl_KL_WareIO.Visible = False
Opt_KL_WareIO.Visible = False
Opt_KL_WareNIO.Visible = False
lbl_KL_BegrNIO.Visible = False
txt_KL_BegrNIO.Visible = False
lbl_KL_GeprVon.Visible = False
cbo_KL_GeprVon.Visible = False
Opt_TL.Visible = True
lbl_TL.Visible = True
lbl_TL_Menge.Visible = False
txt_TL_Menge.Visible = False
lbl_TL_LFSDatum.Visible = False
txt_TL_LFSDatum.Visible = False
lbl_TL_LFSNr.Visible = False
txt_TL_LFSNr.Visible = False
lbl_TL_LFSNr.Visible = False
txt_TL_LFSNr.Visible = False
lbl_TL_WareIO.Visible = False
Opt_TL_WareIO.Visible = False
Opt_TL_WareNIO.Visible = False
lbl_TL_BegrNIO.Visible = False
txt_TL_BegrNIO.Visible = False
lbl_TL_GeprVon.Visible = False
cbo_TL_GeprVon.Visible = False
Opt_RL.Visible = True
lbl_RL.Visible = True
lbl_RL_Menge.Visible = False
txt_RL_Menge.Visible = False
lbl_RL_LFSDatum.Visible = False
txt_RL_LFSDatum.Visible = False
lbl_RL_LFSNr.Visible = False
txt_RL_LFSNr.Visible = False
lbl_RL_LFSNr.Visible = False
txt_RL_LFSNr.Visible = False
lbl_RL_WareIO.Visible = False
Opt_RL_WareIO.Visible = False
Opt_RL_WareNIO.Visible = False
lbl_RL_BegrNIO.Visible = False
txt_RL_BegrNIO.Visible = False
lbl_RL_GeprVon.Visible = False
cbo_RL_GeprVon.Visible = False
End Sub




Private Sub Opt_KL_Click()
Me.txtStatus = "RECHNUNG OFFEN"
lbl_KL.Visible = True
Opt_KL.Visible = True
lbl_KL_Menge.Visible = True
txt_KL_Menge.Visible = True
lbl_KL_LFSDatum.Visible = True
txt_KL_LFSDatum.Visible = True
lbl_KL_LFSNr.Visible = True
txt_KL_LFSNr.Visible = True
lbl_KL_LFSNr.Visible = True
txt_KL_LFSNr.Visible = True
lbl_KL_WareIO.Visible = True
Opt_KL_WareIO.Visible = True
Opt_KL_WareIO = Enabled
Opt_KL_WareNIO.Visible = True
Opt_KL_WareNIO = Not Enabled
lbl_KL_BegrNIO.Visible = True
txt_KL_BegrNIO.Visible = False
lbl_KL_GeprVon.Visible = True
cbo_KL_GeprVon.Visible = True
Opt_TL.Visible = True
lbl_TL.Visible = True
lbl_TL_Menge.Visible = False
txt_TL_Menge.Visible = False
lbl_TL_LFSDatum.Visible = False
txt_TL_LFSDatum.Visible = False
lbl_TL_LFSNr.Visible = False
txt_TL_LFSNr.Visible = False
lbl_TL_LFSNr.Visible = False
txt_TL_LFSNr.Visible = False
lbl_TL_WareIO.Visible = False
Opt_TL_WareIO.Visible = False
Opt_TL_WareNIO.Visible = False
lbl_TL_BegrNIO.Visible = False
txt_TL_BegrNIO.Visible = False
lbl_TL_GeprVon.Visible = False
cbo_TL_GeprVon.Visible = False
Opt_RL.Visible = True
lbl_RL.Visible = True
lbl_RL_Menge.Visible = False
txt_RL_Menge.Visible = False
lbl_RL_LFSDatum.Visible = False
txt_RL_LFSDatum.Visible = False
lbl_RL_LFSNr.Visible = False
txt_RL_LFSNr.Visible = False
lbl_RL_LFSNr.Visible = False
txt_RL_LFSNr.Visible = False
lbl_RL_WareIO.Visible = False
Opt_RL_WareIO.Visible = False
Opt_RL_WareNIO.Visible = False
lbl_RL_BegrNIO.Visible = False
txt_RL_BegrNIO.Visible = False
lbl_RL_GeprVon.Visible = False
cbo_RL_GeprVon.Visible = False
End Sub




Private Sub Opt_KL_WareNIO_Click()
txt_KL_BegrNIO.Visible = True
lbl_KL_BegrNIO.Visible = True
End Sub




Private Sub Opt_KL_WareIO_Click()
txt_KL_BegrNIO.Visible = False
lbl_KL_BegrNIO.Visible = False
End Sub




Private Sub Opt_TL_Click()
Me.txtStatus = "LIEFERUNG OFFEN"
lbl_KL.Visible = True
Opt_KL.Visible = True
lbl_TL_Menge.Visible = True
txt_TL_Menge.Visible = True
lbl_TL_LFSDatum.Visible = True
txt_TL_LFSDatum.Visible = True
lbl_TL_LFSNr.Visible = True
txt_TL_LFSNr.Visible = True
lbl_TL_LFSNr.Visible = True
txt_TL_LFSNr.Visible = True
lbl_TL_WareIO.Visible = True
Opt_TL_WareIO.Visible = True
Opt_TL_WareIO = Enabled
Opt_TL_WareNIO.Visible = True
Opt_TL_WareNIO = Not Enabled
lbl_TL_BegrNIO.Visible = True
txt_TL_BegrNIO.Visible = False
lbl_TL_GeprVon.Visible = True
cbo_TL_GeprVon.Visible = True
Opt_KL.Visible = True
lbl_KL.Visible = True
lbl_KL_Menge.Visible = False
txt_KL_Menge.Visible = False
lbl_KL_LFSDatum.Visible = False
txt_KL_LFSDatum.Visible = False
lbl_KL_LFSNr.Visible = False
txt_KL_LFSNr.Visible = False
lbl_KL_LFSNr.Visible = False
txt_KL_LFSNr.Visible = False
lbl_KL_WareIO.Visible = False
Opt_KL_WareIO.Visible = False
Opt_KL_WareNIO.Visible = False
lbl_KL_BegrNIO.Visible = False
txt_KL_BegrNIO.Visible = False
lbl_KL_GeprVon.Visible = False
cbo_KL_GeprVon.Visible = False
Opt_RL.Visible = True
lbl_RL.Visible = True
lbl_RL_Menge.Visible = False
txt_RL_Menge.Visible = False
lbl_RL_LFSDatum.Visible = False
txt_RL_LFSDatum.Visible = False
lbl_RL_LFSNr.Visible = False
txt_RL_LFSNr.Visible = False
lbl_RL_LFSNr.Visible = False
txt_RL_LFSNr.Visible = False
lbl_RL_WareIO.Visible = False
Opt_RL_WareIO.Visible = False
Opt_RL_WareNIO.Visible = False
lbl_RL_BegrNIO.Visible = False
txt_RL_BegrNIO.Visible = False
lbl_RL_GeprVon.Visible = False
cbo_RL_GeprVon.Visible = False
End Sub




Private Sub Opt_TL_WareNIO_Click()
txt_TL_BegrNIO.Visible = True
lbl_TL_BegrNIO.Visible = True
End Sub




Private Sub Opt_TL_WareIO_Click()
txt_TL_BegrNIO.Visible = False
lbl_TL_BegrNIO.Visible = False
End Sub




Private Sub Opt_RL_Click()
Me.txtStatus = "RECHNUNG OFFEN"
lbl_KL.Visible = True
Opt_KL.Visible = True
lbl_RL_Menge.Visible = True
txt_RL_Menge.Visible = True
lbl_RL_LFSDatum.Visible = True
txt_RL_LFSDatum.Visible = True
lbl_RL_LFSNr.Visible = True
txt_RL_LFSNr.Visible = True
lbl_RL_LFSNr.Visible = True
txt_RL_LFSNr.Visible = True
lbl_RL_WareIO.Visible = True
Opt_RL_WareIO.Visible = True
Opt_RL_WareIO = Enabled
Opt_RL_WareNIO.Visible = True
Opt_RL_WareNIO = Not Enabled
lbl_RL_BegrNIO.Visible = True
txt_RL_BegrNIO.Visible = False
lbl_RL_GeprVon.Visible = True
cbo_RL_GeprVon.Visible = True
Opt_TL.Visible = True
lbl_TL.Visible = True
lbl_TL_Menge.Visible = True
txt_TL_Menge.Visible = True
txt_TL_Menge.Locked = True
txt_TL_Menge.BackColor = &HE0E0E0
lbl_TL_LFSDatum.Visible = True
txt_TL_LFSDatum.Visible = True
txt_TL_LFSDatum.Locked = True
txt_TL_LFSDatum.BackColor = &HE0E0E0
lbl_TL_LFSNr.Visible = True
txt_TL_LFSNr.Visible = True
txt_TL_LFSNr.Locked = True
txt_TL_LFSNr.BackColor = &HE0E0E0
lbl_TL_LFSNr.Visible = True
txt_TL_LFSNr.Visible = True
txt_TL_LFSNr.Locked = True
txt_TL_LFSNr.BackColor = &HE0E0E0
lbl_TL_WareIO.Visible = True
Opt_TL_WareIO.Visible = True
Opt_TL_WareIO.Visible = True
Opt_TL_WareNIO.Locked = True
Opt_TL_WareNIO.Locked = True
lbl_TL_BegrNIO.Visible = True
txt_TL_BegrNIO.Visible = True
txt_TL_BegrNIO.Locked = True
txt_TL_BegrNIO.BackColor = &HE0E0E0
lbl_TL_GeprVon.Visible = True
cbo_TL_GeprVon.Visible = True
cbo_TL_GeprVon.Locked = True
cbo_TL_GeprVon.BackColor = &HE0E0E0
Opt_KL.Visible = True
lbl_KL.Visible = True
lbl_KL_Menge.Visible = False
txt_KL_Menge.Visible = False
lbl_KL_LFSDatum.Visible = False
txt_KL_LFSDatum.Visible = False
lbl_KL_LFSNr.Visible = False
txt_KL_LFSNr.Visible = False
lbl_KL_LFSNr.Visible = False
txt_KL_LFSNr.Visible = False
lbl_KL_WareIO.Visible = False
Opt_KL_WareIO.Visible = False
Opt_KL_WareNIO.Visible = False
lbl_KL_BegrNIO.Visible = False
txt_KL_BegrNIO.Visible = False
lbl_KL_GeprVon.Visible = False
cbo_KL_GeprVon.Visible = False
End Sub




Private Sub Opt_RL_WareNIO_Click()
txt_RL_BegrNIO.Visible = True
lbl_RL_BegrNIO.Visible = True
End Sub




Private Sub Opt_RL_WareIO_Click()
txt_RL_BegrNIO.Visible = False
lbl_RL_BegrNIO.Visible = False
End Sub


7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code - verkürzte Schreibweise möglich?
03.01.2008 23:16:14
{Boris}
Hi Gerhard,
allgemein: Mit TypeOf kannst Du spezielle Control-Typen überprüfen und sie dadurch in einer Schleife ansprechen. Hier ein Beispiel für alle Labels in einem Userform:

Private Sub CommandButton1_Click()
Dim objControl As Control
For Each objControl In Me.Controls
If TypeOf objControl Is MSForms.Label Then
objControl.Visible = Not objControl.Visible
End If
Next objControl
End Sub


Grüße Boris

AW: Code - verkürzte Schreibweise möglich?
03.01.2008 23:21:18
Gerhard
Hallo Boris...
:) Naja verstehen tu ich das NOCH ned, aber ich werd mich da mal reinarbeiten. Wo es gerade bei mir hapert, ist wie ich mit diesem Beispiel, das bei meinem Prob "umbauen" muss, da ich zwar alle Labels anspreche, aber immer unterschiedlich ob visible oder nicht...
Trotzdem thx
greetz Gerhard

Anzeige
Du kannst einzelne Labels ausschließen...
03.01.2008 23:32:41
{Boris}
Hi Gerhard,
...indem Du noch zusätzlich innerhalb einer Select Case-Abfrage ihre Namen überprüfst:

Private Sub CommandButton1_Click()
Dim objControl As Control
For Each objControl In Me.Controls
If TypeOf objControl Is MSForms.Label Then
Select Case objControl.Name
Case "Label1", "Label2" '


Grüße Boris

AW: Code - verkürzte Schreibweise möglich?
03.01.2008 23:37:45
Uduuh
Hallo,
dann noch ein 

select Case objcontrol.name
case "blaa", "blab","blac"
objcontrol.visible=False
else
objcontrol.visible=true
end select


dazwischen
Gruß aus’m Pott
Udo

Anzeige
AW: Code - verkürzte Schreibweise möglich?
05.01.2008 06:55:59
Gerhard
Servus Uduuh, Servus Boris
Ich habe mich mal daran versucht... nääää da übersteigt meinen begrenzten geistigen Horizont :(
(und wenn ich alles ausschliessen muss was nicht ausgeblendet werde soll, habe ich noch mehr Arbeit damit, als mit meiner Schreibweise (Weil das UF noch ne ganze Latte mehr an Labels hat...)
Trotzdem Danke für eure Hilfe und ich lass ma die Frage offen, vllt hat jemand noch ne Idee
Greetz Gerhard

AW: Code - verkürzte Schreibweise möglich?
05.01.2008 14:23:00
Gerd
Hallo Gerhard,
vielleicht liegt sowas diesseits des Horizonts ? :-)
Option Explicit
Dim HauptElemente As Variant
Dim Detail_Labels_KL As Variant
Dim zähler As Integer

Private Sub UserForm_Activate()
HauptElemente = Array("lbl_KL", "Opt_KL")
Detail_Labels_KL = Array("lbl_KL_Menge", "lbl_KL_LFSDatum", _
"lbl_KL_LFSNr", "lbl_KL_WareIO", _
"lbl_KL_BegrNIO", "lbl_KL_GeprVon")
Call Einblenden(HauptElemente)
Call Ausblenden(Detail_Labels_KL)
End Sub


Function Ausblenden(Steuerelementenamen As Variant)
For zähler = 0 To UBound(Steuerelementenamen)
Me.Controls(Steuerelementenamen(zähler)).Visible = False
Next
End Function


Function Einblenden(Steuerelementenamen As Variant)
For zähler = 0 To UBound(Steuerelementenamen)
Me.Controls(Steuerelementenamen(zähler)).Visible = True
Next
End Function


Gruß Gerd

Anzeige
AW: Code - verkürzte Schreibweise möglich?
05.01.2008 14:43:00
Daniel
Hi
wenn es in deinen Steuerelementen bestimmte Gruppen gibt, dh. Steuerelemente, die immer zusammen ein- oder ausgeblendet werden, dann könntest du das auch über Untermakros verkürzen:
du schreibst für jede Gruppe ein Untermakro:

Private Sub Gruppe1(bolVisi as boolean)
txt1.visible = bolVisi
txt2.visible = bolVisi
lbl1.visible = bolVisi
lbl2.visible = bolVisi
end sub
Private Sub Gruppe2(bolVisi as boolean)
txt3.visible = bolVisi
txt4.visible = bolVisi
lbl3.visible = bolVisi
lbl4.visible = bolVisi
End sub


um jetzt im Hauptcode alle Elemnte einer Gruppe aus- oder einzublenden, schreibst du jetzt nur noch:


Call Gruppe1(true)
Call Gruppe2(false)
...


Elemente, die sich unabhängig von einer Gruppe verändern, musst du halt weiterhin einzeln abarbeiten, aber für den grössten Teil könnte es schon eine vereinfachung sein.
Gruß, Daniel

Anzeige

300 Forumthreads zu ähnlichen Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Anzeige
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Zellen mit Werten aus darüberliegender Zelle fülle
Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
11.08.2008 08:59:25
Thread-ID: 1000713
4 Beiträge
Anzeige
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
"Bild von Excel-Kamara" variabel...
Excel-Kamara"

Hi Experten,
einen Bereich (Zellen, Bild, Grafik...) mit der Excel-Kamara "fotografieren" und in eine andere Excelmappe einfügen ist kein Problem.
Bei mir werden Ecxel_Vorlagen ausgefüllt und unter fortlaufender Dateinummer abgespeichert, zB. QR000123, QR000124, QR000125 usw. Alle Datei...
12.08.2008 10:33:28
Thread-ID: 1001116
4 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge

Links zu Excel-Dialogen

CommandButton Label

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
2
7
2
3
1
7
8
2
3
6
11
5
5
8
15
3
7
4
4
3
2
7
4
3
4