einmalige Schleife
17.02.2005 08:20:26
Marius
ich benötige Hilfe bei einer VB-Schleife, die ich es nicht ganz hinbekomme. Es sollen Daten aus einer UserForm (K_Erfassung) in eine Daten Tabelle (Kalendererfassung) geschrieben werden. Dabei sind drei Felder immer gleich, aber die anderen sollen immer Fortlaufend geschrieben werden.
Es sollen immer in die nächste freie Zeile immer nur einmal die Daten übernommen werden.
TextBox 1 = A3 = immer gleich
TextBox 2 = B3 = immer gleich
TextBox 3 = C3 = immer gleich
TextBox 4 = A ab Zeile 5 = variabel
TextBox 5 = B ab Zeile 5 = variabel
TextBox 6 = C ab Zeile 5 = variabel
TextBox13= K ab Zeile 5 = variabel
Mein Code (füge ich bei) überschreibt immer alle Variablen und läuft immer für alle 500 Zeilen durch, soll aber die bestehenden stehen lassen und nur einmal die Werte einfügen.
Private Sub CommandButton1_Click()
Sheets("Kalendererfassung").Visible = True
Sheets("Kalendererfassung").Select
Range("A3").Select
ActiveCell.Select
ActiveCell = TextBox1
Range("b3").Select
ActiveCell.Select
ActiveCell = TextBox2
Range("c3").Select
ActiveCell.Select
ActiveCell = TextBox3
Dim i As Integer
Range("a5").Select
For i = 5 To 500
If ActiveCell = "" Then ActiveCell.Select
ActiveCell = TextBox4
ActiveCell.Cells(z + 1, s + 2).Select
ActiveCell = TextBox5
ActiveCell.Cells(z + 1, s + 2).Select
ActiveCell = TextBox6
ActiveCell.Cells(z + 1, s + 2).Select
ActiveCell = ""
ActiveCell.Cells(z + 2, s - 2).Select
Next i
Range("a5").Select
Sheets("Start").Select
Range("A3").Select
Sheets("Kalendererfassung").Visible = False
K_Erfassung.Hide
End Sub
Bitte um Hilfe und schon mal danke im Voraus
Marius