Zelle über VBA sperren

In der ComboBox111 kann man folgendes auswählen:

Arbeitstag
Urlaub
Krank

Die ComboBox111 ist mit der Zelle D2 verlinkt.

Wenn ich nun Urlaub oder Krank auswähle,

wird als erstes die Combobox geleert und danach ausgeblendet.

nun sollen die Zelle für die nachträgliche Bearbeitung gesperrt werden.

Wenn ich aber Arbeitstag auswähle,

soll die Zelle wieder zum bearbeiten freigegeben sein.

Der bisherige Code lautet:

Private Sub ComboBox111_Change()

If ComboBox111.Value = "Urlaub" Or ComboBox111.Value = "Krank"  Then
        ComboBox1.Value = ""
        ComboBox1.Visible = False
        ComboBox2.Value = ""
        ComboBox2.Visible = False
    Else
        ComboBox1.Visible = True
        ComboBox2.Visible = True
    End If
End Sub

Die ComboBox1 ist mit der Zelle T12 verlinkt

Die ComboBox2 ist mit der Zelle V14 verlinkt

Wenn ich die Zellen unter

Zelle formatieren -> Schutz -> Gesperrt

schützen möchte, kann ich aber wenn Arbeitstag ausgewählt wurde

in der ComboBox nichts auswählen, da die Zelle schreibgeschützt ist.

kann mir Bitte jemand helfen?

3 Antworten

Kidd0

24.10.2012, 09:48

Private Sub ComboBox111_Enter()
T12.locked = false
V14.locked = false
End Sub

Christian030

Fragesteller

24.10.2012, 16:08

Hallo Kidd0

danke für deine Hilfe

Kannst du mir sagen, was " _Enter() " bedeutet.

Soll ich diesen Code mit in das Arbeitsblatt einfügen.

oder in das ActiveSheet. ... einarbeiten?

Kidd0

24.10.2012, 21:09

@Christian030

Das ganze fügst du einfach in deinen Quelltext zwischen deinen bereits bestehenden Funktionen ein. Sprich hinter ein End Func bzw. ein anderes End Sub.

Es funktioniert ähnlich deinem _Change welches das Ergeignis von einem Wechsel innerhalb der Combobo111 ist. Also du z.B. den Text in deiner ComboBox änderst. Das _Enter() bewirkt, dass der folgende Code bis zum "End Sub" ausgeführt wird, sobald du in die ComboBox111 reinklickst.

Christian030

Fragesteller

25.10.2012, 08:19

Hallo Kidd0

Ich habe deinen Code ausprobiert. Er funktioniert bei mir nicht.

wenn ich die Zelle T12 entsperren will, muß da nicht noch was davor?

Kidd0

25.10.2012, 09:43

@Christian030

Wenn du eine Zelle bzw. mehrere Zellen im Arbeitsblatt entsperren möchtest dann kannst du das am besten so tun:

Worksheets(1).Range("T12").Select
Selection.Locked = False

Wobei du da nur noch den Name des Worksheets anpassen müsstest. Das ganze Paket kommt in deine ComboBox111_Enter()

Falls es nicht klappt melde dich nochmal. Dann probiere ich es selbst aus. Der Code oben ist derzeit nur in meinem Kopf. :)

Christian030

Fragesteller

29.10.2012, 11:04

@Kidd0

Hallo Kidd0

ich habe probiert, probiert und bin verzweifelt.

Da es nich funktioniert, kann es nur falsch sein.

ich benötige bitte noch mal deine Hilfe

In Private Sub ComboBox111_Change()

werden die Boxen ein und ausgeblendet.

In Private Sub Worksheet_SelectionChange(ByVal Target As Range)

werden Die Zellen gesperrt, wenn die Boxen ausgebendet sind.

Wenn in der ComboBox111 nun Arbeitstag ausgewählt wird,

dann sollen die Zellen entsperrt werden.

Das funktioniert aber nur wenn ich vorher in eine Zelle klicke.

Kannst du mir sagen, wo der neue Code eingefügt werden muss,

damit die ComboBoxen 1 und 2 eingeblendet sowie

die Zellen T12 und V14 gleich entsperrt werden, wenn ich Arbeitstag auswähle.

Die ganzen Code stehen in der Tabelle1(E01) warum muss ich die noch mal im Code angeben?

Private Sub ComboBox111_Change ()   
        If ComboBox111.Value = "Urlaub"   Then
            ComboBox1.Value = ""
            ComboBox1.Visible = False
            ComboBox2.Value = ""
            ComboBox2.Visible = False
        Else
            ComboBox1.Visible = True
            ComboBox2.Visible = True
        End If
    End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        ActiveSheet.Unprotect
        If ComboBox111.Value = "Urlaub"  Then
            Range("T12").Locked = True
            Range("V14").Locked = True
        Else
            Range("T12").Locked = False
            Range("V14").Locked = False
        End If
        ActiveSheet.Protect
    End Sub

Private Sub Combobox111_Enter()
        Worksheets(E01).Range("T12").Select
        Worksheets(E01).Range("V14").Select
        Selection.Locked = False

Kidd0

06.11.2012, 13:49

@Christian030

Private Sub ComboBox111_Change ()   
        If ComboBox111.Value = "Urlaub"   Then
            ComboBox1.Value = ""
            ComboBox1.Visible = False
            ComboBox2.Value = ""
            ComboBox2.Visible = False
        Else
            ComboBox1.Visible = True
            ComboBox2.Visible = True
        End If
    End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        ActiveSheet.Unprotect
        If ComboBox111.Value = "Urlaub"  Then
            Range("T12").Locked = True
            Range("V14").Locked = True
        Else
            Range("T12").Locked = False
            Range("V14").Locked = False
            Worksheets(E01).Range("T12").Select
            Worksheets(E01).Range("V14").Select
            Selection.Locked = False
        End If
        ActiveSheet.Protect
    End Sub

So müsste es funktionieren, wenn du die Zellen Entsperren und gleichzeitig freigeben willst.

Christian030

23.10.2012, 14:45

Hallo ich habe bis jetzt folgenden Code erstellt.

Private Sub ComboBox111_Change ()   
            If ComboBox111.Value = "Urlaub"   Then
                ComboBox1.Value = ""
                ComboBox1.Visible = False
                ComboBox2.Value = ""
                ComboBox2.Visible = False
            Else
                ComboBox1.Visible = True
                ComboBox2.Visible = True
            End If
        End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect
    If ComboBox111.Value = "Urlaub"  Then
        Range("T12").Locked = True
        Range("V14").Locked = True
    Else
        Range("T12").Locked = False
        Range("V14").Locked = False
    End If
ActiveSheet.Protect
End Sub

Wähle ich jetzt in der ComboBox111 Urlaub aus,

dann Werden die ComboBox1 und ComboBox2 geleert sowie ausgeblendet.

klicke ich jetzt in die Zelle T12 oder V14

so ist die Zelle geschützt.

soweit so gut.

Wähle ich jetzt in der ComboBox111 Arbeitstag aus,

dann werden die ComboBoxen wieder eingeblendet.

nun möchte ich über die ComboBox1 oder ComboBox2

einen Wert eingeben

jetzt bringt er mir immer noch die geschützt-Meldung und übernimmt den Wert.

erst wenn ich vorher in eine Zelle klicke

dann kann ich problemlos über die ComboBox1 oder ComboBox2 einen Wert eingeben.

Kann man in den Code irgend etwas reinschreiben,

damit bei Auswahl von Arbeitstag

in der ComboBox111

die Zellen T12 und V14 gleich freigegeben sind?

HelmutMit

23.10.2012, 12:26

Du kannst mit activesheet.unprotect und activesheet.protect den Schutz per VBA aktivieren bzw. deaktivieren. Binde die beiden Befehle in Deine Combobox Prozedur ein.

Ähnliche Fragen

VBA ComboBox RemoveItem?

Wie kann ich die Items in ComboBox2 an Value von ComboBox1 anpassen? Z.B. Wenn in ComboBox1 Item1 ausgewählt ist soll in ComboBox2 Item1a und Item1b angezeigt werden, wenn ich jetzt aber in ComboBox1 Item2 auswähle soll in ComboBox2 Item2a und Item2b angezeigt werden. Mit dem folgenden Code werden die Items erstellt aber leider Löschen sich die Items nicht bei einer anderen Auswahl in ComboBox1:

If ComboBox1.Value = "Item1" Then

With Me.ComboBox2

.AddItem "Item1a"

.AddItem "Item1b"

End With

End If

If ComboBox1.Value = "Item2" Then

