Word VBa Initialize funktioniert nicht?

Das ist mein Code:


Private Sub ComboBox1_Initialize()

  ComboBox1.AddItem "weisungsbefugt "
  ComboBox1.AddItem "Meier"
  ComboBox1.AddItem "Schmitz"
  ComboBox1.AddItem "Weber"
  ComboBox1.AddItem "Mustermann"

  .ListIndex = 1 'Vorbelegung


End Sub





Private Sub ComboBox1_Change()
    


    Dim sPfad As String


    Inhalt = get_Word_ContenField_as_Text("DropBox1")


    MsgBox Inhalt


    Exit Sub


End Sub

Nur leider funktioniert der Initilialize Teil einfach nicht und ich weiß nicht was ich falsch mache? Ich bitte um Hilfe. Danke!

1 Antwort

PWolff

16.02.2023, 11:09

Vermutlich sollte "Weisungsbefugt:" in ein Label über/neben der ComboBox.

Index 1 ist das zweite Element der Liste (ist das beabsichtigt?)

-----

Initialize finde ich nicht bei den vorgeschlagenen Ereignishandlern einer ComboBox. (Initialize wird typischerweise im internen Code eines Objekts behandelt und ist für den Anwender des Objekts nicht sichtbar.)

Das Füllen der ComboBox sollte in Document_Open (bzw. UserForm_Initialize) erledigt werden.

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

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

Word VBA, beforePrint?

EDIT: bereits kurz nach Fragestellung selbst gelöst mit cancel =true nach Print background.... Verzeihung, war in der Arbeit und konnte erst jetzt eure Antworten sehen. Trotzdem vielen Dank!

Hallo zusammen.

Ich würde gerne einen commandButton kurz vor dem Drucken verkleinern und nach dem Drucken wieder groß anzeigen. Leider wird das Dokument zweimal ausgedruckt.

es soll beim normalen drucken passieren.

der befehl für das Druck event:

Private Sub appWord_DocumentBeforePrint _
 (ByVal Doc As Document, _
 Cancel As Boolean)
CommandButton1.Height = 0.75
CommandButton1.Width = 0.75
CommandButton2.Height = 0.75 CommandButton2.Width = 0.75


ActiveDocument.PrintOut Background:=False


CommandButton1.Height = 24 CommandButton1.Width = 100 CommandButton1.PicturePosition = fmPicturePositionRightTop

CommandButton2.Height = 24
CommandButton2.Width = 461
  End Sub

Das intializieren

Private Sub Document_New()
Set appWord = Word.Application
End Sub
' Private Sub Document_Open() Set appWord = Word.Application

End Sub

...zur Frage

Excel VBA Taschenrechner programmieren, Komma geht nicht?

Hey :) kann mir da jemand weiterhelfen. ich weiß nicht ganz wie ich es schaffe, dass das Komma richtig berechnet wird und nicht nur so angezeigt wird. bin über jede hilfe dankbar. 1 stunde hab ich noch zeit bevor ich die hausübung hochladen muss x_x nächstes mal schieb ichs lieber nicht die ganzen ferien auf

Option Explicit Dim Zahl1 As Integer Dim Zahl2 As Integer Dim Operator As String Dim zähler As Long

Private Sub cb0_Click() Me.tbanzeige = Me.tbanzeige & "0" End Sub

Private Sub cb1_Click() Me.tbanzeige = Me.tbanzeige & "1" End Sub

Private Sub cb2_Click() Me.tbanzeige = Me.tbanzeige & "2" End Sub

Private Sub cb3_Click() Me.tbanzeige = Me.tbanzeige & "3" End Sub

Private Sub cb4_Click() Me.tbanzeige = Me.tbanzeige & "4" End Sub

Private Sub cb5_Click() Me.tbanzeige = Me.tbanzeige & "5" End Sub

Private Sub cb6_Click() Me.tbanzeige = Me.tbanzeige & "6" End Sub

Private Sub cb7_Click() Me.tbanzeige = Me.tbanzeige & "7" End Sub

Private Sub cb8_Click() Me.tbanzeige = Me.tbanzeige & "8" End Sub

Private Sub cb9_Click() Me.tbanzeige = Me.tbanzeige & "9" End Sub

Private Sub cbdurch_Click() Zahl1 = Me.tbanzeige.Text Operator = "/" Me.tbanzeige.Text = "" End Sub

Private Sub cbend_Click() End End Sub

Private Sub cbhae_Click() Me.tbanzeige = Me.tbanzeige & "Gib doch endlich eine Rechnung ein" End Sub

Private Sub cbist_Click() Zahl2 = Me.tbanzeige.Text If Operator = "+" Then Me.tbanzeige.Text = Zahl1 + Zahl2 ElseIf Operator = "-" Then Me.tbanzeige.Text = Zahl1 - Zahl2 ElseIf Operator = "*" Then Me.tbanzeige.Text = Zahl1 * Zahl2 ElseIf Operator = "/" Then Me.tbanzeige.Text = Zahl1 / Zahl2 End If

Operator = "="

End Sub

Private Sub cblöschen_Click() Me.cblöschen = "" End Sub

Private Sub L_Text_Click()

End Sub

Private Sub cbkomma_Click() Me.tbanzeige = Me.tbanzeige & "," End Sub

Private Sub cbloeschen_Click() Me.tbanzeige.Text = ""

End Sub

Private Sub cbmal_Click() Zahl1 = Me.tbanzeige.Text Operator = "*" Me.tbanzeige.Text = "" End Sub

Private Sub cbminus_Click() Zahl1 = Me.tbanzeige.Text Operator = "-" Me.tbanzeige.Text = "" End Sub

Private Sub cbplus_Click() Zahl1 = Me.tbanzeige.Text Operator = "+" Me.tbanzeige.Text = "" End Sub

Private Sub CommandButton1_Click() Userform1.Show End Sub End Sub

Private Sub CommandButton2_Click()

End Sub

Private Sub cbPrimzahl_Click() Zahl1 = Me.tbanzeige.Text Me.tbanzeige = "ist eine Primzahl"

For zähler = 2 To Sqr(Abs(Zahl1)) Me.tbanzeige = "ist eine Primzahl" If Abs(Zahl1) Mod zähler = 0 Then Me.tbanzeige = "ist keine Primzahl"

Exit For End If

Next zähler

End Sub

Private Sub UserForm_Click()

End Sub

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

VBA UserForm KeyDown Sonderzeichen werden nicht erkannt?

Hallo, ich habe eine Frage zu meinem VBA Code. Und zwar sollen verschiedene Tastatureingaben verschiedene Funktionen triggern. Bei Zahlen, Buchstaben, Plus, Minus, "&"-Zeichen, "!"-Zeichen und einige andere Tasten gehen. "*"-Zeichen, Prozent, "(" und ")" bspw. gehen jedoch NICHT (als KeyCode wird 0 zurückgegeben). Hat jemand eine Ahnung woran das liegt?

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  handleKeyDown KeyCode, Shift
End Sub

Private Sub handleKeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  Dim keyChar As String * 1
  keyChar = Chr(KeyCode)
  MsgBox (KeyCode)
  Select Case keyChar
  Case "0"
    numb0_Click
  Case "1"
    numb1_Click
  '.....
  Case Else
  End Select
  Select Case KeyCode
  Case "187"
    plus_Click
  '....
  Case Else 
  End Select
End Sub

Danke für alle Antworten,

Nicolas

...zur Frage

VBA Programmierung in Word: In Tabelle Zeilen aus-/einblenden und mit Text füllen

Guten Tag! Ich habe in Word eine Tabelle mit zwei Checkboxen erstellt (siehe Bild 1), wenn man auf Ja klickt passiert soweit nichts, wenn man auf Nein klickt soll der Inhalt der darunter liegenden Zeile eigentlich ausgeblendet werden und darunter soll dann ein Text eingeblendet werden (Z.B: Hiermit erklären Sie sich einverstanden das Sie auf Datensicherung verzichten usw.).

Da ich mich zum ersten mal mit der VBA Programmierung in Word beschäftige, bin ich ziemlich ratlos was ich noch machen kann. Mithilfe von Google habe ich schon folgendes geschafft:

Private Sub OptNo_Click()

If OptNo = True Then
    With ActiveDocument.Tables(1)
        .Rows(2).Select: Selection.Delete
    End With
End If

End Sub

Wie ihr sehen könnt, wird die Zeile geleert. Der Text sollte eigentlich nur ausgeblendet werden, damit man ihn bei Klick auf Ja wieder einblenden kann. Außerdem weiß ich nicht wie ich dann in die geleerte Zeile oder darunter einen Text einfügen kann.

Ich wäre euch für eure Hilfe sehr dankbar Mfg Chaosboy

