Excel Spalte ausblenden Wenn

Sub Test2() If Range("O20") = "GER30;UK100;USAInd;JP225" Then Columns("U:Z").EntireColumn.Hidden = True End If If Range("O20") = "LCrude;Gold;Copper" Then Columns("S:T;W:Z").EntireColumn.Hidden = True End If If Range("O20") = "Silver;USDInd" Then Columns("S:V;Y:Z").EntireColumn.Hidden = True End If If Range("O20") = "AUD;CAD;CHF;GBP;JPY;NZD;USD" Then Columns("S:X").EntireColumn.Hidden = True End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Test2() With ActiveSheet Select Case .Range("O20") Case "GER30", "UK100", "USAInd", "JP225" .Columns("U:Z").EntireColumn.Hidden = True Case "LCrude", "Gold", "Copper" .Columns("S:T").EntireColumn.Hidden = True .Columns("W:Z").EntireColumn.Hidden = True 'usw. End Select End With End Sub

Sub ausbl() With ActiveSheet Select Case .Range("O20") Case "GER30", "UK100", "USAInd", "JP225" .Columns("U:Z").EntireColumn.Hidden = True Case "LCrude", "Gold", "Copper" .Columns("S:T").EntireColumn.Hidden = True .Columns("W:Z").EntireColumn.Hidden = True Case "Silver", "USDInd" .Columns("S:V").EntireColumn.Hidden = True .Columns("Y:Z").EntireColumn.Hidden = True Case "AUD", "CAD", "CHF", "GBP", "JPY", "NZD", "USD" .Columns("S:X").EntireColumn.Hidden = True End Select End With End Sub

Hi,
okay anscheind habe ich ein bisschen wirres Zeug geredet :)
Der Code sieht an sich sehr gut aus, jedoch werden nicht die Spalten geöffnet die geöffnet werden sollen und es werden nicht die Spalten geschlossen die geschlossen werden sollen. Hier nochmal der Code:

Sub ausbl()
With ActiveSheet
Select Case .Range("O20")
Case "GER30", "UK100", "USAInd", "JP225"
.Columns("U:Z").EntireColumn.Hidden = True
Case "LCrude", "Gold", "Copper"
.Columns("S:T").EntireColumn.Hidden = True
.Columns("W:Z").EntireColumn.Hidden = True
Case "Silver", "USDInd"
.Columns("S:V").EntireColumn.Hidden = True
.Columns("Y:Z").EntireColumn.Hidden = True
Case "AUD", "CAD", "CHF", "GBP", "JPY", "NZD", "USD"
.Columns("S:X").EntireColumn.Hidden = True
End Select
End With
End Sub

Nun weiß ich leider nicht, wo ich
.Columns("S:Z").EntireColumn.Hidden = False
einfügen muss damit der Code Ordnungsgemäß funktioniert. Danach könnte ich auch ausschließen ob es an den verbundenen Zellen liegt oder ein anderes Problem vorliegt.
BG Jan und es hat keine Eile

Sub ausbl() With ActiveSheet .Columns("S:Z").EntireColumn.Hidden = False Select Case .Range("O20") Case "GER30", "UK100", "USAInd", "JP225" .Columns("U:Z").EntireColumn.Hidden = True Case "LCrude", "Gold", "Copper" .Columns("S:T").EntireColumn.Hidden = True .Columns("W:Z").EntireColumn.Hidden = True Case "Silver", "USDInd" .Columns("S:V").EntireColumn.Hidden = True .Columns("Y:Z").EntireColumn.Hidden = True Case "AUD", "CAD", "CHF", "GBP", "JPY", "NZD", "USD" .Columns("S:X").EntireColumn.Hidden = True End Select End With End Sub

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range If Target.Address = "$O$20" Then Application.ScreenUpdating = False Range("S18:Z18").EntireColumn.Hidden = False Set c = Range("R18:Z19").Find(What:=Target.Value, After:=Range("R18"), LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) If Not c Is Nothing Then Range("S18:Z18").EntireColumn.Hidden = True c.Resize(, 2).EntireColumn.Hidden = False Else MsgBox "Begriff nicht gefunden" Range("S18:Z18").EntireColumn.Hidden = False End If End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range If Target.Address = "$O$20" Then Application.ScreenUpdating = False Range("S18:Z18").EntireColumn.Hidden = False Set c = Range("R18:Z19").Find(What:=Target.Value, After:=Range("R18"), LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) If Not c Is Nothing Then Range("S18:Z18").EntireColumn.Hidden = True c.Resize(, 2).EntireColumn.Hidden = False Else Range("S18:X18").EntireColumn.Hidden = True End If End If End Sub

…Michael;
unter Xl14/2010 erhalte ich stets 1-2 Warnungen, wenn eine heruntergeladene Datei gleich öffnet:
1. zur Bearbeitbarkeit; unsicher, weil aus Internet;
2. falls VBA-Code enthalten, Aktivierung desselben → ja/nein;
…und außerdem ist sie stets schreibgeschützt. Das sollte bei dir auch so sein!
Was passiert, wenn'ne Wb_Open-Routine enthalten ist, habe ich noch nicht feststellen können, da so etwas entweder noch nicht vorkam oder ich nicht darauf geachtet hatte. Richtigerweise müsste dann die 2.Frage kommen, bevor die Datei geöffnet wird. Wenn nicht, wird diese Routine sicherlich nicht ausgeführt und man muss das ggf im Nachhinein tun.
Ich glaube, ich habe mal so etwas hochgeladen, aber wahrscheinlich war damals diese Routine noch nicht oder nicht in der Endform angelegt, sonst wäre sie uU nicht ladbar gewesen, wenn dieses Pgm sofort ausgeführt worden wäre, was darauf hindeuten könnte, dass VBA normalerweise stets blockiert wird. Diese Datei (.xls!) war übrigens nur mit aktivierten Pgmm sinnvoll, und nur bis XL9-11/2k+0…3 fehlerfrei nutzbar.
Luc :-?

Beliebteste Forumthreads (12 Monate)

27
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel Spalte ausblenden Wenn

27 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

27
Beiträge zum Forumthread

Beiträge zu diesem Forumthread