Microsoft Excel

Herbers Excel/VBA-Archiv

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

Typen unverträglich? | Herbers Excel-Forum


Betrifft: Typen unverträglich? von: Bernd
Geschrieben am: 22.01.2010 14:52:52

Hallo zusammen,

beim Weiterschalten auf Tabelle2 bekomme ich immer die Nachricht Typen unverträglich bei folgendem Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Worksheets("Tabelle2").TextBox2.Value = Application.WorksheetFunction.Round(Worksheets("TB"). _
Cells(14, 3).Value, 2) & "%"
End Subpre>

Wenn ich jetzt im Editor auf Pause und dann play drücke, läuft es aber wieder?!

Grüße, Bernd


  

Betrifft: AW: Typen unverträglich? von: JOWE
Geschrieben am: 22.01.2010 16:23:05

Hallo Bernd, so vllt.?

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Worksheets("Tabelle2").TextBox2.Value = _
    Round(Worksheets("TB").Cells(14, 3).Value, 2) & "%"
End Sub
Gruß
Jochen


  

Betrifft: AW: Typen unverträglich? von: Bernd
Geschrieben am: 22.01.2010 16:32:41

jetzt erscheint erst bein Klick auf die Zelle die Nachricht Typen unverträglich (mit Jochens Version)


  

Betrifft: AW: Name der TB falsch? von: JOWE
Geschrieben am: 22.01.2010 17:39:52

kann es sein, dass Deine Textbox nicht 'Textbox2" heißt??


  

Betrifft: AW: Typen unverträglich? von: Reinhard
Geschrieben am: 22.01.2010 16:24:49

Hallo Bernd,

steht vielleicht in der zelle gar keine Zahl?
Steht eine zahl drin krieg ich keinen Fehler., ansonsten ja.

Pause? Play? Hat mein Excel2000 irgendwie nicht.

Gruß
Reinhard


  

Betrifft: AW: Typen unverträglich? von: Bernd
Geschrieben am: 22.01.2010 16:30:21

Hallo Jochen, hallo Reinhard, danke für eure Antworten

ja es steht eine 0 drin!


  

Betrifft: AW: Typen unverträglich? von: Reinhard
Geschrieben am: 22.01.2010 17:06:40

Hallo Bernd,

ich krieg den Fehler nur wenn Text in der zelle steht.

lade mal eine kleine beispielmappe hoch wo der Fehler auftritt.

Gruß
Reinhard


  

Betrifft: AW: Typen unverträglich? von: fcs
Geschrieben am: 22.01.2010 17:48:40

Hallo Bernd,

es gibt manchmal Probleme im Makroablauf wenn ein Steuerelement noch den den Focus hat wenn ein Makro gestartet wird. Dann muss erst der Focus auf eine Tabellenzelle gesetzt werden.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
     Range("A4").Activate 'oder Range("A4").Select - Zelle kannst du natürlich beliebig  _
festlegen 
     Worksheets("Tabelle2").TextBox2.Value = _
             Application.WorksheetFunction.Round(Worksheets("TB"). Cells(14, 3).Value, 2) & "%"
 End Sub

Weitere mögliche Fehlerquelle: Die Zahl steht als Text in der Zelle, dann muss eine Typkonversion gemacht werden.
'Mit Typprüfung und Konversion
     With Worksheets("TB").Cells(14, 3)
        If IsNumeric(.Value) Then
          Worksheets("Tabelle2").TextBox2.Value = _
                 Application.WorksheetFunction.Round(CDbl(.Value), 2) & "%"
        Else
          Worksheets("Tabelle2").TextBox2.Value = .Value & "????"
        End If
    End With

'oder wenn Zahl in Zelle schon mit korrekten Nachkommastellen angezeigt wird
    With Worksheets("TB").Cells(14, 3)
          Worksheets("Tabelle2").TextBox2.Value = Worksheets("TB").Cells(14, 3).Text & "%"
    End With
Gruß
Franz