Spalten ausblenden nach angabe

[Diskus]

Hallo Forengemeinde,

ich kann ja mit Excel via Makro oder VBA über einen Button Spalten ausblenden lassen. Geht das mit exel auch, das ich Beispielsweise einen Button erstelle nach klick auf diesen eine Abfrage kommt welche Spalte ich genau ausblenden will ? Hintergrund ist, das 2 Tabellenblätter vorhanden sind die nach unten Ca. 700 Zeilen haben. Die erste Tabelle dient dazu Arbeiten einzutragen die Laut Auftrag gemacht werden müssen. Die 2te Tabelle dient dazu die Arbeiten aufzulisten die tatsächlich gemacht worden sind. Nun soll in der 2ten Tabelle unter jeder zeile eine "ausgeblendete Zeile) stehen, in der von Tabelle 1 die Muss Vorgabe steht zum vergleich ob alle Arbeiten erledigt sind.

Beispiel Tabelle 1

Schild1         Schild2      Schild 3
    4                    2             2
    3                    1             5


Tabelle 2

Schild 1    Schild 2     Schild 3
   2               2                1
   4               2                2 (ausgeblendete Zeile von Tabelle 1 Daten)


habe Excel 2010

hoffe ist verständlich

Lg Diskus

[Sebi]

Hallo,

natürlich ist das Mäglich.

Entweder per Inputbox oder aber per userform sogar mit Dropdownfeld.

Poste doch mal deinen Code zum ein/ausblenden bitte.

Lg Sebi

[Diskus]

Code [Auswählen] Erweitern

Private Sub ToggleButton3_Click()
If ToggleButton3 = True Then
    Rows("12").EntireRow.Hidden = True
    ToggleButton3.Caption = ""
    ToggleButton3.BackColor = &HFF&
Else
    Rows("12").EntireRow.Hidden = False
    ToggleButton3.Caption = ""
    ToggleButton3.BackColor = &HFF00&
    ToggleButton3.Caption = ""
    ToggleButton3.BackColor = &HFF00&
End If
End Sub

ToggleButton3.Caption = ""
ToggleButton3.BackColor = &HFF00&


das ist der Code den ich hinter einem Button liegen habe. Bei ca 10 Zeilen untereinander geht das ja einzeln, bei 10.000 Zeilen siehts aber etwas anders aus da müsste ich das als Auswahl haben.

Also Beispiel Zeile 12 soll ausgeblendet werden. Klick auf Button Frage welche Zeile. 12 eingeben und weg isse

lg Diskus

[Sebi]

Hallo,

ich denke folgender Syntax hilft dir dann weiter

Code [Auswählen] Erweitern

Rows("10:10000").EntireRow.Hidden = True

Lg Sebi

[Diskus]

Nee nich wirklich, dadurch werden ja alle ausgeblendeten Spalten wieder eingeblendet (oder andersrum). Ich möchte aber Explizit eine Spalte auswählen können. Beispiel die Zeile 534 steht auf Ausgeblendet. Ein Button im Formular wird angeklickt, es kommt eine Abfrage welche Zeile ich einblenden möchte. Ich trage 534 ein und die Zeile wird eingeblendet.

so etwas verständlicher ?

[Sebi]

Hallo,

ja dann mach es per inputbox

Code [Auswählen] Erweitern

Dim inp
inp = InputBox("Bitte Re3iche eingeben!", "Abfrage der Reihe")
Rows(inp).EntireRow.Hidden = True

[Diskus]

Mal den "DANKE" Button drück

lg Diskus