Thema Datum  Von Nutzer Rating
Antwort
28.01.2015 13:23:29 Ben
NotSolved
28.01.2015 13:27:17 Gast82396
NotSolved
28.01.2015 14:38:31 Gast50882
NotSolved
28.01.2015 15:37:28 Ben
NotSolved
Rot UserForm, Text und Zahlen eintragen
 28.01.2015 21:16:11 Gast65483
NotSolved
29.01.2015 07:35:28 Ben
Solved
29.01.2015 11:29:55 Gast12656
NotSolved

Ansicht des Beitrags:
Von:
Gast65483		 Datum:
28.01.2015 21:16:11		 Views:
925		 Rating:
     
Antwort:
  Ja
Thema:
UserForm, Text und Zahlen eintragen

Wunderbar, danke für den Download-Link. Das vereinfach die Sache ungemein.

 

Schau mal in die clsControls.objCmd_Click, dort gibt es folgende Stelle:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
         For Each objCntrl In objUFrm.Controls
            If TypeOf objCntrl Is MSForms.TextBox Then
               If objCntrl.Locked Then
                  wksData.Cells(2, CDbl(objCntrl.Tag)).Copy wksData.Cells(rng.Row, CDbl(objCntrl.Tag))
                  objCntrl.Text = wksData.Cells(rng.Row, CDbl(objCntrl.Tag)).Text
               Else
                  If IsNumeric(objCntrl.Text) Then
                     wksData.Cells(rng.Row, CDbl(objCntrl.Tag)) = IIf(IsDate(objCntrl.Text), _
                                          CDate(objCntrl.Text), CDbl(objCntrl.Text))
                  Else
'                    wksData.Cells(rng.Row, CDbl(objCntrl.Tag)) = objCntrl.Text
                  End If
               End If
            End If
         Next

Der Teil der hier auskommentiert steht (nur damit du es schneller siehst), habe ich hinzugefügt (dieser fehlt bei dir derzeit noch).

Dieser sorgt dafür, dass auch Text übernommen wird. Also einfach diese Zeile bei dir hinzufügen.

 

Gruß

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
28.01.2015 13:23:29 Ben
NotSolved
28.01.2015 13:27:17 Gast82396
NotSolved
28.01.2015 14:38:31 Gast50882
NotSolved
28.01.2015 15:37:28 Ben
NotSolved
Rot UserForm, Text und Zahlen eintragen
 28.01.2015 21:16:11 Gast65483
NotSolved
29.01.2015 07:35:28 Ben
Solved
29.01.2015 11:29:55 Gast12656
NotSolved