...zur Frage

Combobox mit Daten einer Spalte(B) füllen aber nur,wo in der gleichen Zeile in Spalte(G) nein steht

        Private Sub UserForm_Initialize()
With Me.txtDatum.Value = Date


   Dim r As Range
With Worksheets("Daten")
        Set r = .Range("B1", .Range("B65536").End(xlUp))
ComboBox1.RowSource = "Daten!" & r.Address
End With
End With




End Sub

Ist es möglich, dass die combobox all jene Daten herausfiltert wo, in Spalte G nein steht? Also praktisch dass es mir nurmehr jene Daten aus Spalte B in der Combobox anzeigt wo in der gleichen Zeile in Spalte G ein nein steht ? Danke im Voraus

...zur Frage

Outlook Msgbox beim Öffnen?

Hallo zusammen,

ich möchte beim Öffnen meines Outlooks gerne daran erinnert werden, einen Blick in die Junk-Mails zu werfen. Eine schlichte MsgBox würde mir da vollkommen reichen. Leider habe ich von VBA im Gesamten wenig Ahnung, bei Outlook quasi gar keine :-)

Mit folgendem Code habe ich es versucht - aber beim Öffnen der Outlook App passiert leider gar nichts.

Private Sub Application_Startup()
MsgBox "Bitte E-Mails im JUNK prüfen!", vbOKOnly, "Junk-Mails"
End Sub

Kann mir jemand sagen was ich falsch mache oder noch besser, wie es richtig zu machen ist?

Besten Dank schon mal.

LG, Chris

...zur Frage

Excel VBA: Zu ausgeblendeten Tabellenblättern springen?

Hallo Community,

ich habe ein kleines VBA-Problem in Excel.

Zur Situation: Ich habe eine Mappe mit mehreren Tabellenblättern. Diese Blätter werden mir in einem Dropdownmenü angezeigt. Mithilfe eines Commandbutton springe ich dann auf das zuvor im Dropdown gewählte Tabellenblatt:

Hier der Code vom Commandbutton:

Private Sub CommandButton1_Click()

    ThisWorkbook.Sheets(Range("D7").Value).Select

End Sub

Dieses Code funktioniert allerdings nur, solange ich die Blätter auch unten in der Mappe anzeige.

Nun zu meiner Frage: Wie müsste der Code aussehen, wenn ich die Tabellenblätter ausblende?

...zur Frage

VBA Excel mit Eingabemaske anderes Excel Blatt bearbeiten?

Hallo, folgendes Problem: Habe eine Eingabemaske erstellt, die mir Zeilen ausgibst mit einem Suchfeld. Diese kann man dann ändern, löschen etc. und diese werden für ein Programm gebraucht. So, das Programm nimmt aber nur einbe Excel Liste mit anderem Format und nun muss ich mittels der Eingabemaske die andere Datei öffnen und dann soll die Maske über diese Datei arbeiten. Die Tabelle ist vom Aufbau her genau identisch. muss also nur den Befehl haben um das öffnen, bearbeiten, speichern und schließen. Also die andere Datei dann. Füge anbei mal den Code von dem Button 'Suchen' hinzu:

    Private Sub CommandButton2_Click()
    Workbooks.Open "C:\Users\SchuehlJ\Desktop\Excel\DB_Versand102x76.xls"
      Dim suchen As Excel.Range

  With Tabelle1
     
    Set suchen = .Range(.Cells(2, "A"), .Cells(.Rows.Count, "A").End(xlUp))
     
    Set suchen = suchen.Find(TextBox1.Text, LookIn:=xlValues, LookAt:=xlWhole)
     
    If Not suchen Is Nothing Then

      TextBox2.Text = .Cells(suchen.Row, "B").Value
      TextBox3.Text = .Cells(suchen.Row, "C").Value
      TextBox4.Text = .Cells(suchen.Row, "D").Value
      TextBox5.Text = .Cells(suchen.Row, "E").Value
      ListBox1.AddItem .Cells(suchen.Row, "A").Value
      
      

    Else
    
          Call MsgBox("PN Nummer: " & "'" & TextBox1.Text & "' wurde nicht gefunden.")
          ListBox1.Clear
          TextBox1.Text = ""
          
        End If
    End With
    End Sub

Hoffe ihr könnt mir helfen,

LG Julian

...zur Frage

Access Code VBA?

