Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
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
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
1512to1516
1512to1516
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Code vereinfachen

Forumthread: VBA Code vereinfachen

VBA Code vereinfachen
16.09.2016 13:22:39
Lutz
Hallo Zusammen,
ich habe mal wieder gebastelt und das klappt auch ganz hervorragend, habe aber eine Frage. Kann man diesen Code vereinfachen und wenn ja wie?
VG und besten Dank.
Sub Worksheet_Activate()
Application.ScreenUpdating = False
With ActiveSheet
ActiveSheet.Rows.Hidden = False
Select Case .Range("B29")
Case Is = "0"
.Rows("29").EntireRow.Hidden = True
Case ""
.Rows("29").EntireRow.Hidden = True
End Select
Select Case .Range("B30")
Case Is = "0"
.Rows("30").EntireRow.Hidden = True
Case ""
.Rows("30").EntireRow.Hidden = True
End Select
Select Case .Range("B31")
Case Is = "0"
.Rows("31").EntireRow.Hidden = True
Case ""
.Rows("31").EntireRow.Hidden = True
End Select
Select Case .Range("B32")
Case Is = "0"
.Rows("32").EntireRow.Hidden = True
Case ""
.Rows("32").EntireRow.Hidden = True
End Select
Select Case .Range("B33")
Case Is = "0"
.Rows("33").EntireRow.Hidden = True
Case ""
.Rows("33").EntireRow.Hidden = True
End Select
Select Case .Range("B34")
Case Is = "0"
.Rows("34").EntireRow.Hidden = True
Case ""
.Rows("34").EntireRow.Hidden = True
End Select
Select Case .Range("B35")
Case Is = "0"
.Rows("35").EntireRow.Hidden = True
Case ""
.Rows("35").EntireRow.Hidden = True
End Select
Select Case .Range("B36")
Case Is = "0"
.Rows("36").EntireRow.Hidden = True
'      Case ""
'         .Rows("36").EntireRow.Hidden = True
End Select
Select Case .Range("B37")
Case Is = "0"
.Rows("37").EntireRow.Hidden = True
Case ""
.Rows("37").EntireRow.Hidden = True
End Select
Select Case .Range("B38")
Case Is = "0"
.Rows("38").EntireRow.Hidden = True
Case ""
.Rows("38").EntireRow.Hidden = True
End Select
End With
With ActiveSheet
Select Case .Range("B42")
Case Is  ""
.Rows("42").EntireRow.Hidden = False
Case ""
.Rows("42").EntireRow.Hidden = True
End Select
Select Case .Range("B43")
Case Is  ""
.Rows("43").EntireRow.Hidden = False
Case ""
.Rows("43").EntireRow.Hidden = True
End Select
Select Case .Range("B44")
Case Is  ""
.Rows("44").EntireRow.Hidden = False
Case ""
.Rows("44").EntireRow.Hidden = True
End Select
Select Case .Range("B45")
Case Is  ""
.Rows("45").EntireRow.Hidden = False
Case ""
.Rows("45").EntireRow.Hidden = True
End Select
Select Case .Range("B46")
Case Is  ""
.Rows("46").EntireRow.Hidden = False
Case ""
.Rows("46").EntireRow.Hidden = True
End Select
Select Case .Range("B47")
Case Is  ""
.Rows("47").EntireRow.Hidden = False
Case ""
.Rows("47").EntireRow.Hidden = True
End Select
Select Case .Range("B48")
Case Is  ""
.Rows("48").EntireRow.Hidden = False
Case ""
.Rows("48").EntireRow.Hidden = True
End Select
Select Case .Range("B49")
Case Is  ""
.Rows("49").EntireRow.Hidden = False
Case ""
.Rows("49").EntireRow.Hidden = True
End Select
Select Case .Range("B50")
Case Is  ""
.Rows("50").EntireRow.Hidden = False
Case ""
.Rows("50").EntireRow.Hidden = True
End Select
Select Case .Range("B51")
Case Is  ""
.Rows("51").EntireRow.Hidden = False
Case ""
.Rows("51").EntireRow.Hidden = True
End Select
End With
Application.ScreenUpdating = True
End Sub

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Code vereinfachen
16.09.2016 14:58:01
Daniel
HI
wenn du mehrere Case-Fälle hast und in jedem Case-Fall das gleiche passieren soll, dann kannst du daraus einen Case-Fall machen
    Select Case .Range("B29")
Case Is = "0"
.Rows("29").EntireRow.Hidden = True
Case ""
.Rows("29").EntireRow.Hidden = True
End Select
geht auch so, du kannst: 
    Select Case .Range("B29")
Case  0, "0", ""
.Rows("29").EntireRow.Hidden = True
End Select
ansonsten bietest sich hier an, mit einer Schleife zu arbeiten: 
Dim Zelle as Range
for each Zelle In Range("B29:B38")
Select Case Zelle.Value
Case 0, "0", ""
Zelle.EntireRow.Hidden = True
end Select
Next
For Each Zelle in Range("B42:B51")
Zelle.EntireRow.Hidden = (Zelle.Value = "")
Next
Gruß Daniel
Anzeige
AW: VBA Code vereinfachen
16.09.2016 15:53:51
Lutz
Vielen Dank Daniel.
So langsam verstehe ich das auch mit der Schleife.
Viele Grüße
Lutz
;

Forumthreads zu verwandten Themen

vba codes verbinden??
alex

Hallo zusammen,
Wie kann man diese Codes kombinieren?
Code 1 (per CommandButton): wird der Bereich A16:L16 im Tabellenblatt „Grundformular“ kopiert und schaltet dann in das Tabellenblatt Übersicht
Sub Eintragungenübernehmen()
Range("A16:L16").Select
Selection.Copy
Sheets...
13.10.2008 23:37:49
Thread-ID: 1016202
5 Beiträge
VBA Code: wenn B1 <> blank, dann I in A1 schreiben
maxx_1985

Hi mit'nander
Braeuchte einen kleine Code dafuer:
wenn B1 blank, dann schreibe ein I in A1.
kann mir vielleicht jemand helfen? :-)
vielen vielen dank
denis
18.11.2008 16:27:16
Thread-ID: 1025694
5 Beiträge
wo VBA code einfuegen? ins modul?
maxx_1985

Hey Leute,
wo muss ich diesen Code einfuegen, damit er funktioniert? doch in kein modul oder?
Private Sub Open_workbook() Const Blattname = "Overview" Dim z As Range With Sheets(Blattname) .Activate Set z = .Range("a:a").Find(What:="=Tue", LookIn:=xlFormulas) If Not z Is Nothing Then...
03.12.2008 16:10:39
Thread-ID: 1029882
10 Beiträge
Anzeige
Brainfuck Code umsetzen in Vba-Code
Reinhard

Hallo Wissende, Brainfuck Code sieht so aus: >++++++++++[-]++++++[-].>++[-].>+++[-]+++[-]+++[-].>++[-].>++++[-]++++ usw. Wobei nur diese acht Regeln gelten: > Inkrementiert den Zellzeiger, quasi Activecell.offset(0,1) http://de.wikipedia.org/wiki/Brainfuck _ In dieser Mapp...
25.12.2008 18:17:00
Thread-ID: 1035219
7 Beiträge
VBA-Code in einem String erzeugen und dann ausführ
Dirk

Hallo!
Gibt es eine Möglichkeit, VBA-Code auszuführen, der in einer String-Variablen vorliegt, die zuvor dynamisch erzeugt wurde? Sprich: Ich möchte VBA-Code dynamisch erzeugen und anschließend ausführen. Geht das irgendwie?
Ich hoffe, das ist so verständlich.
Vielen Dank,
Dirk<...
20.01.2009 20:08:36
Thread-ID: 1041981
4 Beiträge
VBA Code mit VBA in Tabelle kopieren - Fehler?!
Andreas

Hallo Herber Fans,
ich habe mir heute aus der Recherche eine Möglichkeit rausgesucht, einen Code über VBA in ein anderes VBA Worksheet zu kopieren. Das dies in VBA überhaupt geht ist ja schon genial. Es soll ein Code in das VBA Worksheet des activeworkbooks kopiert werden.
Der Code dafü...
11.02.2009 15:56:00
Thread-ID: 1049657
3 Beiträge
VBA-Code für "Suchen in: Formeln"
Wolfango

Hallo Experten,
ich habe folgenden VBA-Code:
Sub nach_DokNr_suchen() Columns("A:A").Select Application.Dialogs(xlDialogFormulaFind).Show End Sub
Leider habe ich von VBA keine Ahnung!!!
Wie muss ich diesen Code ergänzen bzw. erweitern, dass im erscheinenden "Suchen-Dialogfeld...
20.04.2009 14:58:48
Thread-ID: 1069849
5 Beiträge
Schutz von VBA-Codes in Excel
VBA-Codes

Mal eine Frage an die Excel-Profis unter Euch. ;)
Habe nach einer Möglichkeit gesucht für eine umfangreichere VBA-Arbeit meine Codes zu schützen, da Excel selber ja nur rudimentären Schutz bietet der von jedem der sich ein wenig besser auskennt in Sekunden auszuhebeln ist.
Dabei bin ich...
22.04.2009 11:22:36
Thread-ID: 1070279
6 Beiträge
Anzeige
Beim erstellen Tabellenblatt VBA Code eintragen | Herbers Excel-Forum
Robert
Guten morgen Leute,
wer kann mit helfen?
Ich möchte per VBA Code in dem neuer erstellten Tabellenblatt mit Namen XY einen Quellcode
reinschreiben z.b.
in einer Spalte AF addiere Zellen wenn die eine Zahl enthalten.
Mit dank im Voraus
Robert
23.05.2009 09:00:32
Thread-ID: 1076816
22 Beiträge
Zelleinhalt mittels VBA in Programm einfügen
marspoki

Hallo,
ich möchte mittels VB in einem externen Programm eine Bummer einfügen.
mein Code sieht zur Zeit so aus.
Private Sub Form_Load() AnwID = Shell("notepad.exe", 1) SendKeys "TTTTTTTTT", True End Sub
Jetzt werden ja die TTTTTTTTT eingefügt.
Das funktioniert auch gut.
29.06.2009 16:47:14
Thread-ID: 1085187
3 Beiträge
Anzeige
VBA Zelle finden und einfügen
Einzel

Hallo,
ich hab mal wieder ein kleines VBA Problem
Ich habe in Tabelle 1 unter E3 bis E7 Werte eingetragen.
Nun möchte ich das sie mit einen Code ausgelesen werden und den jeweiliegen Tagen in Tabelle 2 (neben den Tag rechts) eingefügt wird. Und zwar nur der Wert nicht die Formel.
15.07.2009 09:50:12
Thread-ID: 1088685
4 Beiträge
VBA Code in Modul der gleichen Datei einfügen
Micha

Hallo,
ich möchte VBA Code in ein Modul der gleichen Datei einfügen. Ich finde überall nur die Möglichkeit, VBA-Code in eine andere Datei einzufügen. (s. Beispiel unten)
Sub neuertest() Open "Probe.txt" For Output As #1 Print #1, "Das ist ein Test" Close #1 End Sub Jemand eine Idee ?
02.11.2009 16:44:25
Thread-ID: 1113889
3 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