ich hoffe ihr könnt mir bei meinem Problem helfen, damit ich nicht allzu sehr verzweifle..
folgendes Problem:
Ich hab eine Userform erstellt mit verschiedenen TextBoxen, welche dann durch den Klick des Commanbuttons in die Excel Tabelle eingeschrieben werden sollen. Und zwar immer Zeile Pro Zeile. zb. TextBox1 erhält spalte A, TextBox 2 Spalte B und so weiter. Nun beim Klicken wird die erste Zeile eingetragen jedoch bei zweiten Klicken wird diese Zeile einfach überschrieben, ich möchte aber dass es die nächste freie Zeile sucht und diese dann dort einschreibt.
Folgende Codes habe ich verwendet:
Private Sub CommandButton1_Click()
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
'Vorname
Cells(last, 3).Value = TextBox1
'Name
Cells(last, 2).Value = TextBox2
'Telefonnummer
Cells(last, 4).Value = TextBox3
'Tag
Cells(last, 5).Value = TextBox4
'Monat
Cells(last, 6).Value = ListBox1.Value
'Jahr
Cells(last, 7).Value = ComboBox1
'Geschlecht
If CheckBox1.Value = True Then Cells(last, 1).Value = Image1
If CheckBox2.Value = True Then Cells(last, 1).Value = Image2
- ach und dieser Code funktioniert auch nicht, ich will nämlich wenn ich eine Checkbox auswähle, dass dann beim übertragen in die entsprechende Zelle ein Bild reingefügt wird, welches ich auch beim Userform erstellt habe.
'Beziehung
If OptionButton1.Value = True Then Cells(last, 8).Value = "beruflich"
If OptionButton2.Value = True Then Cells(last, 8).Value = "familiär"
If OptionButton3.Value = True Then Cells(last, 8).Value = "privat"
Ich wäre über jede Hilfe dankbar, p.s ich bin VBA Neuling, muss jedoch ein Programm auf die Beine stellen.