Warum werden die Werte nicht in der Combobox angezeigt?

Hi, ich programmiere in VBA und bekomme immer einen Fehler. Der Teil des Codes in dem der Fehler passierte:

   If cmbUnterkategorie.Value = "Ton" Then
     lblArt.Caption = "Farbe:"
     lblArt.Visible = True
     cmbArt.RowSource = Tabelle1.Range("E2:E" & _
     Tabelle1.UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible)
     cmbArt.Visible = True
  End If

Um genau zu sein wird der Fehler bei der 4. und 5. Zeile angezeigt (gehören zusammen). Was habe ich falsch gemacht? Es gibt ein Formular mit einer Combobox "Unterkategorie". Wenn deren Wert "Ton" entspricht soll eine weitere Combobox eingeblendet werden. Das was man aus dieser Combobox auswählen kann wird aus dem Tabellenblatt Tabelle1 (VBA-interner Name) entnommen. Diese wird allerdings vorher gefiltert und deshalb sollen alle noch übrig gebliebenen Einträge aus Spalte E zur Auswahl in der Combobox stehen! Danke für die Antworten schon im Voraus!

2 Antworten

Vom Fragesteller als hilfreich ausgezeichnet

Oubyi, UserMod Light

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

28.02.2016, 19:39

Ich kann den Fehler zwar reproduzieren, verstehe ihn aber nicht wirklich.
Allerdings konnte ich ihn in meiner Versuchsanordnung SO beheben:

cmbArt.RowSource=Sheets("Tabelle1").Range("E2:E" & _
     Tabelle1.UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible)

Anscheinend "verträgt" er die direkte Ansprache der Tabelle nicht.
Sicherheitshalber würde ich das Rows Count dann auch auf den Namen der Tabelle beziehen, damit es da keine Verwechslungen gibt:

cmbArt.RowSource=Sheets("Tabelle1").Range("E2:E" & _ 
Sheets("Tabelle1").UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible)

Vielleicht klappt es bei Dir auch so?

Woher ich das weiß:Berufserfahrung – IT-Administrator (i.R.)

Oubyi, UserMod Light

18.03.2016, 01:43

Danke fürs ☆
☼

beroud

28.02.2016, 19:02

mach mal vor der fehlerzeile 4 ein

msgbox Tabelle1.UsedRange.Rows.Count

ich habe erst freitag ein problem mit einer vorlage gehabt, bei der genau diese angabe völlig sinlos zwischen 148millionen und 296 schwankte - bei jedem aufruf anders

agent888

Fragesteller

28.02.2016, 19:14

hab ich bereits gemacht... Aber der used Range gibt nicht die Anzahl der gefilterten Zeilen sondern die Anzahl der gesamten Tabelle zurück also ist das unnötig. ... was passt aber bei diesem Code nicht?

beroud

28.02.2016, 19:31

@agent888

ich habs mir angesehen in excel - deine zuweisung ergibt ein range-object - rowsource erwartet aber einen string - du mußt also an deinem range noch ".adress" anhängen

cmbArt.RowSource = Tabelle1.Range("E2:E" & _ Tabelle1.UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible).adress

ich habs allerdings nicht weiter ausprobiert

Guten Tag zusammen,

ich habe eine Combobox, dessen Inhalt aus einem gewissen Bereich angezeigt werden soll. Jedoch möchte ich, dass in der Liste keine leeren Zellen angezeigt werden.

Infos:
Bereich: Blatt XY Range L3-102
Name ComboBox: KAnzeigename
Name UserForm: Schreiben

Es läuft unter "Private Sub UserForm_Initialize()". Die leeren Zellen (formatiert als Standard) aus dem Bereich L3-L102 laufen über eine Wenn-Funktion mit dem Ergebnis = ""
Wo ist den denn Fehler?
Sind es aufgrund der Wenn-Funktion keine leeren Zellen mehr?

Dim i As Long
With Schreiben.KAnzeigename
   For i = 3 To 102
       If Not IsEmpty(Sheets("XY").Cells(i, 12)) Then
         .AddItem Sheets("XY").Cells(i, 12)
       End If
   Next
End With

Vielen Dank und Gruß

...zur Frage

Excel VBA, ComboBox + intelligente Tabelle?

Hallo, ich habe folgenden Code:

ComboBox1.RowSource = Worksheets("tabelle3").Range("intelligentetabelle[spalte1]").Address

Diesen Code führe ich auf einer Userform auf einem anderen Tabellenblatt, dem ersten, aus. Das Problem ist, jedes mal zieht sich die ComboBox die daten aus dem ersten Tabellenblatt und nicht aus dem dritten der intelligenten Tabelle. Wie kann ich das beheben?

Danke!

...zur Frage

Prüfen ob ein Objekt in der Combobox ist (VBA)?

Also eine Combobox bei mir wird unter gewissen bedingungen mit unterschiedlichen Items gefüllt.

Nun soll eine MSGbox kommen wenn ein gewisses Item Vorhanden ist, meine Ansätze waren ganz unterschiedlich aber alle ohne Ergebnis

If combobox9.object(range("J2") then ...

Wichtig ist das es in der Combobox nur vorhanden sein soll und nicht unbedingt ausgewählt

Vielen Dank für die Hilfe

...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

Excel vba Befehl für "Speichern" Button?

Hallo :)

ich arbeite gerade an einer Excel Tabelle, bei der ich etwas in das Formular eingebe und der Inhalt dann via Speichern-Button in Tabellenblatt 2 automatisch in eine Tabelle eingetragen wird.
Nun ist alles fertig, nur habe ich es bis jetzt nicht hinbekommen, dem Speichern-Button die benötigten Befehle zuzuordnen, den Inhalt der TextBox und ComboBox in die Tabelle auf Tabellenblatt 2 einzutragen.

Ich benutze bewusst Excel und nicht Access.
Kann mir jemand helfen?

Mit freundlichen Grüßen :-)

...zur Frage

Excel VBA Zwei Bereiche zu einer 2-seitigen pdf exportieren?

Hallo,

ich möchte bei Excel VBA aus einer Arbeitsmappe eine zwei seitige Pdf. Exportieren (mittels Makros).

Mein Code sieht bisher wie folgt aus:

Sub SeiteExportieren ()

Dim DateiName As String

Dateiname = "Speicherort"

Tabelle1.PageSetup.PrintArea = "C7:T70, C71:T120"

Tabelle1.ExportAsFixedFormat Type:=xlTypePDF, FileName:=sFileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

Bei dieser Funktion werden zwar zwei vorgegeben Bereiche herausgezogen, diese jedoch beide auf einer Seite dargestellt. Wie kann man die Funktion so verändern, dass die Seiten nach den angegebenen Bereichen trennt?

Danke im Voraus

...zur Frage

Excel VBA Button per doppelklick?

Moinsen,

Ich würde gerne einen versteckten Button erstelln, der folgendes Kann:

Sub CommandButton1_Click()

If ActiveSheet.ProtectContents = False Then

ActiveSheet.Protect Password:="+1516", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingRows:=True

Else

ActiveSheet.Unprotect

End If

Jedoch würde ich ihn gerne nur per Doppelklick aktivieren lassen, da man sonst evt ausversehen drauf kommt.

...zur Frage

Exel VBA Problem. Erwartet Anweisungsende?

Hi,

ich möchte mithilfe einer VBA Schaltfläche eine Formel in eine Zelle schreiben, bekomme aber mal den Fehler: erwartet Anweisungsende und mal einen Syntaxfehler

With ThisWorkbook.Worksheets("Tabelle1").Activate

Range("K20").Value = "=WENN(B25="4:3";E10/0,8;WENN(B25="16:9";E10/0,87;"Fehler"))"

End With

End Sub

...zur Frage

Excel VBA - Fotos in Tabelle einbetten / in UserForm anzeigen?

Hallo Zusammen

Ich möchte folgendes in einem Excel machen:

In Tabelle1 habe ich mehrere Zeilen die so aufgebaut sind: Spalte A = Nummer (01-99), Spalte B = Bild, Spalte C = Beschreibung, etc.

Das Bild in Spalte B möchte ich einbetten. Oder so einfügen, dass ich es z.B. in Tabelle2 mit "=Tabelle1!B2" anzeigen kann. Wie kann ich das Bild am besten hinterlegen? Ich habe schon die Bilder mit der ALT-Taste in die Zelle gezogen resp. in den Einstellungen eingestellt, dass sie "Von Zellposition- und Grösse abhängig" sind. Das hat aber nicht funktioniert.

Des weiteren möchte ich dann in einem UserForm eine ComboBox haben, mit den Nummern in Tabelle1. Sobald eine Nummer ausgewählt wurde, sollen daneben das Bild (Spalte B) und die Beschreibung (Spalte C) angezeigt werden. Wie diese Infos dann weiterverarbeitet werden, habe ich bereits vorbereitet.

Bei den Bildern habe ich die Tabelle1 und das UserForm grob dargestellt.

Vielne Dank,

Michael

...zur Frage

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?

...zur Frage

EXCEL Tabellenblatt fixieren?

Ich habe in EXCEL 2007 eine Arbeitsmappe mit ca 20 Tabellenblättern und ein Tabellenblatt ("Inhaltsverzeichnis")das ich stets "griffbereit" haben möchte, es soll also fixiert sein, auch wenn ich auf die Tabellenblätter weiter rechts klicke.

der VBA Code

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

    If Sheets(Sh.Index - 1).name <> "Tabelle1" 


        Sheets("Tabelle1").Move Before:=Sheets(Sh.Index)

        Sheets(Sh.Index).Activate

    Else

        Sheets(Sh.Index).Activate

    End If

End Sub

den ich bei der Recherche fand hat nichts gebracht. Was tun?

...zur Frage

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 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

Wie kann ich in VBA-Excel einen Filter setzen über einer CheckBox?

Hi,

ich suche eine einfachere Lösung für meine UserForm um über CheckBoxen meine Tabelle zu Filtern.

Im grunde möchte ich also, wenn ich einen Wert ankreuze soll dieser Gefiltert werden.

Wie im Beispiel (unten):

FKEP und KKEP angekreuzt = FKEP und KKEP angezeigt.

Nur KKEP angekreuzt = nur KKEP angezeigt

"Wert" der gefiltert werden soll | CheckBox Name
 FKEP                              CBFilterFKEP
 KKEP                              CBFilterKKEP
 KfB                               CBFilterKfB
 ausgesch.                         CBFilterausgesch
 beendet                           CBFilterbeendet
 EQ - KfB                          CBFilterEQKfB
 EQ - FKEP                         CBFilterEQFKEP

Mein momentaner Code schaut wiefolgt aus:

    Private Sub CBFilterFKEP_Click()

If CBFilterFKEP = True Then

    Sheets("Gesamtdaten").Range("$A$2:$EQ$502").AutoFilter Field:=3, Criteria1:=Array( _
    "FKEP"), Operator:=xlFilterValues

If CBFilterKKEP = True Then

    Sheets("Gesamtdaten").Range("$A$2:$EQ$502").AutoFilter Field:=3, Criteria1:=Array( _
    "FKEP", "KKEP"), Operator:=xlFilterValues

End If
End If
End Sub

Private Sub CBFilterKKEP_Click()

    If CBFilterKKEP = True Then

        Sheets("Gesamtdaten").Range("$A$2:$EQ$502").AutoFilter Field:=3, Criteria1:=Array( _
        "KKEP"), Operator:=xlFilterValues

    If CBFilterFKEP = True Then

        Sheets("Gesamtdaten").Range("$A$2:$EQ$502").AutoFilter Field:=3, Criteria1:=Array( _
        "KKEP", "FKEP"), Operator:=xlFilterValues

    End If
    End If
    End Sub

Soweit so gut ... nun habe ich aber nur FKEP und KKEP "abgestimmt" ... muss ich nun alle 5 Werte auch "abstimmen" ? Das wird nämlich ein SEHR langer code ... und ich könnte wetten das es in VBA viel leichter geht ...

Hat wer eine Idee von euch?

MfG Tim

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen