Office: Textbox Worter Zahlen

Ich Habe Folgene problem

Ich Will in textbox1 in UserForm
1) Wenn TextBox1 Leer Ist Dann Bei OK Drucken In zeile 16 Text "Kein Angabe"
2) Wenn In Text Box Voll Ist dann Prüfen Ob In Textbox1 "Zwei Wörter Sind mit Leerzeichen getränt"

PHP:

so
worte = Split(TextBox1.Value, " ")
                    If UBound(worte) <> 1 Then
                        MsgBox "Bitte Vor- und Nachname eingeben!", vbOKOnly, "Fehler"
                        Exit Sub
                    End If


ich Habe So Versucht aber Klapt nicht

Code:

With ActiveSheet
                If Trim(TextBox1.Tag) = "" Then
                    .Cells(lFreie, 15).Value = "Keine Angabe"
                    Else
                    worte = Split(TextBox1.Value, " ")
                    If UBound(worte) <> 1 Then
                        MsgBox "Bitte Vor- und Nachname eingeben!", vbOKOnly, "Fehler"
                        Exit Sub
                    End If
                End If
            End With

Danke

 

Hallo,

da Du nur schreibst, dass es nicht klappt, aber keine Angabe machst, worin das Problem besteht, kann ich nur raten.
Ich habe Deinen Code an den rot gekennzeichneten Stellen ergänzt bzw. verändert.

Code:

  '...
  'Deklarieren der Variablen "Worte" als dynamischen String-Array
  [COLOR="#FF0000"]Dim Worte() As String[/COLOR]
  
  With ActiveSheet
      If Trim(TextBox1.Tag) = "" Then
          'Ausgabe in Spalte 16
          .Cells(lFreie, [COLOR="#FF0000"]16[/COLOR]).Value = "Keine Angabe"
      Else
          'Erzeugen der Einträge im dynamischen Array "Worte"
          Worte = Split([COLOR="#FF0000"]Trim([/COLOR]TextBox1.Value[COLOR="#FF0000"])[/COLOR], " ")
          'Überprüfen der Eintragsanzahl im dyn.Array
          If UBound(Worte) <> 1 Then
              MsgBox "Bitte Vor- und Nachname eingeben!", vbOKOnly, "Fehler"
              Exit Sub
          End If
      End If
  End With
  '...

Falls das Problem mit diesem Code weiter bestehen sollte, müsstest Du auf alle Fälle angeben, in welcher Zeile das Problem (Fehler) auftritt und welche Fehlermeldung dabei angezeigt wurde.

 

Nein Komt Fehler Raus

zeile 1

Code:

Dim Worte() As String

fehler beim kompilieren Mehrfachdeklaration im aktuellen Gültigkeitsbereich

 

Hallo,

dann musst Du einfach diese Zeile wieder entfernen, denn diese ist dann bereits an früherer Stelle in Deinem Code enthalten.

 

Mehrfachdeklaration sollte eigentlich selbsterklärend sein. Ein Mal Dim Worte() reicht vollkommen aus ...

OK, da war Anton einige Sekunden schneller als ich ;)

 

Am einfachsten geht es, wenn man prüft, ob ein Leerzeichen enthalten ist:

Code:

If InStr(TextBox1, " ") = 0 Then
   MsgBox "Kein Leerzeichen enthalten"
Else
   MsgBox "Leerzeichen ist enthalten"
End If

Bis später,
Karin

 

Sorry das So lange gedauer aber ich mußte Komplett alles umbauen

es funktioniert immer noch nicht
wenn ich in TextBox Jegend was schreibe jegal 1 oder 2 wörte und und OK drucken dann schreibt er in die zeile "Kein Angabe"
Wenn ich in die zeile nicht rein schreibe dann schreib er Richtig "Keine Angabe"

So Hab ich Jetz Drinn

Code:

Private Sub OKButton_Click()
    Dim lFreie As Long
    Dim Worte() As String

  If OriginalName.Value = "" Then
        MsgBox ("Bitte Original Name Eingeben")
        Exit Sub
    End If

    With MyDatenBank.Worksheets("DatenBank")
        lFreie = .Cells(.Rows.Count, 6).End(xlUp).Row + 1
        If lFreie < 3 Then lFrei = 3
            .Range("F" & lFreie).Value = OriginalName.Value
          
              ---und So weiter--------------

         With ActiveSheet
                If Trim(Darsteller1.Tag) = "" Then
                    'Ausgabe in Spalte 15
                    .Cells(lFreie, 15).Value = "Keine Angabe"
                    Else
                    'Erzeugen der Einträge im dynamischen Array "Worte"
                    Worte = Split(Trim(Darsteller1.Value), " ")
                    'Überprüfen der Eintragsanzahl im dyn.Array
                    If UBound(Worte) <> 1 Then
                        MsgBox "Bitte Vor- und Nachname eingeben!", vbOKOnly, "Fehler"
                        Exit Sub
                    End If
                End If
            End With
        End With
End Sub

Darsteller1_Change()
End Sub

Bitte Helf mir