Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Zaheln Eintragen der sich in Text Wandelt

Betrifft: Zaheln Eintragen der sich in Text Wandelt von: Vulferin
Geschrieben am: 26.08.2014 19:08:09

Hallo zusammen :)
Ich hab immer mehr ideen :)

Ich habe eine Spalte wo ich beim Befüllen über die Userform zahlen eingebe möchte
z.B 33 oder 103
diese zahlen haben eine Logic
z.B 33 = Müller
103 = Meier
wenn ich also 33 eingebe soll er mir dann beim speichern der Userform Müller in die Zelle schreiben

diese Zahlen möchte ich auf dem 2ten Arbeitsblatt verwalten.

  

Betrifft: AW: Zaheln Eintragen der sich in Text Wandelt von: Hajo_Zi
Geschrieben am: 26.08.2014 19:13:37

Range("A2")=Cint(Textbox1)

GrußformelHomepage


  

Betrifft: AW: Zaheln Eintragen der sich in Text Wandelt von: Vulferin
Geschrieben am: 26.08.2014 19:22:10

wo gebe ich das ein ?


  

Betrifft: AW: Zaheln Eintragen der sich in Text Wandelt von: Hajo_Zi
Geschrieben am: 26.08.2014 19:24:32

beim CommandButton.

Gruß Hajo


  

Betrifft: AW: Zaheln Eintragen der sich in Text Wandelt von: Vulferin
Geschrieben am: 26.08.2014 19:28:05

danke dir werde mal versuchen das umzusätzen.
verstehe den befehl noch nicht. aber mal testen


  

Betrifft: AW: Zaheln Eintragen der sich in Text Wandelt von: Vulferin
Geschrieben am: 01.09.2014 13:48:50

Ich bekomme es nicht hin.
In Spalte H wird über die UserForm eine Zahl eingetragen oder ein Name.
Wenn es eine Zahl ist soll er auf dem Arbeitsblatt "Gebiete" in Spalte A nach der Nummer suchen und dann den Wert aus Spalte B in die Zelle eintragen oder ändern muss mann ja sagen.

Geht sowas vielleicht auch einfach über eine Bedingt formatierung ?


  

Betrifft: AW: Zaheln Eintragen der sich in Text Wandelt von: hary
Geschrieben am: 01.09.2014 14:16:15

Moin
Ich weiss nicht wie du In SpalteH eintraegst. Hab hier mal H1 genommen.

Private Sub CommandButton1_Click()
Dim a As Variant
Dim wksSuch As Worksheet
Dim wksZiel As Worksheet
Set wksSuch = Worksheets("Gebiete")
Set wksZiel = Worksheets("Tabelle1") 'ZielBlattName anpassen
  If IsNumeric(TextBox1) Then 'wenn Zahl in Textbox
    a = Application.Match(CLng(TextBox1), wksSuch.Columns(1), 0)
     If IsNumeric(a) Then 'wenn Zahl gefunden
      wksZiel.Range("H1").Value = wksSuch.Cells(a, 2).Value
     Else 'wenn zahl nicht gefunden
      MsgBox "Nr. nicht vorhanden"
     End If
  Else ' wenn keine Zahl in Textbox
     wksZiel.Range("H1") = TextBox1
  End If
Set wksSuch = Nothing
Set wksZiel = Nothing
End Sub

gruss hary


 

Beiträge aus den Excel-Beispielen zum Thema "Zaheln Eintragen der sich in Text Wandelt"