Thema Datum  Von Nutzer Rating
Antwort
16.03.2024 19:49:56 Wolfgang
NotSolved
Blau VBA: Spalten auf anderen Worksheeds in der Mappe ausblenden.
17.03.2024 00:44:49 Gast25455
NotSolved
17.03.2024 01:21:14 Gast67805
NotSolved
17.03.2024 01:39:35 Gast95781
NotSolved
17.03.2024 09:39:20 Gast89529
NotSolved
17.03.2024 11:57:38 ralf_b
NotSolved
17.03.2024 14:17:33 Wolfgang
NotSolved
17.03.2024 14:25:17 ralf_b
NotSolved
17.03.2024 15:00:50 Wolfgang
NotSolved
17.03.2024 19:20:35 ralf_b
NotSolved
18.03.2024 08:22:53 Wolfgang
NotSolved
18.03.2024 18:06:23 Gast74355
NotSolved
19.03.2024 00:02:58 ralf_b
NotSolved
19.03.2024 23:55:43 Gast97212
NotSolved

Ansicht des Beitrags:
Von:
Gast25455
Datum:
17.03.2024 00:44:49
Views:
140
Rating: Antwort:
  Ja
Thema:
VBA: Spalten auf anderen Worksheeds in der Mappe ausblenden.

Hi Wolfgang,

allgemein könnte man das so lösen:

Hinweis: Ungetesteter Code, da freihand geschrieben - habe aktuell kein Excel zur Verfügung.
Deshalb sind Kompilierungs- und/oder Laufzeitfehler nicht ausgeschlossen.

'in Tabelle: Datenblatt

Private Sub Worksheet_Change(ByVal Target as Range)
	
	Dim rngCell As Range
	Dim strTargetAddress As String
	Dim blnVisible As Boolean
	
	For Each rngCell in Target.Cells
		
		Select Case rngCell.Address(False, False)
			Case "B4"
				strTable = "Studie_1"
				strTargetAddress = "8:16, 8:30"
			Case "B5"
				strTable = "Studie_2"
				strTargetAddress = "17:23, 31:53"			
			Case "B6"
				strTable = "Studie_3"
				strTargetAddress = "26:34, 54:76"
			Case "B7"
				strTable = "Studie_4"
				strTargetAddress = "35:43, 77:99"
			Case "B8"
				strTable = "Studie_5"
				strTargetAddress = "44:52, 100:122"
			Case "B9"
				strTable = "Studie_6"
				strTargetAddress = "53:61, 123:145"
			Case "B10"
				strTable = "Studie_7"
				strTargetAddress = "60:62, 146:168"
			Case Else
				GoTo Continue_For
		End Select
		
		blnVisible = Len(Trim$(rngCell.Value)) > 0
		
		Worksheets(strTable).Visible = blnVisible
		
		Sheets(Array("Studien", strTable)) _
			.Range(strTargetAddress).EntireRow _
			.Hidden = Not blnVisible
		
Continue_For:
	Next
	
End Sub

Wenn die Bereiche immer die gleiche Größe haben, dann könnte man das wahrscheinlich sogar ohne Select-Case-Statement formulieren.

 

Grüße


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
16.03.2024 19:49:56 Wolfgang
NotSolved
Blau VBA: Spalten auf anderen Worksheeds in der Mappe ausblenden.
17.03.2024 00:44:49 Gast25455
NotSolved
17.03.2024 01:21:14 Gast67805
NotSolved
17.03.2024 01:39:35 Gast95781
NotSolved
17.03.2024 09:39:20 Gast89529
NotSolved
17.03.2024 11:57:38 ralf_b
NotSolved
17.03.2024 14:17:33 Wolfgang
NotSolved
17.03.2024 14:25:17 ralf_b
NotSolved
17.03.2024 15:00:50 Wolfgang
NotSolved
17.03.2024 19:20:35 ralf_b
NotSolved
18.03.2024 08:22:53 Wolfgang
NotSolved
18.03.2024 18:06:23 Gast74355
NotSolved
19.03.2024 00:02:58 ralf_b
NotSolved
19.03.2024 23:55:43 Gast97212
NotSolved