End Sub verbirgt ComboBox?
30.09.2006 15:14:36
Reinhard
ich komme da einfach nicht dahinter was da geschieht.
Wenn ich einen Wert in Spalte A eingebe so wird wunschgemäß eine Zelle in C markiert. Die ComboBox ist auch wie gewünscht sichtbar, allerdings nur wenn ich mittels Haltepunkt den Code mit F8 abarbeite.
Wenn "End Sub" gelb markiert ist, ist die Combobox noch zu sehen. Wenn dann "End Sub" durch F8 ausgeführt wird ist die ComboBox verschwunden.
Die Datei: https://www.herber.de/bbs/user/37102.xls
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 And Target.Column <> 3 And Target.Column <> 4 And Target.Column <> 5 And Target.Column <> 8 Then Exit Sub
Application.EnableEvents = False
If Target.Column = 1 And Target.Value <> "" Then
With ComboBox1
.Top = Target.Offset(1, 2).Top
.Left = Target.Offset(0, 2).Left
.Width = Target.Offset(0, 2).Width + 15
.Height = Target.Offset(0, 2).Height + 5
.Visible = True
End With
ComboBox1.Visible = True
Target.Offset(0, 2).Select
ElseIf Target.Column = 1 Then
Target.Select
End If
Dim Zei As Long, le As Long
Zei = Range("E65536").End(xlUp).Row
Range("E" & Zei - 2 & ":F" & Zei).Clear
'Call Anzeige
le = Letzte
Range("B4:B1000").ClearContents
For Zei = 4 To le
Cells(Zei, 2) = Zei - 4
Next Zei
Call Anzeige
Application.EnableEvents = True
End Sub
Sub tt()
Application.EnableEvents = True
'Call Anzeige
End Sub
Sub Anzeige()
Dim Zei As Long
Application.EnableEvents = False
Zei = Range("c65536").End(xlUp).Row + 3
Range("E" & Zei - 2 & ":F1000").ClearContents
Cells(Zei, 5) = "Einnahmen:"
Cells(Zei + 1, 5) = "Ausgaben :"
Cells(Zei + 2, 5) = "Bestand :"
Cells(Zei, 6) = Application.WorksheetFunction.SumIf(Range("D4:D" & Zei), "E", Range("E4:E" & Zei))
Cells(Zei + 1, 6) = Application.WorksheetFunction.SumIf(Range("D4:D" & Zei), "A", Range("E4:E" & Zei))
Cells(Zei + 2, 6) = Cells(Zei + 3, 6) - Cells(Zei + 4, 6) + Range("H4")
'Cells(Zei, 3).Select
Application.EnableEvents = True
End Sub
Danke ^ Gruß
Reinhard