Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Wert aus Textbox in Tabelle führende Nul

Betrifft: Wert aus Textbox in Tabelle führende Nul von: Peter
Geschrieben am: 27.09.2020 19:44:29

Hallo,

in die Spalte 6 soll ein Wert aus der Textbox in die Zelle x eingefügt werden. Es handelt sich um eine Telefonnummer mit einer führenden Null oder auch ohne führende Null.

Wie kann ich es anstellen, dass wenn die erste Stelle der TB eine führende Null hat, dass dann in die Zelle der Tabelle die führende Null angezeigt wird, und wenn keine führende Null ist, nur die Zahl.

Auszug aus Code:
.Cells(xZeile, 6).Value = TextBox6

Besten Dank

Gruss
Peter

Betrifft: AW: Wert aus Textbox in Tabelle führende Nul
von: GerdL
Geschrieben am: 27.09.2020 20:15:06

Hallo Peter!
Private Sub TextBox1_AfterUpdate()
   Cells(2, 6).Value = TextBox1.Text
End Sub
Gruß Gerd

Betrifft: AW: Wert aus Textbox in Tabelle führende Nul
von: Peter
Geschrieben am: 27.09.2020 20:34:36

Hallo Gerd,

besten Dank für Deine Hilfe.

Gibt es noch eine Möglichkeit den Hinweis in der Tabelle "Die Zahl in dieser Zelle ist als Text formatiert... auf Ignorieren zu setzen per VBA?

Gruss
Peter

Betrifft: AW: Wert aus Textbox in Tabelle führende Nul
von: Hajo_Zi
Geschrieben am: 27.09.2020 21:04:15

Hallo Peter,

' grüne Dreiecke abschalten
' https://www.ms-office-forum.net/forum/showthread.php?t=370095#2
Application.ErrorCheckingOptions.BackgroundChecking = False

GrußformelHomepage

Betrifft: AW: Wert aus Textbox in Tabelle führende Nul
von: Peter
Geschrieben am: 28.09.2020 07:40:52

Hallo Hajo,
besten Dank für Deine Hilfe. Die von Dir angegebene Application schaltet die Prüfung komplett aus.
Hier ist mir die Abschaltung für jede einzele Zelle sympatischer.

Gruss
Peter

Betrifft: AW: Wert aus Textbox in Tabelle führende Nul
von: Peter
Geschrieben am: 28.09.2020 08:00:35

Hallo Hajo,
Irrtum meinerseits. Da die Zeilen nach der Eingabe sortiert werden, geht die Variation von Gerd nicht, da diese konkret auf die betreffende Zelle gilt und nicht mitgenommen wird.

Ich habe mich jetzt für Deine Version entschieden.

Gruss
Peter

Betrifft: AW: Wert aus Textbox in Tabelle führende Nul
von: Peter
Geschrieben am: 28.09.2020 08:09:26

Hallo Hajo,

nun ist das Problem jedoch, dass diese Application nicht nur für diese Mappe bzw. Datei gilt, sondern für das gesamte Excel abgeschaltet gilt. Das könnte m. E. in anderen Dateien zu Irritationen führen.

Hast Du vielleicht eine andere Lösung?

Gruss
Peter

Betrifft: NumberFormat = "@"
von: Matthias L
Geschrieben am: 27.09.2020 21:10:32

Hi, ich würde es so machen:
Option Explicit
Private Sub TextBox1_AfterUpdate()
 With Cells(2, 6)
  .NumberFormat = "@"
  .Value = TextBox1.Text
 End With
End Sub
Gruß Matthias

Betrifft: AW: NumberFormat = "@"
von: Peter
Geschrieben am: 28.09.2020 07:36:37

Hallo Matthias,
ich habe jetzt das ganze getestet.

Die Eingabe von Gerd zusammen mit Deinen Code-Zeilen ergibt das richtige Ergebnis:
(Ich habe zum Test die Zelle geändert)
 With Worksheets("Personaldatei").Cells(92, 6)
  .NumberFormat = "@"
  .Value = TextBox6.Text
  .Errors(xlNumberAsText).Ignore = True
 End With
Besten Dank für die Hilfe.

Gruss
Peter

Betrifft: AW: Wert aus Textbox in Tabelle führende Nul
von: GerdL
Geschrieben am: 27.09.2020 21:30:26

....oder lokal,

Cells(2, 6),Errors(xlNumberAsText).Ignore = True

Gruß Gerd

Betrifft: AW: Wert aus Textbox in Tabelle führende Nul
von: Peter
Geschrieben am: 28.09.2020 07:35:49

Hallo Gerd,
ich habe jetzt das ganze getestet.

Die Eingabe von Matthias zusammen mit Deiner Code-Zeile ergibt das richtige Ergebnis:
(Ich habe zum Test die Zelle geändert)
 With Worksheets("Personaldatei").Cells(92, 6)
  .NumberFormat = "@"
  .Value = TextBox6.Text
  .Errors(xlNumberAsText).Ignore = True
 End With
Besten Dank für die Hilfe.

Gruss
Peter

Betrifft: AW: Wert aus Textbox in Tabelle führende Nul
von: Peter
Geschrieben am: 28.09.2020 08:02:25

Hallo Gerd,
leider geht Deine Version doch nicht, da diese ausschliesslich für die betreffende Zelle gilt. Was ihr nicht wusstet und ich nicht wusste, dass durch Sortieren der Wert nicht mitgenommen wird.

Habe mich daher für die Version von Hajo entschieden.

Gruss
Peter

Betrifft: AW: Wert aus Textbox in Tabelle führende Nul
von: Peter
Geschrieben am: 28.09.2020 08:11:30

Hallo Gerd,
wie ich nun festgestellt habe wird durch die Application von Hajo, die Kontrolle für das gesamte Excel abgeschaltet. Hast Du eine Idee, wie das Ganze nur für diese Datei bzw. Spalte nach dem Sortieren funktionieren könnte?

Gruss
Peter

Betrifft: AW: Wert aus Textbox in Tabelle führende Nul
von: Gerd L
Geschrieben am: 28.09.2020 12:58:59

Hallo Peter,

differenziert geht es nur für einzelne Zellen.
Sub Unit2()

Dim C As Range
'Application.ErrorCheckingOptions.NumberAsText = True 'generell anzeigen

For Each C In Range("F1:F999") 'in Spalte F nicht anzeigen
    C.Errors(xlNumberAsText).Ignore = True
Next

End Sub

Gruß Gerd

Betrifft: AW: Wert aus Textbox in Tabelle führende Nul
von: Peter
Geschrieben am: 28.09.2020 13:01:30

Hallo Gerd,

werde es testen, vielen Dank.

Ist es überhaupt sinnvoll, dies Anzeige zu entfernen?

Gruss
Peter

Betrifft: AW: Nein, meine ich. o.r.T.
von: Gerd L
Geschrieben am: 28.09.2020 13:07:41

Gruß Gerd