Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
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
748to752
748to752
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten beim Wert .... ausblenden ?

Forumthread: Spalten beim Wert .... ausblenden ?

Spalten beim Wert .... ausblenden ?
27.03.2006 01:45:32
Selma
Hallo Leute,
wenn in Zellen (Spalte C) ein "1" eingetragen wird, dann sollen folgende Spalten ausgeblendet werden: M, N, O, S, T, AA.
Und wenn "2" eingetragen wird, dann sollen folgende Spalten ausgeblendet werden: I, J, K, L, P, X
Wie mache das ?
Vielen Dank im Voraus...
Liebe Grüße
Selma
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Spalten beim Wert .... ausblenden ?
27.03.2006 03:02:01
Mustafa
Hallo Selma,
Wenn der Wert in C1 steht dann geht das so:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Wert As Byte
Set Target = Range("c1")
Application.ScreenUpdating = False
If Target.Value = 1 Then
Range("m1:o1").EntireColumn.Hidden = True
Range("s1:t1").EntireColumn.Hidden = True
Range("aa1").EntireColumn.Hidden = True
Range("i1:l1").EntireColumn.Hidden = False
Range("p1").EntireColumn.Hidden = False
Range("x1").EntireColumn.Hidden = False
ElseIf Target = 2 Then
Range("i1:l1").EntireColumn.Hidden = True
Range("p1").EntireColumn.Hidden = True
Range("x1").EntireColumn.Hidden = True
Range("m1:o1").EntireColumn.Hidden = False
Range("s1:t1").EntireColumn.Hidden = False
Range("aa1").EntireColumn.Hidden = False
End If
Application.ScreenUpdating = True
End Sub

Der Code gehört in das Tabellenblatt-Modul
Rückmeldung obs klappt wäre nett.
Viele Grüße aus Köln.
Anzeige
AW: Spalten beim Wert .... ausblenden ?
27.03.2006 20:20:15
Selma
Hallo Mustafa,
vielen Dank....
Auch Gruß aus Kölle ;)
Selma
;

Forumthreads zu verwandten Themen

Es wird nur die Formel angezeigt, nicht der Text
Oswald

Hallo an die guten Geister,
hab mal wieder ein Problem.
In der angeängten Datei in B41 hatte ich das Problem das nicht der Text angezeigt wird sondern die Formel.
https://www.herber.de/bbs/user/54704.xls
Habe ich dadurch gelöst das ich das Selbe noch mal in einer anderen Datei...
18.08.2008 14:47:05
Thread-ID: 1002609
4 Beiträge
Kommentar-marker mit drucken??
joerg

Hallo,
Ist es möglich beim drucken eines Tabellenblattes die kleinen roten Dreiecke, die das vorhandenseins eines Kommentars anzeigen, mitzudrucken?
Ich weiss natürlich dass man die Kommentare als solches drucken kann, allerdings interessiert mich wirklich nur, ob es einen Kommentar gib...
04.09.2008 15:55:00
Thread-ID: 1007447
2 Beiträge
Teilergebnis einer Spalte wird nicht angezeigt
thaake

Hallo,
ich lasse mir die Teilergebnisse verschiedener Spalten anzeigen mit =Teilergebnis(9;V5:V300), was auch überall klappt, aber nur eine Spalte weigert sich. Formatierung ist vollkommen ok, das Anzeigen in einer anderen Zelle mit Verweis auf diese Spalte klappt auch nicht. Summe dagegen...
22.09.2008 11:21:12
Thread-ID: 1011416
2 Beiträge
Inhalt von UF wird nicht angezeigt
UF

Hi Forum,
ich starte meine UF mit dem folgenden Code:
Sub auto_open() Application.WindowState = xlMinimized UF_BitteWarten.Show vbModeless Application.Run "RESETMASK" UF_BitteWarten.Hide UF_Maske.Show End Sub
Wie zu erkennen, wird beim Start ein Reset ausgeführt, der einige Sekun...
26.09.2008 14:29:02
Thread-ID: 1012639
16 Beiträge
Anzeige
Rechtschreibung: Pop-Up wird nicht mehr angezeigt
Norbert

