Thema Datum  Von Nutzer Rating
Antwort
Rot Me.TextBox = ActiveSheet.Cells
 15.02.2016 15:35:02 Karin
NotSolved

Ansicht des Beitrags:
Von:
Karin		 Datum:
15.02.2016 15:35:02		 Views:
1056		 Rating:
     
Antwort:
  Ja
Thema:
Me.TextBox = ActiveSheet.Cells

Hallo Ihr Lieben,

 

hab dank der Hilfestellung hier im Forum das einlesen von Zellen in eine Textbox gelernt.

 

Jetzt zu meinen Problem. Ich füge in die Textbox "Rechnungsnummer" eine 4Stellige Zahl ein die dann direkt in die Telle geschrieben wird.

Private Sub RechnungsNummer_TextBox_Change()
Range("B18") = "P" & RechnungsNummer_TextBox
End Sub

Es wird dann automatisch ein P vor die 4 Stellige Nummer eingefügt.

Wenn ich jetzt die Load funktion nutze, liest er die 4Stellige Nummer + das P ein und fügt dann ein weiteres P hinzu, da ja bei jeder eingabe in die Textbox der eingegebene Wert + ein P in die Zelle eingefügt wird. Drücke ich also 4x mal den Load button steht in der Rechnungsnummer Zelle z.B "PPPPP2020"

Private Sub CommandButtonLoadALL_Click()

Me.RechnungsNummer_TextBox = ActiveSheet.Range("B18")

End Sub

 

 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Me.TextBox = ActiveSheet.Cells
 15.02.2016 15:35:02 Karin
NotSolved