Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1000to1004
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
1000to1004
1000to1004
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelle nichtleer, dann Spalten ausblenden

Zelle nichtleer, dann Spalten ausblenden
20.08.2008 07:29:00
kellerkind42
hallo.
Ich tue mich sehr schwer mit folgendem Wunsch:
Im Spaltenbereich A-Z:
Im Zeilenbereich 10 -20:
z.B:
Steht in Spalte C etwas in Zeile 10 oder 11 oder 12.... dann Blende diese Spalte aus!
Kann mir bitte jemand auf die Sprünge helfen?
Gruß Reinhardt.

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

Betreff
Datum
Anwender
Anzeige
AW: Zelle nichtleer, dann Spalten ausblenden
20.08.2008 08:16:00
Marc
Bitte schön!

Private Sub Worksheet_Change(ByVal Target As Range)
a = Target.Column
b = Target.Row
If Target.Column = 10 And Target.Row  "" Then
Columns(a).EntireColumn.Hidden = True
End If
End Sub


noch ne Frage
20.08.2008 09:17:52
kellerkind42
hey,
das ist ja ein Superkurzer.. Code. Meine Versuche waren 3 Meter lang....
Es geht, wie du es gesendet hast.
Ich habe es noch ein bißchen abgewandelt, möchte aber die Sub auf Knopfdruck nutzen.
Und da bekomme ich eine Fehlermeldung bei: a = Target.Column Objekt erforderlich!
Was mache ich verkehrt?

Private Sub test()
Sheets("Kalender").Select
a = Target.Column
b = Target.Row
If Target.Column > 46 And Target.Column = 80 And Target.Row  "" Then
Columns(a).EntireColumn.Hidden = True
End If
End Sub


Anzeige
AW: noch ne Frage
21.08.2008 07:08:50
Marc
Im Grunde ganz einfach:
Wenn du den Knopf drückst, hast du kein "Target" mehr im Tabellensheet, sonder der der fokus liegt auf dem Knopf!
Du solltest dann mit ActiveCell.Offset(-1, 0) arbeiten. Dann ist auf jeden Fall die Zelle über der gemachten Eingabe (nach Enter) angegeben. Falls du nicht mit Offset arbeiten willst, kannst du ja nach jeder Änderung im Dokument automatisch zu Target zurückspringen. (Beim obigen Code ist es natürlich Quatsch, die Variablen a u. b zu setzen, aber nachher nicht zu benutzen...:-)) Mit den Änderungen ergibt sich folgender neue Code:

Sub Schaltfläche1_BeiKlick()
Sheets("Kalender").Select
a = ActiveCell.Offset(-1, 0).Column
b = ActiveCell.Offset(-1, 0).Row
If a > 46 And a = 80 And b  "" Then
Columns(a).EntireColumn.Hidden = True
End If
End Sub


'

Anzeige
AW: Zelle nichtleer, dann Spalten ausblenden
20.08.2008 09:17:00
mpb
Hallo Reinhardt,

Private Sub Worksheet_Activate()
For i = 1 To 26
If Application.WorksheetFunction.CountBlank(Range(Cells(10, i), Cells(12, i)))


führt das Ausblenden durch, wenn die Tabelle aktiviert wird. Du kannst den Code aber auch einer anderen Ereignisprozedur zuweisen.
Gruß
Martin
P.S. Stutzig macht mich Dein "z.B.". Ich habe den Code jetzt für den Fall geschrieben, den Du beschrieben hast, jedoch nicht nur auf Spalte C bezogen, sondern auf alle Spalten im Bereich A:Z.
Gruß
Martin

Danke für die Hilfe.. ! Das klappt. o.T.
20.08.2008 09:55:00
kellerkind42
.

355 Forumthreads zu ähnlichen Themen

Zellen kopieren wenn Ziel nicht leer
Tom

Guten Morgen!
Ich suche mittels VBA folgende Möglichkeit
Suche Zeile für Zeile (Beginnend ab Zeile 4) die Spalte H ab ob etwas drinn steht.
Kopiere den Inhalt in die gleiche Zeile, aber in die Spalte P
Wichtig! Ist die ZIEL-Zelle bereits befüllt (es steht also etwas drin), dann...
18.08.2008 11:18:24
Thread-ID: 1002534
4 Beiträge
Anzeige
Zählen wenn Zelle nicht leer
Tim

Hallo Forum,
wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
Gruß
Tim
20.10.2008 11:47:00
Thread-ID: 1017617
3 Beiträge
Summe berechnen mit einer Matrixformel
Sibylle

Hallo,
kann man die Summe der Nettobeträge mit einer Matrixformel ermitteln.
Wenn ja, wie muss diese dann aussehen?
Besten Dank im voraus.
Gruß
Sibylle

11.11.2008 10:18:00
Thread-ID: 1023446
12 Beiträge
Anzeige
wenn Spalte F nicht leer, ganze Zeile markieren
maxx_1985

Hallo mit'mander
Ich hab ein kleines VBA Probelem. Naemlich das fogende:
Wenn Zelle in Spalte F NICHT leer, dann die ganze Zeile markieren (einfach markieren, keine Farbe und nichts).
Bin gerade dabei mit dem Recorder was zu basteln (da ich noch kein vba kann) und bin an ganau diese...
19.11.2008 18:37:00
Thread-ID: 1026165
11 Beiträge
summenprodukt mit 2 wenn's geht nicht?
Silvi


Moin zusammen,
muß eine ziemlich komplexe Abfrage machen und habe mir untenstehende ellenlange Formel ausgedacht, die leider nicht funktionert... :o( Hat von Euch jemand eine Idee, wie man das eleganter lösen könnte (ohne Makro?). Vielleicht ist nur eine Klammer falsch? Ich komm nicht...
23.01.2009 10:30:18
Thread-ID: 1042851
8 Beiträge
Wieviele Zellen im Range sind NICHT leer
Mandy

Hi.
wie kann ich denn ein Range C3:C13 auf meinem Sheet "Daten" so abfragen, damit ich in einem Label stehen habe, wieviel von diesen Zellen noch leer sind, sprich noch keinen Inhalt haben ?
Danke Mandy
12.02.2009 14:48:00
Thread-ID: 1050080
6 Beiträge
Summe wenn mit Bedingungen geht nicht
Andreas

Hallo,
ich habe folgendes Problem. Es existieren 2 Tabellenblätter. Auf einem der Tabellenblätter findet eine Art Auswertung statt. Das Haupttabellenblatt hat 12 benutzte Spalten, von denen ich nun Spalte B und F auf eine Übereinstimmung abprüfen will. Dazu habe ich auch ein Beispiel gefun...
25.03.2009 15:30:11
Thread-ID: 1063848
5 Beiträge
WENN,DANN,SUMME
Castor-Pollux

Hallo,
ich habe mal wieder ein Problem.
Was ist an dieser Formel falsch: =WENN(H23>"40:00";(H23-"40:00");"")
Hintergrund:
Ich habe eine Tabelle, in der ich meine Arbeitsstunden berechne.
Wenn ich über 40 Stunden kommen, soll mit der Formel nur die Überstunden berechnet we...
27.03.2009 09:55:37
Thread-ID: 1064503
9 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
3
3
2
11
9
10
7
5
4
8
9
1
5
3
16
6
7
4
5
2
2
5
3
4
5