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
1520to1524
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
1520to1524
1520to1524
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bei Doppelklick anzeigen von bestimmten Zeilen

Bei Doppelklick anzeigen von bestimmten Zeilen
31.10.2016 11:54:25
bestimmten
Hi Leute,
Ich bitte nochmal um eure Hilfe!
In meinem Kalender möchte ich zu den verschiedenen Einträgen Details in einem zweiten Tabellenblatt anzeigen lassen.
Was soll also passieren:
Wenn ich im Tabellenblatt Kalender auf eine bestimmte Zelle der Spalte L klicke, sollen im Tabellenblatt Details bestimmte Zeilen eingeblendet werden.
Die einzublendenden Zeilen habe ich in im Moment so definiert, dass in der Spalte J die "Ab" Zeile (zB.: 50) und in der Spalte K die "Bis" Zeile (zB.: 99) angegeben wird.
Hier die Datei:
https://www.herber.de/bbs/user/109112.xlsm
Zum Beispiel: Beim Doppelklick auf die Zelle L17 im Blatt Kalender, sollen im Blatt Details die Zeilen 50 bis 99 eingeblendet werden. Alle anderen sollen Zeilen sollen entsprechend ausgeblendet werden.
Ich hoffe ihr könnt mir dabei helfen!
Danke und lg
Martin

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bei Doppelklick anzeigen von bestimmten Zeilen
31.10.2016 12:09:42
bestimmten
So Martin
aber ich würde nicht die Spalte L nehmen da die Formel immer beim Doppelklick aufgeht ..
Gruß basti
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 12 And Target.Row >= 16 Then
Dim WSDetails As Worksheet
Set WSDetails = ThisWorkbook.Worksheets("Details")
With WSDetails
.Cells.EntireRow.Hidden = True
.Rows(Target.Offset(0, -9).Value & ":" & Target.Offset(0, -8).Value).EntireRow.Hidden =  _
False
End With
End If
End Sub

AW: Danke! Perfekt!
31.10.2016 12:20:24
Martin
Hi Basti!
Perfekt!
Da ich sowieso sofort ins Tabellenblatt Details wechsle, ist mir das mit der Formel egal.
Danke dir!
Anzeige
AW: Danke! Perfekt!
31.10.2016 12:25:57
Daniel
HI
das "aufgehen der Formel" kann man verhindern, wenn man ins Makro den Befehl Cancel = True integriert.
alle "Before"-Eventmakros (BeforeClose, BeforeSave, BeforeDoubleClick. BeforePrint) haben die Variable Cancel.
Wenn diese auf True gesetzt wird, wird das normaleweise folgende Event nicht ausgeführt.
beim Doppelklick ist das normalerweise das Bearbeiten der Formel direkt in der Zelle und nicht in der Bearbeitungszeile.
Gruß Daniel
AW: Doch noch eine Frage
31.10.2016 12:33:01
Martin
Danke Daniel! Hab es eingebaut!
Jetzt hab ich aber doch noch eine Frage. Ich möchte nun doch, dass die ersten 5 Zeilen eingeblendet bleiben. Wenn ich das aber versuche bekomme ich nur Fehlermeldungen.
Könnt ihr mir hier bitte nochmal weiterhelfen?
Anzeige
AW: Doch noch eine Frage
31.10.2016 12:39:48
Bastian
Würde so gehen
Gruß Basti
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 12 And Target.Row >= 16 Then
Dim WSDetails As Worksheet
Set WSDetails = ThisWorkbook.Worksheets("Details")
With WSDetails
.Cells.EntireRow.Hidden = True
.Rows(Target.Offset(0, -9).Value & ":" & Target.Offset(0, -8).Value).EntireRow.Hidden =  _
False
.Range(.Columns("F:F"), .Columns("F:F").End(xlToRight)).EntireColumn.Hidden = True
End With
End If
End Sub

AW: Doch noch eine Frage
31.10.2016 12:45:36
Bastian
Usp Natürlich G
Gruß Basti

So
.Range(.Columns("G:G"), .Columns("G:G").End(xlToRight)).EntireColumn.Hidden = True
Oder So
.Range(.Columns("G:G"), .Columns("XFD:XFD")).EntireColumn.Hidden = True

Anzeige
AW: Jupp
31.10.2016 13:20:33
Martin
Jetzt passt es!
Super danke nochmal!
lg
Martin
AW: Jupp
01.11.2016 08:37:25
Bastian
Kein Problem =)
Gruß Basti

