zwie Codes in einem Tabellenblatt

Hallo!!
Ich habe zwei VBA-Codes die getrennt voneinander super laufen. Jetzt möchte ich aber gern beide in einem Tabellenblatt ablaufen lassen.
Einfach beide einfügen funzt nicht.
Wer kann mir weiterhelfen?
Was muss ich beachten?
Danke für eure Hilfe!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Hier die Codes:


Private Sub Worksheet_Change(ByVal Target As Range)
'Automatisch Doppelpunkt erzeugen!
Dim Zeit$
If Intersect(Target, Range("C5:C50,D5:D50,E5:E50")) Is Nothing Or Target.Count > 1 Then Exit  _
Sub
If Trim(Target) = "" Or Not IsNumeric(Target) Then Exit Sub
'ActiveSheet.Unprotect
Target.NumberFormat = "hh:mm"
Zeit = Trim(Str(Target))
Zeit = Format(Zeit, "00:00")
Application.EnableEvents = False
Target = Zeit
Application.EnableEvents = True
'ActiveSheet.Protect
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
Const Bereich = "B4:B18,D1,F10" 'Bereich, der überwacht werden soll (anpassen)
Dim rng As Range, z As Range
Set rng = Intersect(Target, Range(Bereich))
If Not rng Is Nothing Then
If rng(1).Value  "" Then 'damit man die Zelle nicht durch die Entf-Taste sperren kann
Me.Unprotect Password:="feuer1"
rng.Locked = True
Me.Protect Password:="feuer1"
End If
End If
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) 'Automatisch Doppelpunkt erzeugen! Dim Zeit$ If Intersect(Target, Range("C5:C50,D5:D50,E5:E50")) Is Nothing Or Target.Count > 1 Then If Trim(Target) = "" Or Not IsNumeric(Target) Then 'ActiveSheet.Unprotect Target.NumberFormat = "hh:mm" Zeit = Trim(Str(Target)) Zeit = Format(Zeit, "00:00") Application.EnableEvents = False Target = Zeit Application.EnableEvents = True 'ActiveSheet.Protect End If End If Const Bereich = "B4:B18,D1,F10" 'Bereich, der überwacht werden soll (anpassen) Dim rng As Range, z As Range Set rng = Intersect(Target, Range(Bereich)) If Not rng Is Nothing Then If rng(1).Value "" Then 'damit man die Zelle nicht durch die Entf-Taste sperren kann Me.Unprotect Password:="feuer1" rng.Locked = True Me.Protect Password:="feuer1" End If End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) 'Automatisch Doppelpunkt erzeugen! Dim Zeit$ If Intersect(Target, Range("C5:C50,D5:D50,E5:E50")) Is Nothing Or Target.Count > 1 Then If Trim(Target) = "" Or Not IsNumeric(Target) Then Else ActiveSheet.Unprotect Password:="feuer1" Target.NumberFormat = "hh:mm" Zeit = Trim(Str(Target)) Zeit = Format(Zeit, "00:00") Application.EnableEvents = False Target = Zeit Application.EnableEvents = True ActiveSheet.Protect Password:="feuer1" End If End If Const Bereich = "B4:B18,D1,F10" 'Bereich, der überwacht werden soll (anpassen) Dim rng As Range, z As Range Set rng = Intersect(Target, Range(Bereich)) If Not rng Is Nothing Then If rng(1).Value "" Then 'damit man die Zelle nicht durch die Entf-Taste sperren kann Me.Unprotect Password:="feuer1" rng.Locked = True Me.Protect Password:="feuer1" End If End If End Sub

Hi
da es sich um event-gesteuterte Makros handelt und es für jedes Event immer nur ein Makro geben darf, musst du beide Codetexte in ein Makro zusammenbringen.
dabei musst du allerdings folgendes beachten, ein


if Bedingung1 Then Exit sub
MakroCode1
if Bedingung2 Then Exit sub
MakroCode2

wird natürlich nicht funktionieren, da der 2. Teil des Makro ja u.U. unabhängig vom ersten Teil ausgeführt werden soll.
dh . bei einem 2.Teiligen Makro müsste das ganze dann so aussehen:


if not Bedingung1 then
MakroCode1
End if
if  Not bedingung2 then
MakroCode2
end if

das weitere Problem bei dir ist, daß das eine Makro für den Blattschutz ein Password verwendet und das andere nicht, das musst du natürlich auch vereinheitlichen.
Gruß, Daniel

Beliebteste Forumthreads (12 Monate)

zwie Codes in einem Tabellenblatt

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread