09.02.2023, 15:26
(Dieser Beitrag wurde zuletzt bearbeitet: 10.02.2023, 08:53 von WillWissen.
Bearbeitungsgrund: Nichtlaufenden Marko korrigiert; Codetags
)
Hallo beisammen,
ich habe ein Problem, dass ich nicht verstehe, Ggf. hat ja wer schonmal Erfahrung damit gemacht.
Ich habe mehrere Prozeduren und Formulare in einem Arbeitsblatt. Die funktionieren alle auch ganz gut. Sowie folgende: "derivateberein()". Diese geht aber nicht mehr, wenn ich die Prozedur (unten) "Private Sub CommandButton2_Click()" der Userform durchlaufen lassen habe. alles andere funktioniert weiterhin nur die "Replace" macht er nicht mehr. Erst wieder wenn ich alles schließe und neu öffne.
Woran kann das liegen?
ich habe ein Problem, dass ich nicht verstehe, Ggf. hat ja wer schonmal Erfahrung damit gemacht.
Ich habe mehrere Prozeduren und Formulare in einem Arbeitsblatt. Die funktionieren alle auch ganz gut. Sowie folgende: "derivateberein()". Diese geht aber nicht mehr, wenn ich die Prozedur (unten) "Private Sub CommandButton2_Click()" der Userform durchlaufen lassen habe. alles andere funktioniert weiterhin nur die "Replace" macht er nicht mehr. Erst wieder wenn ich alles schließe und neu öffne.
Woran kann das liegen?
Code:
Sub derivateberein()
Dim i as long
i = Tabelle3.Cells(Tabelle3.Rows.Count, 5).End(xlUp).Row
With Range(Tabelle3.Cells(9, 7), Cells(i, 7))
.Replace What:=" CN", Replacement:=""
.Replace What:=" MX", Replacement:=""
.Replace What:="PHEV", Replacement:=""
End With
End Sub
Private Sub CommandButton2_Click()
ListBox1.list = ActiveWorkbook.Sheets("Kontakte").Range("a3:a16").Value
Dim lZeile As Long
lZeile = 9
Do While Trim(CStr(Cells(lZeile, 6).Value)) <> ""
lZeile = lZeile + 1 'Nächste Zeile bearbeiten
Loop
Cells(lZeile, 3) = Date 'heute
Cells(lZeile, 5) = CStr(ID) ' VU NR
Cells(lZeile, 6) = CStr(VU) ' Vorgang
Cells(lZeile, 7) = CStr(derivate) ' Derivate
Cells(lZeile, 9) = CStr(EK)
Cells(lZeile, 10) = WorksheetFunction.VLookup(ListBox1.Value, ThisWorkbook.Worksheets("Kontakte").Range("A3:C16"), 2, 0)
Cells(lZeile, 16) = CStr(PMlink)
Cells(lZeile, 17) = CStr(ordnerbox)
On Error Resume Next
Cells(lZeile, 11) = CDate(FSK)
Cells(lZeile, 13) = CStr(step)
Cells(lZeile, 14) = Format(CStr(datum), "dd.MM.yyyy")
Cells(lZeile, 16) = CStr(PML)
Cells(lZeile, 17) = CStr(ordnerbox)
'If CheckBox1 = True Then
'Cells(lZeile, 24) = "zu-arbeit"
'End If
If jixbox = True Then
Cells(lZeile, 19) = "JIX"
ElseIf CNbox = True Then
Cells(lZeile, 19) = "CN"
Else
Cells(lZeile, 19) = ""
End If
If bereit = True Then
Cells(lZeile, 25) = "bereit"
End If
If Übergabe = True Then
Cells(lZeile, 25) = "Übergabe!"
End If
If Elba = False Then
Cells(lZeile, 30) = "n.r."
End If
If VDB = False Then
Cells(lZeile, 32) = "n.r."
End If
If Kosten = False Then
Cells(lZeile, 33) = "n.r."
End If
Unload Me
End Sub