303 Forumthreads zu ähnlichen Themen

Summen in bestimmte Zeilen
Thomas

Hallo,
ich suche eine sicherlich einfache Möglichkeit Summen in einer bestimmten Zeile bilden zu lassen. Das Problem ist das die Bereiche unterschiedlich groß sind.
Zur besseren Erläuterung habe ich eine Bsp-Datei angehängt.
Vielen Dank!
MfG Tom
Die Datei https://www.herber....
27.08.2008 14:19:00
Thread-ID: 1005088
13 Beiträge
Anzeige
Formel nach unten...
werner

Hallo zusammen,
wenni ch in Zelle D10 z.B. die Formeln = B10+C10 kann ich diese nach unten in Zelle D11,D12.......ziehen um die Formel zu übernehmen.
Meine Frage ist folgende , geht das auch mit = Tabelle1!C9 ,wenn ich da nach unten ziehe solte sich die Formel auch anpassen d.h Tabelle2...
12.01.2009 20:24:00
Thread-ID: 1039009
4 Beiträge
Formel automatisch nach unten ziehen
Hartwig

Hallo Leute,
Ich habe eine Frage.
In A1 steht ein Wert, in B1 eine Formel.
Gibt es eine Möglichkeit dass sich die Formel von B1 in die
angrenzenden unteren Zellen (B2, B3 usw.) erweitert, wenn die Zellen
A2, A3 usw. mit Werten gefüllt werden?
Danke schon mal für eure Hil...
27.01.2009 11:03:00
Thread-ID: 1044121
7 Beiträge
Anzeige
Summe bestimmter Werte in einer Spalte
Michael

Hallo zusammen,
bin neu hier und hätte eine Frage bezüglich der Berechnung einer Summe. Folgendes Szenario: Ich möchte in B1 eine Summe berechnen aus Werten der B Spalte. Soweit klar! Die einzelnen Werte in Spalte B werden in jeder Zeile mit einem Wert aus der A Spalte "nebenan" berechnet....
17.06.2009 20:47:04
Thread-ID: 1082369
2 Beiträge
Makro: Wort ersetzen bis letzte Zeile von...
Julia

Hallo,
ich habe ein Makro geschrieben welches mir in der Spalte I das Wort "Fixed" durch "Behoben" ersetzt.
Funktioniert auch wunderbar.
Sub fixed_behoben() Sheets("Datenbasis").Select ActiveWindow.SmallScroll ToRight:=-3 Columns("I:I").Select Selection.Replace What:="Fixed", Repl...
30.06.2009 11:17:32
Thread-ID: 1085300
3 Beiträge
Bereich benennen (bis letzte Zeile)
onkelbobby

Hallo,
in einer Excel Tabelle möchte ich gerne (für Weiterbearbeitung in Access) einen Bereich benennen. Dieser Bereich soll aber nicht fest, sondern in Abhängigkeit der Eintragungen sein.
Der Bereich soll von Spalte A bis Spalte AQ und von Zeile 2 bis "letzte Zeile mit Eintrag in Spal...
28.04.2010 16:22:08
Thread-ID: 1154330
6 Beiträge
Formatieren nur bis zur letzten Zeile
Finus

Ich habe ein Makro aufgezeichnet, in dem unter anderem Zeilen formatiert werden sollen.Da die zu formatierende csv-Dateien aber immer unterschiedliche Längen (30-150 Zeilen) haben, formatiere ich momentan immer bis zur Zeile 500, was beim Ausdrucken nachher aber alles als Leerzeilen mitkommt. :...
06.05.2002 16:23:46
Thread-ID: 118883
5 Beiträge
Filtern und wegkopieren von bestimmten Zeilen
Josef

Guten Morgen!Ich habe z.B.in der Tabelle1 in Spalte A 20 Zeilen mit 1, danach 45 Zeilen mit 2, danach 80 Zeilen mit 3 usw.(von 1-9)Jetzt sollen alle Zeilen in denen in der Spalte A eine 2 vorkommt ausgeschnitten und in ein neues Blatt z.B.Tabelle2 kopiert werden. Das gleiche mit 3 in Tabelle3 u...
07.05.2002 08:43:09
Thread-ID: 119035
7 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
12
2
3
6
3
1
2
5
4
6
3
13
6
3
18
2
2
1
3
11
5
1
4
8
3