Hi,
Ich hab ein ganz simples Problemchen...und da ich schon zulange mich nicht mehr mit dem proggen befasst habe, fehlt mir der Ansatz.
Also mein Problem:
Ich habe hier eine Excel Tabelle, in der sollen per Formular einpaar sachen bequem eingetragen werden.
Nun soll aber jedesmal, der neue Eintrag in der nächsten Zeile darunter stehen...
http://s7.directupload.net/images/080704/agtouyd9.jpg
Code:
Private Sub CommandButton1_Click()
If TextBox1.Value + TextBox2.Value + TextBox2.Value = "" Then
GoTo nix
End If
' i = i +1
Sheets("Tabelle1").Cells(i, 1).Value = Date
Sheets("tabelle1").Cells(i, 2).Value = TextBox1
Sheets("tabelle1").Cells(i, 3).Value = TextBox2
Sheets("tabelle1").Cells(i, 4).Value = Time$
Sheets("tabelle1").Cells(i, 5).Value = TextBox3
nix:
End Sub
Dafür habe ich hier schon das i - als zähler, aber mir fehlt jetzt der Ansatz wie ich eine Schleife realisiere, dass ein neuer Eintrag immer eine Zeile nach unten rutscht -.-