Hallo,
nach dem Auswählen des Menüpunktes "Extras" - "Rechtschreibung", wird das zugehörige Pop-Up zur Auswahl der Korrekturvorschläge nicht mehr angezeigt.
Nach einem Klick auf die Schaltfläche "Rechtschreibung" ebenfalls nicht mehr.
Ich habe die möglichen Optionen zur Einstellung...
11.11.2008 11:22:22
Thread-ID: 1023480
3 Beiträge
Anzeige
langer Text wird nicht mehr angezeigt
u_hoernchen

Ich muss einen langen Text (ca. 1.500 Zeichen) in eine Excel-Zelle schreiben (geht leider nicht anders, also das bitte nicht in Frage stellen). Nun wird beim Ausdruck und bei der Bildschirmanzeige aber die letzte Zeile nicht mehr umgebrochen (Zeilenumbruch ist formatiert), in der Zelle steht ab...
05.01.2009 11:10:25
Thread-ID: 1036916
4 Beiträge
Zelleninhalt wird bei Wenn-Abfrage nicht erkannt
CheHerbers

Hey,
ich habe eine Wenn-Abfrage, die prüfen soll, ob A1kleinerA2.
In A1 und A2 stehen jeweils Datum mit Uhrzeit.
A1 = 17.02.2009 10:42:35
A2 = 17.02.2009 10:43:57
A1 fülle ich über ein Makro.
Code:
Sheets("Daten").Range("A1") = ComboBox1.Value & " " &...
18.02.2009 10:35:00
Thread-ID: 1051714
4 Beiträge
Textbox wird nicht aktualisiert während Makro...
Steve

Hallo zusammen,
Folgendes Problem:
Eine Textbox (txtInfo), welches in einem Worksheet eingefügt wurde, sollte während des Makros unterschiedliche Infos anzeigen.
Die Textbox aktualisiert sich aber nicht während des Makros, so dass nur der letzte Wert angezeigt wird, sobald das Makro...
05.03.2009 12:17:30
Thread-ID: 1056772
3 Beiträge
Druckt nicht alles markierte aus der Listbox
Lara

Hi Zusammen
Habe diesen Code in meiner Druckeruserform
Innerhalb einer Listbox markiere ich die einzelnen Blätter die ausgedruckt werden sollen.
Auch wenn ich mehrere markiere druckt er nur das erste markierte Sheet aus. Der Rest nicht.
Private Sub CommandButton1_Click() Dim v...
07.03.2009 13:54:31
Thread-ID: 1057616
7 Beiträge
Zeilen nicht drucken, wenn Spalte leer oder 0
Berlenbach

Hallo,
ich habe ein Problem mit dem unten angegebenen und hier veröffentlichten Makro:
Sub Drucken() Dim iRowL As Integer, iRow As Integer iRowL = Cells(Rows.Count, 3).End(xlUp).Row For iRow = 1 To iRowL If IsEmpty(Cells(iRow, 3)) Or Cells(iRow, 3).Value = 0 Then Rows(iRow).Hidden = T...
01.04.2009 09:37:06
Thread-ID: 1065835
8 Beiträge
Anzeige
einzelne Zellen nicht schützen, wie?
dietmar

Hallo,
ich möchte bei einem EXCEL-Formular, dass man nur einzelne Zellen befüllen kann und der Rest des Formulars gesperrt ist. Die auszufüllenden Zellen (z.B. Name, Adresse, usw.) sollten durch Tab angewählt werden können. Zur Zeit kann ich nur einzelne Zellen sperren aber nicht umgekehrt?...
05.04.2009 22:41:32
Thread-ID: 1066974
6 Beiträge
Drucken nicht zusammenhängender Bereiche
reiner

Hallo Leute,
ich will auf der Vorderseite eines Blattes die mit "Bereich 1" und "Bereich 2" bezeichneten Zellbereiche drucken.
Auf der Blattrückseite soll "Bereich 3" sowie "Bereich 4" von Tabelle2 untereinander gedruckt werden.
Ist es überhaupt möglich Tabellenblatt-übergreifend D...
10.06.2009 14:24:46
Thread-ID: 1080504
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