Einen schönen guten Abend,
ich habe einige Spalten ausgeblendet die der Nutzer wenn er Bedarf hat einblenden kann.
Gibt es die Möglichkeit ein klassisches Plus Symbol einzufügen?
Beim drücken vom Plus Symbol soll im Blatt NR, Spalte X eingeblendet werden, wenn ich nochmal drücke soll Spalte Y eingeblendet werden usw.
Das Plus Symbol habe ich in der Form noch nie in excel gesehen, wie würdet ihr das lösen?
Beste Grüße
Leo
Hi Leonhard,
Zitat:Beim drücken vom Plus Symbol soll im Blatt NR, Spalte X eingeblendet werden, wenn ich nochmal drücke soll Spalte Y eingeblendet werden usw.
das dürfte wohl nur mit einem Makro gehen.
Mit Bordmitteln kannst du ein Plus- bzw. Minus mittels Gruppierung erzeugen. Allerdings dürfen dabei die Spalten nicht unmittelbar nebeneinander sein. Die Gruppierung erreichst du über Daten==> Gliederung
So sieht's dann aus:
[
attachment=29027]
Hallo Günter,
über Gruppierungen hatte ich auch nachgedacht. Die Spalten liegen aber nebeneinander.
Denke auch das es ein Marko werden müsste.. gibt es denn da überhaupt die Möglichkeit ein Plus Symbol zu nutzen oder müsste man das über einen Command Button machen?
Beste Grüße
Leo
Was soll denn bitte ein "Plus-Symbol" sein?
Fragt sich Ralf
Sorry Leonhard,
bzgl. VBA müsstest du auf die entsprechenden Helfer warten, da bin ich noch nicht zur Hilfe fähig.
Servus Ralf,
ein Plus Zeichen ähnlich dem Plus wie man es bei Gruppierungen hat (Siehe Bild von Günter).
So was in die Ecke wie + neu hinzufügen
Beste Grüße
Leo
Hallo,
Zitat:gibt es denn da überhaupt die Möglichkeit ein Plus Symbol zu nutzen oder müsste man das über einen Command Button machen?
so richtig habe ich immer noch nicht geschnallt, was Du überhaupt erreichen willst.
Und ja, man kann auch eine Zelle programmieren und der kann man selbstverständlich auch ein
Pluszeichen verpassen. Aber, wie Alles, was man programmiert, man muß wissen, was das Programm
tun soll. Sonst wird das nämlich nichts. Also, ... "tu' mal Futter bei die Fische".
Hallo,
wie Eingangs beschrieben soll durch Klick auf das Plus Zeichen lediglich die Spalte X (im Blatt NR) die aktuell ausgeblendet ist, eingeblendet werden. Drückt man nochmal auf das Plus Zeichen soll die Spalte Y eingeblendet werden. Diese Logik soll für X,Y,Z,AA,AB,AC angewendet werden.
Die Zelle in der das Plus Zeichen stehen sollte wäre dann W2.
Ziel soll es sein dem Nutzer die Handhabung ein wenig komfortabler zu gestalten. Ich unterstelle man das jeder in der Lage wäre die Spalten auch so wieder einzublenden aber aus Gründen der Übersichtlichkeit fände ich diese Lösung eleganter.
Beste Grüße
Leo
Hallo,
Zitat:... soll durch Klick auf das Plus Zeichen lediglich die Spalte X (im Blatt NR) die aktuell ausgeblendet ist,
eingeblendet werden. Drückt man nochmal auf das Plus Zeichen soll die Spalte Y eingeblendet werden.
Diese Logik soll für X,Y,Z,AA,AB,AC angewendet werden.
... das alles soll durch einen Klick in eine einzige Zelle passieren?
Na, da bin ich mal mächtig gespannt, was dabei rauskommt.
Also, ich biete Dir an, den Code für die Zellenprogrammierung zu liefern.
Desweiteren würde ich auch den Code zum ein-und ausblenden von Spalten
zur Verfügung stellen.
Was ich aber nicht kann, ist,
durch nur jeweils einen einzigen Klick in
die Zelle die unten aufgeführten unterschiedlichen Zustände zu veranlassen.
- ein- und ausblenden der Spalten X,Y,Z,AA,AB,AC
(nacheinander oder wie auch immer Du Dir das vorstellst)
Da braucht es schon ein paar Zellen mehr oder auch einen ganz anderen
Ansatz.
Hallo nochmal,
damit Du siehst, was ich meine, hier mal ein Beispiel.
Das Ganze ist übrigens auch nur Zellenprogrammierung.
Hallo Leo,
folgendes Beispiel hat eine Formularschaltfläche in der Zelle W2, der folgendes Makro zugewiesen ist:
Sub Spalten_einblenden()
Dim rngBereich As Range
Dim rngSpalte As Range
Set rngBereich = Range("X:AC")
If rngBereich.Columns(rngBereich.Columns.Count).Hidden = False Then
rngBereich.EntireColumn.Hidden = True
ActiveSheet.Buttons(Application.Caller).Caption = "+"
Else
For Each rngSpalte In rngBereich.Columns
If rngSpalte.Hidden Then
rngSpalte.Hidden = False
Exit For
End If
Next rngSpalte
If rngBereich.Columns(rngBereich.Columns.Count).Hidden = False Then
ActiveSheet.Buttons(Application.Caller).Caption = "-"
End If
End If
End Sub
Gruß Uwe