Ich programmiere ein wenig und füge einfach Client-Code hinzu. Aber wenn ich einen Client hinzufüge, erhalte ich diesen kleinen Fehler, bei dem ich mich nicht befreien kann. Vielleicht ist es eine einfache Lösung. Hier ist mein Code:
Private Sub btn_Toevoegen_Click()
Dim laatsteKlantNummer As Integer
Range("B4:B13").End(xlDown).Select
laatsteKlantNummer = ActiveCell.Value
ActiveCell.Offset(1, 0).Value = txtKlant
ActiveCell.Offset(1, 1).Value = txtNaam
ActiveCell.Offset(1, 2).Value = txtAdres
ActiveCell.Offset(1, 3).Value = txtWoonplaats
ActiveCell.Offset(1, 4).Value = txtContact
Me.Hide
Range("B4:B13").Sort Key1:=Range("B4:B13"), Order1:=xlAscending
End Sub
Dieser Code funktioniert einwandfrei, aber die Sache passiertWenn es im Excel-Arbeitsblatt platziert wird, wird es als Text und nicht als Zahl platziert. Also gibt es mir den Fehler: "Nummer als Text gespeichert". Danach kann ich auf In Nummer konvertieren klicken. So was:(http://i.imgur.com/mfMnGFI.png) Aber ist es möglich, es zu codieren, anstatt es die ganze Zeit anzuklicken?
Antworten:
2 für die Antwort № 1Ich bin nicht sicher, in welcher Zeile Sie diese Fehlermeldung erhalten, aber zum Beispiel, wenn es diese ist:
ActiveCell.Offset(1, 4).Value = txtContact
Sie können dies hinzufügen, um es in eine Zahl "umzuwandeln":
ActiveCell.Offset(1, 4).Value = txtContact + 0