Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

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