Code aus UF nun in Modul
17.07.2022 17:22:53
Leon
folgender Code steht im Userform100 unter der CMD 02.
Ich würde ihn gern aus dem Userform heraus in ein allgemeines Modul umsetzen.
Dann soll der Code ausführbar sein, wenn die Userform100 aktiv ist, oder teilweise in abgeänderter Form aus dem Userform101. Das kommt aber später.
Was müsste ich jetzt alles ändern?
Das aktive Arbeitsblatt nennt sich "Bearbeiten", die Hilfstabelle "Auswertung"
Option Explicit
Private Sub CommandButton02_Click()
' Weiter mit Raumbezeichnung
''wenn CheckBox112 aktiv, dann Raumbezeichnung aus Textbox 611 nutzen,
If CheckBox112 Then
'CommandButton611_Click()
'Uebertragen Raumbezeichnung
Cells(ActiveCell.Row, 2).Value = TextBox611.Value
Me.TextBox95 = TextBox611.Value 'wird immer ausgeführt
TextBox611 = "" 'falls sie danach geleert werden soll
If ComboBox111 "" Then 'falls ComboBox111 nicht leer
Cells(ActiveCell.Row, 2).Value = ComboBox111.Value
TextBox95 = ComboBox111 'Inhalt übergeben
TextBox611 = ComboBox111 'Inhalt übergeben
ComboBox111 = "" ' danach geleert
End If
''Cells(ActiveCell.Row + 1, 2).Value 'hier eine zeile tiefer
End If
Dim r As Long
Cells(ActiveCell.Row, 1).Interior.Color = vbWhite ' das farblose
If Cells(ActiveCell.Row, 3) "" And Cells(ActiveCell.Row, 12) "" Then 'sind auch alle Zellen gefüllt?
ActiveCell.Offset(1).Select
r = ActiveCell.Row
If Range("A" & r) = "" Then
Range("A" & r).Value = Range("A" & r - 1).Value + 1
Range("A" & r - 1 & ":L" & r - 1).Copy
Range("A" & r).PasteSpecial xlPasteFormats
End If
''Übergabe der aktiven Zeile in "Tabelle Auswertung" P4 für Auto BM Art
Sheets("Auswertung").Range("P4").Resize(1, 12).Value = _
Cells(ActiveCell.Row, 1).Resize(1, 12).Value
Unload UserForm100
If Cells(ActiveCell.Row + 1, 1).Value = "" Then ' erhöhe in A die Zahl um +1
Cells(ActiveCell.Row + 1, 1).Value = Cells(ActiveCell.Row, 1).Value + 1
End If
''Übergabe der aktiven Zeile in "Tabelle Auswertung" Q51 für Auto BM Art
Sheets("Auswertung").Range("P51").Resize(1, 3).Value = _
Cells(ActiveCell.Row, 1).Resize(1, 3).Value
Sheets("Auswertung").Range("P2").Resize(1, 12).Value = _
Cells(ActiveCell.Row, 1).Resize(1, 12).Value
''nun die Zeile davor nach Auswertung P4 kopiert für >Kabelauto
Sheets("Auswertung").Range("P4").Resize(1, 14).Value = _
Cells(ActiveCell.Row - 1, 1).Resize(1, 14).Value
Unload UserForm100
Application.CutCopyMode = False
ActiveCell.Select
UserForm100.Show vbModeless
Else
MsgBox "Machs jetzt nicht, weil ....na es fehlt doch was!"
End If
End Sub
Kann jemand helfen?Grüsse Leon