With Me.ComboBox2

.AddItem "Item2a"

.AddItem "Item2b"

End With

End If

.RemoveItem "Name des Items" hat nicht geklappt.

...zur Frage

Excel VBA: Tabellenblätter bei gewissen Zellenwert ausblenden?

Hallo Zusammen,

Ich will mittels VBA ein Excel modifizieren, damit möglichst wenige Tabellenblätter angezeigt werden. In einem Tabellenblatt (z.B. "Auswahl") habe ich die Zellen C62, C88 und C114, die jeweils ein spezielles Tabellenblatt anzeigen sollen. Jedoch gibt es im Moment nur LZF-Meldungen.

Es soll jeweils bei "Yes" nichts angezeigt, bei "No" die entsprechende Tabelle eingeblendet werden.

Ansonsten sollen die "nicht betroffenen" Tabellen ausgeblendet bleiben

Hier der Code im Worksheet "DieseArbeitsmappe":

Private Sub Worksheet_Open()

'Beim Öffnen des Excels die betroffenen Blätter ausblenden
    ThisWorkbook.Worksheets("Tabelle4").Visible = False 
    ThisWorkbook.Worksheets("Tabelle5").Visible = False
    ThisWorkbook.Worksheets("Tabelle6").Visible = False
    
End Sub

In Blatt "Auswahl" (Tabelle7) habe ich folgenden Code:

Private Sub Worksheet_Change(ByVal Target As Range)

   

‘Hier sind vorher noch andere IF-Regeln hinterlegt, die nur Reihen in Tabelle7 ein/ausblenden

   

    If Range("C62").Value = "No" Then 'Tabellenblätter einblenden, sobald in der jeweiligen Zelle "No" ausgewählt wird

        ThisWorkbook.Worksheets("Tabelle6").Visible = True

       

        Else

        ThisWorkbook.Worksheets("Tabelle6").Visible = False ‘Hier erhalte ich jeweils ein LZF 9?

    End If

   

    If Range("C88").Value = "No" Then

        ThisWorkbook.Worksheets("Tabelle5").Visible = True

       

        Else

        ThisWorkbook.Worksheets("Tabelle5").Visible = False ‘Hier erhalte ich jeweils ein LZF 9?

    End If

   

    If Range("C114").Value = "No" Then

        ThisWorkbook.Worksheets("Tabelle4").Visible = True

       

        Else

        ThisWorkbook.Worksheets("Tabelle4").Visible = False ‘Hier erhalte ich jeweils ein LZF 9?

    End If

   

End Sub

Weshalb gibt es jeweils einen Fehler und wie kann ich diesen am einfachsten beheben?

Vielen Dank, Michael

...zur Frage

C# Xml Edit?

Hallo,

wenn ich eine XML habe die so aussieht:

  <Core>
    <add key="Key1" value="false" />
    <add key="Key2" value="false" />
    <add key="Key3" value="false" />
  </Core>

Wie kann ich nun auf auf das 3 Attribut zugreifen und den Wert Ändern ?

Sollte dann so aussehen:

  <Core>
    <add key="Key1" value="false" />
    <add key="Key2" value="false" />
    <add key="Key3" value="true" />
  </Core>

...zur Frage

ComboBox ausblenden wenn ...

Hallo Excel Profis.

Ich möchte meine Arbeitszeit per Excel-Tabelle erfassen.

Eigentlich funktioniert das ja schon.

Aber Excel macht so viel Spaß, da findet man einfach kein Ende.

Ich möchte mehrere ComboBoxen ausblenden,

wenn ein bestimmter Wert in einer anderen ComboBox steht.

Hier mein Problem:

In der ComboBox D2

kann man per DropDown-Liste entsprechende Wörter auswählen.

Arbeitstag
Urlaub
Krank

Wenn in der Liste "Urlaub" oder "Krank" ausgewählt wird,

sollen die Dropdown-Funktionsfelder

H5:H14 ; M5:N14 ; P5:Q14 ; S4:T14 ; V5:W14

ausgeblendet werden.

Ich verwende Excel 2003 Kann mir Bitte jemand bei der VBA helfen?

...zur Frage

Excel VBA Userform: Textbox abhängig von Combobox machen?

