Hallo zusammen,
Ich bin ein ziemlicher Neuling auf dem Bereich der VBA-Programmierung.
Mein Problem an dem ich gerade hänge ist folgendes.
Ich habe ein UserForm erstellt, in welches verschiedene Informationen eingetragen werden sollen. Unter anderem wird ausgewählt um welchen Typ es sich handelt. Ich möchte, dass die Daten welche allem dem gleichen Typ entsprechen in einem gesonderten Tabellenblatt zusammengefasst werden. Ich brauche also ein Makro, welches zunächst prüft, ob ein solches Tabellenblatt für z.B. Typ 1 schon existiert, und falls nein ein solches erstellt mit dem Namen Typ 1.
Folgenden Code habe ich schon geschrieben:
Dim NextColumn As Long
For Each Worksheet In ActiveWorkbook.Sheets
If Worksheet.Name = ListBox1.Name Then Worksheet.Activate
NextColumn = ActiveSheet.Cells(7, Columns.Count).End(xlToLeft).Column + 1
Sheets("TextBox1.Text").Range("B5:B13").Copy
Sheets("ListBox1.Name").Range("NextColumn").Paste
If Not Worksheet.Name = ListBox1.Name Then
Sheets("GebTypVorlage").Copy Before:=Sheets("GebTypVorlage")
Sheets("GebTypVorlage (2)").Name = ListBox1.Text
NextColumn = ActiveSheet.Cells(7, Columns.Count).End(xlToLeft).Column + 1
Sheets("TextBox1.Text").Range("B5:B13").Copy
Sheets("ListBox1.Name").Range("NextColumn").Paste
End If
Next
Damit bekomme ich aber nur Fehlermeldungen...
Könnte jemand von euch mal schauen wo das Problem liegen könnte? Der Code ist nur durch Recherche in Foren zusammen geschustert worden, für Kritik bin ich sehr offen :)
LG, Anna