ich möchte Zahlen aus einer Zelle in einer Textbox übernehmen.
Das ist noch nicht das Problem, aber wie schaffe ich es, dass die Zahlen ohne Nachkommstellen in der Textbox angezeigt werden?
ich möchte Zahlen aus einer Zelle in einer Textbox übernehmen.
Das ist noch nicht das Problem, aber wie schaffe ich es, dass die Zahlen ohne Nachkommstellen in der Textbox angezeigt werden?
eine Möglichkeit lautet wie flgt:
Sub ZelleNAchTextbox()
With Tabelle1
Sheets("Tabelle1").TextBox1.Text = _
Int(Sheets("Tabelle1").Range("A1").Value)
End With
End Sub
Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA in 21 Tagen und VBA-Datenbank unter: http://held-office.de
danke für die schnelle Hilfe.
Ich bin leider kein Profi und komme deshalb mit deiner Antwort nicht zurecht.
Könntest du mir die Antwort so geben, dass ich sie nur einfügen muss?
Also, der Inhalt der Textbox (Name: Textbox3_Change) soll als erstes gelöscht werden, dann soll der Inhalt der Zelle K82 in diese Textbox einfügt werden, allerdings ohne Nullstellen.
sind Deine Textfelder in einer Tabelle oder in einer UserForm?
Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA in 21 Tagen und VBA-Datenbank unter: http://held-office.de
die Textboxen in einer Tabelle
Private Sub TextBox3_Change()
With Tabelle1
Sheets("Tabelle1").TextBox3.Text = ""
Sheets("Tabelle1").TextBox3.Text = _
Int(Sheets("Tabelle1").Range("K82").Value)
End With
End Sub
oder als Makro in einem separaten Modul:
Sub ZelleNAchTextbox3()
With Tabelle1
Sheets("Tabelle1").TextBox3.Text = ""
Sheets("Tabelle1").TextBox3.Text = _
Int(Sheets("Tabelle1").Range("K82").Value)
End With
End Sub
Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA in 21 Tagen und VBA-Datenbank unter: http://held-office.de
und nochmal.
Ich habe die Formal eingefügt und er rundet auch. Leider rundet er nur ab und nicht kaufmännisch.
Gibt es für dieses Problem auch eine Lösung?
ok, kein Problem:
With Tabelle1
Sheets("Tabelle1").TextBox2.Text = ""
Sheets("Tabelle1").TextBox2.Text = _
Application.Round(Sheets("Tabelle1").Range("K82").Value, 0)
End With
Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA in 21 Tagen und VBA-Datenbank unter: http://held-office.de