Hey, ich habe ein Textfeld mit dem Namen: txtSuchen , welches folgendes Ereignis, bei Veränderung hat:

Private Sub txtSuchen_Change()

If Me.Dirty Then

DoCmd.RunCommand acCmdSaveRecord

End If

Me.RecordsetClone.FindFirst ("[Produkt] Like '" & Me!txtSuchen.Text & "*'")

If Me.RecordsetClone.NoMatch Then

Me!txtSuchen.SelStart = Len("" & Me!txtSuchen.Text)

Exit Sub

Else

Me.Bookmark = Me.RecordsetClone.Bookmark

Me!txtSuchen.SetFocus

Me!txtSuchen.SelStart = Len("" & Me!txtSuchen.Text)

End If

End Sub

Das Suchfeld ist in einem Formular Namens Hauptmenü, soll aber die Aktion in einem Unterformular Namens InstallationskeysFormular ausführen, der Code funktioniert leider nur dann, wenn man etwas im gleichen Formular suchen möchte, kann mir jemand sagen, wie ich den Code umschreiben müsste, dass er die Aktion in dem Unterformular ausführt?

...zur Frage

Excel VBA Blattschutz Passwort umgangen?

Hallo,

Ich habe folgendes Problem.

Ich habe einen Button mit dem man den Blattschutz de/aktivieren kann.

Jedoch kann man das PW umgehen, indem man einfach das Fenster schliest, indem man das PW eingibt.

Hat da jemand eine ahnung, wie ich das ausbessern kann?

Macro:

Private Sub CommandButton1_Click()

If MsgBox("Blattschutz aufheben/aktivieren?", vbYesNo) = vbYes Then

Else: Exit Sub

[...Aktion ausführen...]

End If

On Error GoTo PW

If ActiveSheet.ProtectContents = True Then

ActiveSheet.Unprotect

' einblenden:

ActiveWindow.DisplayHeadings = True

Else

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

' ausblenden:

ActiveWindow.DisplayHeadings = False

End If

Exit Sub

PW:

MsgBox "Falsches Passwort"

End Sub

...zur Frage

Excel VBA UserForm "Passwort ändern" funktioniert nicht?

Ich komme echt nicht weiter bei so einem einfachen Code! :(

Das Problem ist, dass die UserForm einmal funktioniert, aber beim zweiten Mal sagt er "Das Passwort ist nicht korrekt", obwohl es das eigentlich sein müsste. Per Direktbereich abgefragt ergibt sich dann immer, dass das Passwort auf "" steht. Findet jemand im Code den Fehler?

PS: "NeuesPasswort1" steht für die obere, "NeuesPasswort2" für die untere Reihe.

Option Explicit

Sub CheckBoxAltesPasswort_Click()
  If CheckBoxAltesPasswort.Value = True Then
    TextBoxAltesPasswort.PasswordChar = ""
    Else
      TextBoxAltesPasswort.PasswordChar = "*"
  End If
End Sub

Sub CheckBoxNeuesPasswort1_Click()
  If CheckBoxNeuesPasswort1.Value = True Then
    TextBoxNeuesPasswort1.PasswordChar = ""
    Else
      TextBoxNeuesPasswort1.PasswordChar = "*"
  End If
End Sub

Sub CheckBoxNeuesPasswort2_Click()
  If CheckBoxNeuesPasswort2.Value = True Then
    TextBoxNeuesPasswort2.PasswordChar = ""
    Else
      TextBoxNeuesPasswort2.PasswordChar = "*"
  End If
End Sub

Sub CommandButtonAbbrechen_Click()
  Me.Hide
End Sub

Sub CommandButtonSpeichern_Click()
  If TextBoxAltesPasswort.Value <> AltesPasswort Then
    MsgBox ("Das Passwort ist nicht korrekt.")
    Exit Sub
  End If
  If TextBoxNeuesPasswort1.Value <> TextBoxNeuesPasswort2.Value Then
    MsgBox ("Die Passwörter stimmen nicht überein.")
    Exit Sub
  End If
  If Len(TextBoxNeuesPasswort1.Value) < 5 Then
    MsgBox ("Bitte wählen Sie ein Passwort mit mindestens 5 Zeichen.")
    Exit Sub
  End If
  NeuesPasswort = TextBoxNeuesPasswort1.Value
  Passwort = NeuesPasswort
  Me.Hide
End Sub

Sub UserForm_Activate()
  AltesPasswort = Passwort
End Sub

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen