Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
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
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1484to1488
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
1484to1488
1484to1488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Optimierung von VBA Code zum Zeilen ausblenden

Optimierung von VBA Code zum Zeilen ausblenden
09.04.2016 13:13:14
VBA
Hi Zusammen!
Ich hab mir mit VBA Rekorder und ein paar Schnipseln die ich im Forum gefunden habe einen Code gebastelt. Er funktioniert auch. Allerdings würde ich VBA gerne ein bisschen besser lernen und wollte deshalb wissen ob ihr eine Möglichkeit seht den Code zu optimieren.
Ich habe versucht mit With zu arbeiten.
With Sheets("Planung")
.Rows("52:53").Select
Selection.EntireRow.Hidden = True
' Restliche Code
End With
Allerdings macht er nicht das was ich will.
Hier der Code der funktioniert:
Private Sub LsmEinAusblenden()
Application.ScreenUpdating = False
If Cells(35, 4).Value = "Nein" Then
'Zeilen im Blatt Planung ausblenden - Blattschutz aus und einschalten
Sheets("Planung").Select
Application.Run "SchutzAus"
Rows("52:53").Select
Selection.EntireRow.Hidden = True
Range("A1").Select
Application.Run "SchutzEin"
'Zeile im Blatt Individualisierung ausblenden - Blattschutz aus und einschalten
Sheets("Individualisierung").Select
Application.Run "SchutzAus"
Rows("10:10").Select
Selection.EntireRow.Hidden = True
Range("G9").Select
Application.Run "SchutzEin"
Sheets("Eingabe").Select
ElseIf Cells(35, 4).Value = "Ja" Then
'Zeilen im Blatt Planung einblenden - Blattschutz aus und einschalten
Sheets("Planung").Select
Application.Run "SchutzAus"
Rows("52:53").Select
Selection.EntireRow.Hidden = False
Range("A1").Select
Application.Run "SchutzEin"
'Zeile im Blatt Individualisierung einblenden - Blattschutz aus und einschalten
Sheets("Individualisierung").Select
Application.Run "SchutzAus"
Rows("10").Select
Selection.EntireRow.Hidden = False
Range("G9").Select
Application.Run "SchutzEin"
Sheets("Eingabe").Select
End If
End Sub
Könnt ihr mir da vielleicht einen Tipp geben?
Danke und lg
Martin

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Optimierung von VBA Code zum Zeilen ausblenden
09.04.2016 13:35:50
VBA
Halo Martin,
Option Explicit
Sub tzz()
Sheets("Planung").Rows("52:53").EntireRow.Hidden = True
End Sub
Private Sub LsmEinAusblenden()
Application.ScreenUpdating = False
If Cells(35, 4).Value = "Nein" Then
'Zeilen im Blatt Planung ausblenden - Blattschutz aus und einschalten
Application.Run "SchutzAus"
Sheets("Planung").Rows("52:53").EntireRow.Hidden = True
Application.Run "SchutzEin"
'Zeile im Blatt Individualisierung ausblenden - Blattschutz aus und einschalten
Application.Run "SchutzAus"
Sheets("Individualisierung").Rows("10:10").EntireRow.Hidden = True
Application.Run "SchutzEin"
ElseIf Cells(35, 4).Value = "Ja" Then
'Zeilen im Blatt Planung einblenden - Blattschutz aus und einschalten
Application.Run "SchutzAus"
Sheets("Planung").Rows("52:53").EntireRow.Hidden = False
Application.Run "SchutzEin"
'Zeile im Blatt Individualisierung einblenden - Blattschutz aus und einschalten
Application.Run "SchutzAus"
Sheets("Individualisierung").SelectRows("10").EntireRow.Hidden = False
Application.Run "SchutzEin"
End If
End Sub
Sub Schutzaus()
MsgBox 1
End Sub
Sub Schutzein()
MsgBox 2
End Sub

Anzeige
AW: Optimierung von VBA Code zum Zeilen ausblenden
09.04.2016 13:36:15
VBA
Hallo Martin,
bei deinem oberen Code hast du vor Selection einen Punkt vergessen .Selection
Ohne vorher zu Selektieren:
With Sheets("Planung")
.Rows("52:53").Hidden = True
End With
Gruß Werner

AW: Optimierung von VBA Code zum Zeilen ausblenden
09.04.2016 18:46:22
VBA
Ok Sehr cool! Danke euch beiden!
Hab den Code jetzt angepasst. Gibt es noch Verbesserungsmöglichkeiten? Möglicherweise bei den Schutzmakros?
So sieht mein Code jetzt aus:
Sub TestSpaltenAusblenden()
Application.ScreenUpdating = False
Application.Run "SchutzFuerLseAus"
If Cells(35, 4).Value = "Nein" Then
Sheets("Planung").Rows("52:53").EntireRow.Hidden = True
Sheets("Individualisierung").Rows("10:10").EntireRow.Hidden = True
ElseIf Cells(35, 4).Value = "Ja" Then
Sheets("Planung").Rows("52:53").EntireRow.Hidden = False
Sheets("Individualisierung").Rows("10:10").EntireRow.Hidden = False
End If
Application.Run "SchutzFuerLseEin"
End Sub
Die Applications SchutzFuerLse:
Private Sub SchutzFuerLseAus()
Sheets("Individualisierung").Visible = True
Sheets("Planung").Visible = True
Sheets("Planung").Unprotect Password:="abc"
Sheets("Individualisierung").Unprotect Password:="abc"
End Sub
Private Sub SchutzFuerLseEin()
Sheets("Individualisierung").Visible = False
Sheets("Planung").Visible = False
Sheets("Planung").Protect Password:="abc"
Sheets("Individualisierung").Protect Password:="abc"
End Sub

Danke und lg
Martin

Anzeige
AW: Optimierung von VBA Code zum Zeilen ausblenden
09.04.2016 19:13:11
VBA
Ach ja,
die SchutzFuerLse Makros liegen in einem anderen Modul wo ich alle Makros drin habe die das Passwort verwenden. Somit brauche ich nur ein Modul zu öffnen um das Passwort zu ändern. Deshalb steuere ich das mit Application run an.
Vielleicht denk ich hier ja auch zu kompliziert...

AW: Optimierung von VBA Code zum Zeilen ausblenden
11.04.2016 18:51:30
VBA
Moin
Du koenntest auch das Workbook_open Ereignis und UserInterfaceOnly nutzen. UserInterfaceOnly laesst aenderungen durch Makro zu.
Bevor der Code wirkt muss die Mappe gespeichert und geschlossen werden.
Code in den Code "DieseArbeitsmappe" 
Private Sub Workbook_Open()
Dim Passwort As String
Passwort = "abc" '--Passwort nur einmal aendern
Sheets("Planung").Protect Password:=Passwort, UserInterfaceOnly:=True
Sheets("Individualisierung").Protect Password:=Passwort, UserInterfaceOnly:=True
End Sub
der andere Code mit select. 
Sub TestSpaltenAusblenden()
Select Case Cells(35, 4).Value
Case "Nein"
Sheets("Planung").Rows("52:53").Hidden = True
Sheets("Individualisierung").Rows("10:10").Hidden = True
Case "Ja"
Sheets("Planung").Rows("52:53").Hidden = False
Sheets("Individualisierung").Rows("10:10").Hidden = False
End Select
End Sub

gruss hary
Anzeige

320 Forumthreads zu ähnlichen Themen

VBA Zeilen ein/ausblenden + weiters Problem
oblivion

hallo, ich hab mal wieder ein kleines und ein etwas größeres Problem
erstmal zum kleinen. wie bekomme ich es mit hilfe von einem vba hin, wenn ich ein kontrollkästchen mit einem Hacken versehe, dann bestimmte Zeilen (Sagen wir mal Zeile 20 bis 30), die ich vorher versteckt hatte, nun zum vo...
10.08.2008 00:22:06
Thread-ID: 1000558
3 Beiträge
Anzeige
Makro - Zeilen ein- und ausblenden
WalterK

Hallo,
den Code habe ich vor längerer Zeit in einem Forum gefunden und die Bezeichnung "Ein" und "Aus" auf "Privat+Intern Ein" und "Privat+Intern Aus" abgeändert. Noch ist es so, dass über den CommandButton die Zeilen mit den Nichtleeren Zellen in Spalte H aus- oder eingeblendet werden.
...
05.07.2009 11:07:55
Thread-ID: 1086451
6 Beiträge
Automatisch Spalten ausblenden - mit einem Makro?
Jan

Hallo nochmal!
Ich wurde gerade schon einmal in Weltrekordzeit bei meinem anderen Problem geholfen. Vielen herzlichen dank! Nun stehe ich aber erneut vor einer für mich schwierigen Aufgabe. Folgendes Problem:
Wir sind mehrere Gewerke die an einer Excel Tabelle arbeiten. Die Excel Tabell...
28.07.2009 15:46:49
Thread-ID: 1091988
7 Beiträge
Anzeige
bestimmte Spalten ein- und ausblenden (VBA) | Herbers Excel-Forum
Matthias
Hi,
ich bräuchte ein wenig Hilfe zu folgendem Vorhaben:
In einer Liste, in der Identnummern für eine Maschine verwaltet werden, sollen bestimmte Spalten über ein Auswahlmenü ein- und ausgeblendet werden können. Dabei sollen bei Auswahl einer Maschinenbaugröße (von 110 bis 610) immer drei Sp...
24.01.2010 16:55:43
Thread-ID: 1132489
4 Beiträge
VBA: Text in Spalten - mehrere Spalten | Herbers Excel-Forum
Jonathan
Hallo liebe Experten,
ich bräuchte mal wieder etwas Hilfe...
In einer Tabelle stehen in einigen Spalten (jeweils ab Zeile 9 - Zeile 46) Zahlen.
Die Zellen sind als "Standart" definiert. Jedoch ist es so, dass einige Zahlen dennoch nicht als solche erkannt werden. Erst nach einem Doppelk...
05.02.2010 09:43:46
Thread-ID: 1136027
4 Beiträge
Spalten und Zeilen ausblenden per Makro
Stefan

Hallo,
ich möchte per Makro bestimmte Spalten und Zeilen ausblenden. Der mit dem Makrorcorder erst aufgezeichnete und angepaßte Weg blendet mir dann allerdings alle Spalten und Zeilen aus.
Kann mir bitte jemand helfen, wie ich den Code schreiben muss?
Sub Fall2_Spalten_Zeilen_ausb...
06.04.2010 10:10:32
Thread-ID: 1150290
9 Beiträge
VBA Zeilen ein-/ausblenden
Daniel

Hallo
Ich habe eine Frage, ob der nachfolgende VBA-Code vereinfacht werden kann.
Ausgangslage: in der Spalte B sind die Auswahlkriterien (3 stellige Nummern: 101, 102, 103, etc.). Nun soll via Makro alle Zeilen einer bestimmte Nummer (z.B. 101) angezeigt werden.
Ist es möglich, den...
07.07.2010 10:43:30
Thread-ID: 1165894
8 Beiträge
VBA Problem bei Zeilen ausblenden
Lorenz

Hallo Excelspezialisten,
Leider funktioniert der untenstehende Code nur wenn nach Zeile 97 alle Zeilen eingeblendet sind.
Ich habe aber ab Zeile 98 alle Zeilen ausgeblendet.
if Target.Row >= 14 Then
iZ = Target.Row + 1
With Range(Cells(iZ, 1), Cells(97, 1))
.EntireRow...
28.12.2010 14:15:45
Thread-ID: 1193064
8 Beiträge
Anzeige

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