Hallo,ich bin aktuell an einem Excel Projekt, in dem ich per VBA eine Userform erstellen möchte. Nun komme ich an folgender Prozedur nicht weiter.Ausgangssituation: Ich habe eine Userform mit Combobox (Combobox1) und Textbox (Textbox1) erstellt. Ich möchte nun, dass sobald in der Combobox ein bestimmter Wert ausgewählt wird, in der Textbox ebenso ein bestimmter Wert erscheint, der nur auf den einen Wert der Combobox passt. Die Combobox funktioniert einwandfrei, die Textbox macht nur nicht was sie soll. Bitte um Hilfe.Hier mein aktueller Code:

Private Sub UserForm_Initialize()

Me.ComboBox1.AddItem Range("A2")

Me.ComboBox1.AddItem Range("A3")

Me.ComboBox1.AddItem Range("A4")

Me.ComboBox1.AddItem Range("A5")

Me.ComboBox1.AddItem Range("A6")

If ComboBox1.Value = Range("A2") Then

TextBox1.Text = "5"

End If

End Sub

...zur Frage

IF Funktion in excel auf mehrere Zellen anwenden?

Hallo,

Ich möchte wenn in einer Zelle etwas reingeschrieben wird das die darauffolgenden Felder zu Pflichtfelder werden. Dazu nutze ich aktuell folgende Formel.

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim zeile As Long, OK As Boolean

OK = True

For zeile = 1 To Tabelle1.Cells.SpecialCells(xlCellTypeLastCell).Row

If Worksheets("Tabelle1").Cells(4, 2).Value <> "" Then

If Worksheets("Tabelle1").Cells(4, 3).Value = "" Then OK = False 'Spalte C

If Worksheets("Tabelle1").Cells(4, 4).Value = "" Then OK = False 'Spalte D

If Worksheets("Tabelle1").Cells(4, 5).Value = "" Then OK = False 'Spalte E

If Worksheets("Tabelle1").Cells(4, 6).Value = "" Then OK = False 'Spalte F

If Worksheets("Tabelle1").Cells(4, 8).Value = "" Then OK = False 'Spalte H

If Worksheets("Tabelle1").Cells(4, 9).Value = "" Then OK = False 'Spalte I

End If

If Not OK Then

MsgBox "Drucken nicht möglich - nicht alle Pflichtfelder ausgefüllt"

Cancel = True

End If

End Sub

Nun möchte ich das die obige Formel von B4- B25 durchgeführt wird. Also das wenn in in B8 z.B. etwas reingeschrieben wird das dann die Zellen in B8 geprüft werden das dort in den anderen Feldern auch was reingeschrieben worden ist.
Wie würde ich das ganze hinbekommen?

Danke im Voraus

...zur Frage

[VBA] - Multipage Userform eingaben in Excel übertragen?

Servus Leute,

Ich habe ein Userform in Excel mit Multipage erstellt.

Nun möchte ich auf der letzten Multipage Seite einen Button einbauen. Auf Knopfdruck sollen dann alle Eingaben die vom User auf den einzelnen Multipageseiten gemacht worden sind in ein Excel Tabellenblatt übertragen werden.

Mein Ansatz war dem Button folgenden Code zu geben:

    Dim sheet2 As Worksheet
    Dim maxRow2 As Long
    Dim check3 As Boolean
    Set sheet2 = ActiveWorkbook.Worksheets(1)
    maxRow2 = sheet2.Cells(sheet2.Rows.Count, "B").End(xlUp).Row
    If CheckBox1.Value Then
      sheet2.Cells(maxRow2 + 1, 9).Value = "ja"
      Else
        sheet2.Cells(maxRow2 + 1, 9).Value = "nein"
        End If
              sheet2.Cells(maxRow2 + 1, 13).Value = TextBox4.Value

Das funktioniert leider nicht wie ich es mir erhofft habe, auf Knopfdruck werden keine Daten übertragen. Ich habe die vermutung, dass nicht auf die Felder wie z.B. TextBox4 zugegriffen werden kann, weil die auf einer anderen Seite im Multipage sind.

Wie schaffe ich es an die Variablen ranzukommen. Ich hatte noch überlegt, im Code der jeweiligen Seite den Wert aus der Textbox in eine Variable zu setzen, die z.B. Global ist. Aber da bin ich auch schon wieder überfragt wie man das macht.

Außerdem habe ich noch eine Frage zu den Checkboxen.

Es soll folgende Möglichkeiten geben:

Wenn Checkbox nicht angeklickt, dann kann man immer zu nächsten Kategorie ( Nächste Seite im Multipage)
Wenn Checkbox angeklickt ist und variable x leer, dann soll man nicht weiter kommen (Msgbox)
Wenn Checkbox angeklickt ist und variable x befüllt, dann kann man zur nächsten Kategorie (Nächste Seite im Multipage)

Für eine Checkbox habe ich das schon hinbekommen, aber wie mach ich das wenn es mehrere Checkboxen gibt. Weil ich glaube wenn ich das so mache wie bisher, dann wird das eine endlose anreihung von if bedingungen.

Diesen Code habe ich dann auf den Button gelegt, mit dem man zur nächsten Kategorie kommen soll oder eben halt nicht.

  Dim sheet2 As Worksheet
    Dim maxRow2 As Long
    Dim check3 As Boolean
    Set sheet2 = ActiveWorkbook.Worksheets(1)
    maxRow2 = sheet2.Cells(sheet2.Rows.Count, "B").End(xlUp).Row
   
    If CheckBox3.Value Then
    If Test = False Then
    MsgBox ("Kein Pfad angegeben")
    Else
  Dim iNextPage As Long
    With Me.MultiPage1
        iNextPage = .Value + 1
        If iNextPage < .Pages.Count Then
            .Pages(iNextPage).Visible = True
            .Value = iNextPage
        End If
    End With
    End If
    Else
    Dim iNextPage2 As Long
    With Me.MultiPage1
        iNextPage2 = .Value + 1
        If iNextPage2 < .Pages.Count Then
            .Pages(iNextPage2).Visible = True
            .Value = iNextPage2
        End If
    End With
    End If

Und als letztes würde ich gern noch wissen ob es möglich ist, zu unterbinden, dass der User oben im Multipage die Kategorie direkt anklicken kann und man halt nur über den "weiter" button zur nächsten kategorie kommt.

Gruß Chris

...zur Frage

Excel VBA: Sverweis Formel - Makro einfügen!

Hi zusammen. Habe mir heute mein erstes Userform gebastelt (Google sei Dank...). Mein UF macht simpel nichts anderes, als Einträge aus der EIngabemaske in eine Tabelle zu füllen.

Dim emptyRow As Long

'Ermitteln der ersten leeren Zeile
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

'Wohin werden die eingegebenen Datein eingefüllt?
Cells(emptyRow, 1).Value = ComboBox1.Value
Cells(emptyRow, 5).Value = TextBox1.Value
Cells(emptyRow, 2).Value = TextBox2.Value
Cells(emptyRow, 3).Value = TextBox3.Value
Cells(emptyRow, 7).Value = TextBox4.Value

If OptionButton1.Value = True Then
    Cells(emptyRow, 6).Value = "1. Halbjahr"
End If

If OptionButton2.Value = True Then
    Cells(emptyRow, 6).Value = "2. Halbjahr"
End If


Me.Label7 = "Speichern erfolgreich!"

End Sub

Ich muss auch sagen, es funktioniert prächtig. Die Einträge werden alle korrekt erstellt etc. Nur habe ich in Spalte "H" meiner Tabelle, wo die Daten eingefügt werden, eine Spalte für SVerweis. Diese Formel soll jedesmal, wenn ein neuer Eintrag gespeichert wird, angefügt werden. Wenn ich von anfang an alle Formeln runterziehe bis ans Ende der Tabelle braucht Excel 2Minuten zum das Dokument zu öffnen... Formel lautet: =SVERWEIS($A2;'Tabelle1'!$A$1:$C$31;2;FALSCH) Wobei der Bezug A2 natürlich mit jeder Zeile anders ist (A2, A3, A4 etc.) Wenn ich die Formel "aufzeichne", erscheint folgendes, womit ich absolut nix anfangen kann.

Sub SVerweis_HC()
'
' SVerweis_HC Makro
'

'
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC1,'Tabelle1'!R[-1317]C[-7]:R[-1289]C[-6],2,FALSE)"
    Range("H1319").Select
End Sub

Kann hier wer helfen?

...zur Frage

Excel - Aus einer zelle ein feld zum ankreuzen machen!

Ich möchte in meinem Tabellenblatt gerne eine ganze Spalte, wo man die zellen per druck "ankreuzen kann". Es gibt ja die Kontrollkästchen unter den Entwicklertools, jedoch möchte ich gerne die ganze Zelle als solches Feld formatieren.

Weiters sollte diese Zelle weiter als funktion verwendet werden (angekreuzt = true / false usw.)

Danke für eure Hilfe!

...zur Frage

Excel, Optionsfelder einbauen?

Hallo, sobald ich auf die Schaltfläche "Hinzufügen" klicke, möchte ich gerne das überprüft wird, ob alle Felder ausgefüllt sind und eine der Optionen angewählt ist.

Alles klappt bisher nur die Überprüfung der Optionsfelder nicht.

Mein Ansatz war:

'Prüfung_2: Wahl zwischen Einnahme oder Ausgabe

If EinnahmenOption.Value = "False" Or AusgabenOption.Value = "False" Then

MsgBox Prompt:="Wähle Einnahme oder Ausgabe.", Title:="Option wählen"

Else

Prüfung_2 = "True"

End If

Problem ist, dass selbst wenn ich nichts auswähle keine Meldung kommt und einfach immer Prüfung_2 auf true gesetzt wird.

...zur Frage

Arbetismappe mit datum durchsuchen?

Hallo Zusammen,

ich habe eine Arbeitsmappe mit Tabellenblätter, wo sich die Namen variieren.

Da aber im jeden Tabellenblatt in Zelle A1 ein Datum Steht, will ich jedes Tabellenblatt dem Heutigen datum suchen, zellen aus dem blatt kopieren und in eine Andere arbeitsmappe einfügen, danach das gleiche noch einmal mit dem gestrigen datum.

Aktuell sieht mein Code so aus, aber der gibt mir nur die MsgBox, dass nichts gefunden worden ist.

  'Aktuelles Datum auswählen bei Start
Dim bolHabWasGefunden As Boolean
Dim wksTabelle As Worksheet
Dim rngSpalteA As Range
Dim rngZelleGefunden As Range
For Each wksTabelle In ThisWorkbook.Worksheets
 Set rngSpalteA = wksTabelle.Columns(1)
 Set rngZelleGefunden = rngSpalteA.Find(Date, LookIn:=xlValues)
 If Not rngZelleGefunden Is Nothing Then
  wksTabelle.Activate
  rngZelleGefunden.Select
  bolHabWasGefunden = True
  Exit For
 End If
Next
If bolHabWasGefunden = False Then
 MsgBox Date, , "Hab ich nicht gefunden:"
End If

Kennt da jemand einen ansatz bzw, eine lösung?

...zur Frage

Wie kann ich Kontrollkästchen elegant miteinander verknüpfen, um nach mehreren Kriterien zu filtern?

Hallo zusammen,

in einer ExcelDatei befinden sich Formularsteuerlemente bzw. 3 Kontrollkästchen mit denen ich verschiedene Kriterien nach Hunde, Katzen und Vögel filtern sowie verknüpfen möchte.

Mit ActiveX-Steuerelemente Kontrollstästchen und CommandButton konnte ich folgendes Beispiel aufbauen:

Private Sub ausführen_Click()

    If CheckBox1.Value = True And CheckBox2.Value = False And CheckBox3.Value = False Then
        Hund
    ElseIf CheckBox1.Value = False And CheckBox2.Value = True And CheckBox3.Value = False Then
        Katze
    ElseIf CheckBox1.Value = False And CheckBox2.Value = False And CheckBox3.Value = True Then
        Vogel
    ElseIf CheckBox1.Value = True And CheckBox2.Value = True And CheckBox3.Value = False Then
        HundKatze
    ElseIf CheckBox1.Value = False And CheckBox2.Value = True And CheckBox3.Value = True Then
        KatzeVogel
    ElseIf CheckBox1.Value = True And CheckBox2.Value = False And CheckBox3.Value = True Then
        HundVogel
    ElseIf CheckBox1.Value = True And CheckBox2.Value = True And CheckBox3.Value = True Then
        Alle
    Else
        MsgBox ("Es wurde nichts ausgewählt")
    End If

End Sub

Sub Hund()
' Hund Makro
    Worksheets("Tabelle2").Range("$A$4:$B$8").AutoFilter Field:=2, Criteria1:="Hund"
End Sub
Sub Katze()
' Katze Makro
    Worksheets("Tabelle2").Range("$A$4:$B$8").AutoFilter Field:=2, Criteria1:="Katze"
End Sub
Sub Vogel()
' Vogel Makro
    Worksheets("Tabelle2").Range("$A$4:$B$8").AutoFilter Field:=2, Criteria1:="Vogel"
End Sub
Sub Alle()
' Alle Makro
    Worksheets("Tabelle2").Range("$A$4:$B$8").AutoFilter Field:=2
End Sub
Sub HundKatze()
' HundKatze Makro
    ActiveSheet.Range("$A$6:$B$13").AutoFilter Field:=2, Criteria1:="=Hund", _
        Operator:=xlOr, Criteria2:="=Katze"
End Sub
Sub KatzeVogel()
' KatzeVogel Makro
    ActiveSheet.Range("$A$6:$B$13").AutoFilter Field:=2, Criteria1:="=Katze", _
        Operator:=xlOr, Criteria2:="=Vogel"
End Sub
Sub HundVogel()
' HundVogel Makro
    ActiveSheet.Range("$A$6:$B$13").AutoFilter Field:=2, Criteria1:="=Hund", _
        Operator:=xlOr, Criteria2:="=Vogel"
End Sub

Das funktioniert soweit ganz gut.

Allerdings benötige ich Formularsteuerelemente Kontrollkästchen. Die Ergebnisse sollen sich schon während ein Kontrollkästchen betätigt wird aktualisieren. Aktuell läuft das über ActiveX-Steuerelemente Kontrollkästchen und CommandButton.

Gegenüberstellung der Varianten:

Nachgebaute Excel:

Bis auf die G4 funktioniert alles sehr gut. Vielleicht seht ihr den Fehler. Auf eine einfache Formel wie im Funktionstest reagiert die Zelle.

Vielen Dank für eure Hilfe. Liebe Grüße

...zur Frage

Wie kann man in Excel per VBA abhängig von einem Wert Spalten aus-/einblenden?

Hey. Ich weiß zu diesem Thema gibt es schon ein paar Einträge im Netz. jedoch habe ich es nie für mich umformuliert bekommen. Vielleicht kann mir hier jemand helfen?

In Zelle G6 steht ein Wert von 1-6. Abhängig davon sollen dann immer andere Spalten ausgeblendet werden. Mein Code zur Zeit:

Sub Ausblenden()
'
' Ausblenden Makro
'
' Tastenkombination: Strg+a
'
    If "G6" = "1" Then
                Columns("v:bn").EntireColumn.Hidden = False
                Columns("v:bn").EntireColumn.Hidden = True
            Else
                If "G6" = "2" Then
                    Columns("v:bn").EntireColumn.Hidden = False
                    Columns("ae:bn").EntireColumn.Hidden = True
                Else
                    If "G6" = "3" Then
                        Columns("v:bn").EntireColumn.Hidden = False
                        Columns("an:bn").EntireColumn.Hidden = True
                    Else
                        If "G6" = "4" Then
                            Columns("v:bn").EntireColumn.Hidden = False
                            Columns("aw:bn").EntireColumn.Hidden = True
                        Else
                            If "G6" = "5" Then
                                Columns("v:bn").EntireColumn.Hidden = False
                                Columns("bf:bn").EntireColumn.Hidden = True
                            Else
                                If "G6" = "6" Then
                                    Columns("v:bn").EntireColumn.Hidden = False
                                End If
                            End If
                        End If
                    End If
                End If
    End If
End Sub

Ich bin ein VBA anfänger, also bitte seit nachsichtig x). Danke schon einmal im voraus!

...zur Frage

Excel SVERWEIS bei Auswahl in einer Combobox?

Hallo,

ich habe folgendes Problem. In Zelle A1 befindet sich eine Comobox indem man Zahlen auswählen kann. Die Comobox ist auch mit der Zelle A1 verknüpft, sodass wenn dort z.B. 1 ausgewählt wird, auch 1 in Zelle A1 erscheint.

In Zelle A2 habe ich nun ein SVERWEIS eingetragen die auf Zelle A1 zugreift. Nur leider funktioniert das nicht in Kombination mit der ComboBox. Wenn ich inder Comobox was auswähle dann funktioniert die Formel mit SVERWEIS nicht. Gebe ich aber manuell in A1 eine zahl ein, dann funktioniert es.

Woran kann dies liegen?

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen