Thema Datum  Von Nutzer Rating
Antwort
08.02.2012 06:18:40 Fragezeichen
NotSolved
Blau Lernheft-Was ist an diesem Code falsch?
 08.02.2012 08:55:28 Sino
NotSolved
08.02.2012 19:05:43 Fragezeichen
NotSolved
09.02.2012 08:11:55 Sino
Solved
09.02.2012 10:31:39 Fragezeichen
NotSolved

Ansicht des Beitrags:
Von:
Sino		 Datum:
08.02.2012 08:55:28		 Views:
665		 Rating:
     
Antwort:
  Ja
Thema:
Lernheft-Was ist an diesem Code falsch?

 Hi,

du musst die variablen (txtID, txtNachname...) deklarieren sowie den Textboxen zuweisen.

Vorschlag:

Private Sub cmdPaste_Click()

'Variablendeklaration
    Dim wkb As Workbook
    Dim wks As Worksheet
    
    Dim txtID As String
    Dim txtNachname As String
    Dim txtVorname As String
    Dim txtGeschlecht As String
    Dim txtAlter As String

txtID = UF.TextBox1.Value 'hier Anpassen Name Userform und Name der Textbox
txtNachname = UF.TextBox2.Value 'hier Anpassen Name Userform und Name der Textbox
txtVorname = UF.TextBox3.Value 'hier Anpassen Name Userform und Name der Textbox
txtGeschlecht = UF.TextBox4.Value 'hier Anpassen Name Userform und Name der Textbox
txtAlter = UF.TextBox5.Value 'hier Anpassen Name Userform und Name der Textbox

Set wkb = ThisWorkbook
Set wks = wkb.Worksheets("Tabelle1")

wkb.Activate
wks.Activate

    zeile = Cells(Rows.Count, 1).End(xlUp).Row + 1 'ermittelt die erste leere Zeile
    
    wks.Cells(zeile, 1).Value = txtID
    wks.Cells(zeile, 2).Value = txtNachname
    wks.Cells(zeile, 3).Value = txtVorname
    wks.Cells(zeile, 4).Value = txtGeschlecht
    wks.Cells(zeile, 5).Value = txtAlter

End Sub

 

Gruß Sino

 

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:



  • 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
08.02.2012 06:18:40 Fragezeichen
NotSolved
Blau Lernheft-Was ist an diesem Code falsch?
 08.02.2012 08:55:28 Sino
NotSolved
08.02.2012 19:05:43 Fragezeichen
NotSolved
09.02.2012 08:11:55 Sino
Solved
09.02.2012 10:31:39 Fragezeichen
NotSolved