Userform ausgeben | Herbers Excel-Forum

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Martin,
mit den folgenden Anpassungen für das Erstellen-Makro wird die neue Zeile vor der 1. Leerzeile eingefügt die unterhalb der Titelzeile in der Spalte C gefunden wird.
Gruß
Franz

Private Sub CommandButton2_Click()
Dim c As Range
Dim Zeile As Long
Dim SuchWert As String
Application.ScreenUpdating = False
Application.EnableEvents = False
SuchWert = CB_Projektart.Value
If Me.TB_Name = "" Then
MsgBox "Es idt keine Name für das Projekt eingegeben"
Exit Sub
End If
With Worksheets("Übersicht")
'Datenblock und nachfolgende Leerzeile suchen
Set c = .Range("C:C").Find(SuchWert, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
Zeile = c.Row
'Quercheck ob 1. Zeile vom Block
Do Until .Cells(Zeile, 2).Value = "Aufwand" And .Cells(Zeile, 3).Value = SuchWert
Zeile = Zeile + 1
If Zeile > .Cells.SpecialCells(xlCellTypeLastCell).Row Then
MsgBox "Zeile Aufwand - Thema nicht gefunden", vbInformation + vbOKOnly, _
"Neues Projekt erstellen"
Exit Sub
End If
Loop
'Leerzeile nach Block suchen
Do Until .Cells(Zeile, 3).Value = ""
Zeile = Zeile + 1
If Zeile > .Cells.SpecialCells(xlCellTypeLastCell).Row Then
MsgBox "Leerzeile nach Thema nicht gefunden", vbInformation + vbOKOnly, _
"Neues Projekt erstellen"
Exit Sub
End If
Loop
'Neue Zeile einfügen
.Rows(Zeile).Insert Shift:=xlDown
With .Rows(Zeile)
'Daten/Formate der Zeile oberhalb kopieren
.Rows.Offset(-1, 0).Copy Destination:=.Range("A1")
'Daten in Spalten A bis O der Zeile löschen
.Range("A1:O1").ClearContents
End With
'Eingabe-Werte eintragen
.Cells(Zeile, 1) = Me.CB_Prio
.Cells(Zeile, 2) = Me.CB_Aufwand
.Cells(Zeile, 3) = Me.TB_Name
.Cells(Zeile, 4) = Me.CB_Leitung
.Cells(Zeile, 5) = Me.CB_Unterstützung
'            .Cells(Zeile, 6) = Me.cbS1
'            .Cells(Zeile, 7) = Me.cbS2
'            .Cells(Zeile, 8) = Me.cbS3
'            .Cells(Zeile, 9) = Me.cbS4
.Cells(Zeile, 11) = Me.ComboBox4
.Cells(Zeile, 12) = Me.ComboBox9
.Cells(Zeile, 13) = Me.ComboBox7
.Cells(Zeile, 14) = Me.ComboBox8
.Cells(Zeile, 15) = Me.TB_Kommentar
End If
End With
Application.ScreenUpdating = True
Application.EnableEvents = True
Unload UserForm1
End Sub

Hallo Franz,
vielen Dank für deine Hilfe. Kann die einzelnen schritte dank deiner beschreibung sehr gut nachvollziehen.
Leider funktioniert es allerdings noch nicht reibungslos.
Zum einen funktioniert das erzeugen und befüllen der neuen zeilen, nur wenn ich Thema 4 auswähle. Dies könnte meiner meinung daran liegen, dass der vielleicht code versucht, die erste leere zeile nach dem block anzuwählen und in den spalten D und E ja immer kreuze sind wegen der filterfunktion(wobei er ja eigentlich die spalte c nur durchsucht?!?)
das wäre der fehler, den ich mir erklären könnte, allerdings konnte ich ihn nicht beheben und beim rauslöschen der kreuze tut sich auch absolut nichts. keine fehlermeldung, aber auch kein einfügen neuer zeilen
zum anderen kann ich über das angeben des Status nicht die Ampel steuern. Einen fehler hab ich bereits selbst gefunden. man kopiert ja die daten und formatierung der zeile und löscht anschließend den inhalt.
mit .Range("A1:O1").ClearContents löscht man ja aber die ganze zeile.
habe es jetzt so umgebaut:
.Range("A1:f1").ClearContents
.Range("j1:O1").ClearContents
jetzt müsste die ampel ja eigentlich noch vorhanden sein und mit hilfe der bedingten formatierung auf die statusangabe zugreifen können....leider jedoch fehlanzeige...
ich hoffe ihr könnt mir helfen!
viele grüße martin

Beliebteste Forumthreads (12 Monate)

Userform ausgeben | Herbers Excel-Forum

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread