Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Vor VBA Blattschutz aufheben, dann wieder schützen
zurück: Löschen automatisch weiter: Freie Zellen Suchen und wenn Zelle frei ist beschreiben Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
schildi2000
Im Profil kannst Du frei den Rang ändern


Verfasst am:
21. Jun 2011, 12:54
Rufname:

Vor VBA Blattschutz aufheben, dann wieder schützen - Vor VBA Blattschutz aufheben, dann wieder schützen

Nach oben
       Version: Office 2007

Hallo,

ich habe folgenden VBA Code, welcher neben div. Formeln von den Tabellen vor Ausführung den Blattschutz aufheben soll und danach wieder einfügen soll. Funktioniert auch, aber der Cursor spinnt jeztzt (d.h., div. Zellen sind fett umrandet, manchmal 2 zusammen etc. )
Benötige da eine Lösung!!!

Private Sub Worksheet_Change(ByVal Target As Range)
For Each ws In ThisWorkbook.Worksheets
ws.Unprotect Password:="123"
Next ws
If Not Intersect(Target, Range("F5:G200")) Is Nothing Then
With Sheets(3)
If .Cells(Target.Row, 3) = "" Then
.Cells(Target.Row, 3) = Target
Else
.Cells(Target.Row, Columns.Count).End(xlToLeft).Offset(0, 1) = Target
End If
End With
End If
If Not Intersect(Target, Range("F5:F200")) Is Nothing Then
With Sheets(4) 'Tabellenblattname eingeben
If .Cells(Target.Row, 3) = "" Then
.Cells(Target.Row, 3) = Target
Else
.Cells(Target.Row, Columns.Count).End(xlToLeft).Offset(0, 1) = Target
End If
End With
End If
If Not Intersect(Target, Range("G5:G200")) Is Nothing Then
With Sheets(5) 'Tabellenblattname eingeben
If .Cells(Target.Row, 3) = "" Then
.Cells(Target.Row, 3) = Target
Else
.Cells(Target.Row, Columns.Count).End(xlToLeft).Offset(0, 1) = Target
End If
End With
End If
If Not Intersect(Target, Range("H5:H200")) Is Nothing Then
With Sheets(6) 'Tabellenblattname eingeben
If .Cells(Target.Row, 3) = "" Then
.Cells(Target.Row, 3) = Target
Else
.Cells(Target.Row, Columns.Count).End(xlToLeft).Offset(0, 1) = Target
End If
End With
End If
If Not Intersect(Target, Columns("b")) Is Nothing Then
For Each rg In Target
If rg.Value = "" And rg.Row > 4 And rg.Column = 2 Then _
Worksheets("PV-PDV").Range("C" & rg.Row & ":" & "Z" & rg.Row).ClearContents
Next rg
End If
For Each ws In ThisWorkbook.Worksheets
ws.Protect Password:="123"
Next ws
End Sub
y-vonne
Gast


Verfasst am:
21. Jun 2011, 13:23
Rufname:


AW: Vor VBA Blattschutz aufheben, dann wieder schützen - AW: Vor VBA Blattschutz aufheben, dann wieder schützen

Nach oben
       Version: Office 2007

Als erstest solltes du mal an deiner Formatierung arbeiten dass kann ja niemand lesen

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    For Each ws In ThisWorkbook.Worksheets
        ws.Unprotect Password:="123"
    Next ws
    If Not Intersect(Target, Range("F5:G200")) Is Nothing Then
        With Sheets(3)
            If .Cells(Target.Row, 3) = "" Then
                .Cells(Target.Row, 3) = Target
            Else
                .Cells(Target.Row, Columns.Count).End(xlToLeft).Offset(0, 1) = Target
            End If
        End With
    End If
    If Not Intersect(Target, Range("F5:F200")) Is Nothing Then
        With Sheets(4) 'Tabellenblattname eingeben
            If .Cells(Target.Row, 3) = "" Then
                .Cells(Target.Row, 3) = Target
            Else
                .Cells(Target.Row, Columns.Count).End(xlToLeft).Offset(0, 1) = Target
            End If
        End With
    End If
    If Not Intersect(Target, Range("G5:G200")) Is Nothing Then
        With Sheets(5) 'Tabellenblattname eingeben
            If .Cells(Target.Row, 3) = "" Then
                .Cells(Target.Row, 3) = Target
            Else
                .Cells(Target.Row, Columns.Count).End(xlToLeft).Offset(0, 1) = Target
            End If
        End With
    End If
    If Not Intersect(Target, Range("H5:H200")) Is Nothing Then
        With Sheets(6) 'Tabellenblattname eingeben
            If .Cells(Target.Row, 3) = "" Then
                .Cells(Target.Row, 3) = Target
            Else
                .Cells(Target.Row, Columns.Count).End(xlToLeft).Offset(0, 1) = Target
            End If
        End With
    End If
    If Not Intersect(Target, Columns("b")) Is Nothing Then
        For Each rg In Target
            If rg.Value = "" And rg.Row > 4 And rg.Column = 2 Then _
                Worksheets("PV-PDV").Range("C" & rg.Row & ":" & "Z" & rg.Row).ClearContents
        Next rg
    End If
    For Each ws In ThisWorkbook.Worksheets
        ws.Protect Password:="123"
    Next ws
End Sub

Zitat:

aber der Cursor spinnt jeztzt

Also ich kann das nicht nachvollziehen.
schildi2000
Im Profil kannst Du frei den Rang ändern


Verfasst am:
21. Jun 2011, 13:38
Rufname:

AW: Vor VBA Blattschutz aufheben, dann wieder schützen - AW: Vor VBA Blattschutz aufheben, dann wieder schützen

Nach oben
       Version: Office 2007

eine ordnung habe ich im excel, nur ich weiß nie, wie ich das hier ordentlich reinbekommen, ich tue es immer kopieren....

Aber das Problem mit dem cursor bleibt weiterhin!
Stefan1205
Im Profil kannst Du frei den Rang ändern


Verfasst am:
21. Jun 2011, 13:38
Rufname:

AW: Vor VBA Blattschutz aufheben, dann wieder schützen - AW: Vor VBA Blattschutz aufheben, dann wieder schützen

Nach oben
       Version: Office 2007

Hallo Schildi,
kannst Du die Datei mal hochladen?
Ich kann auch keinen Fehler finden.
y-vonne
Gast


Verfasst am:
21. Jun 2011, 13:44
Rufname:


AW: Vor VBA Blattschutz aufheben, dann wieder schützen - AW: Vor VBA Blattschutz aufheben, dann wieder schützen

Nach oben
       Version: Office 2007

Zitat:
wie ich das hier ordentlich reinbekommen

Na mit den Codetags.

Es gibt ein B um die Schrift dick zu machen (Bold)
Ein i um das ganze kursiv zu machen (italic)
Ein u für Unterstrichen (underline)
Quote für ein Zitat
und siehe da auch ein Code !!!
schildi2000
Im Profil kannst Du frei den Rang ändern


Verfasst am:
21. Jun 2011, 13:46
Rufname:

AW: Vor VBA Blattschutz aufheben, dann wieder schützen - AW: Vor VBA Blattschutz aufheben, dann wieder schützen

Nach oben
       Version: Office 2007

wie lade ich die Datei hoch?
Stefan1205
Im Profil kannst Du frei den Rang ändern


Verfasst am:
21. Jun 2011, 13:49
Rufname:

AW: Vor VBA Blattschutz aufheben, dann wieder schützen - AW: Vor VBA Blattschutz aufheben, dann wieder schützen

Nach oben
       Version: Office 2007

http://www.office-loesung.de/ftopic30681_0_0_asc.php[/url]
schildi2000
Im Profil kannst Du frei den Rang ändern


Verfasst am:
21. Jun 2011, 14:49
Rufname:

Re: AW: Vor VBA Blattschutz aufheben, dann wieder schützen - Re: AW: Vor VBA Blattschutz aufheben, dann wieder schützen

Nach oben
       Version: Office 2007

y-vonne - 21. Jun 2011, 13:44 hat folgendes geschrieben:
Zitat:
wie ich das hier ordentlich reinbekommen

Na mit den Codetags.

Es gibt ein B um die Schrift dick zu machen (Bold)
Ein i um das ganze kursiv zu machen (italic)
Ein u für Unterstrichen (underline)
Quote für ein Zitat
und siehe da auch ein Code !!!


Na du bist ja lustig Smile , ich meine das nicht so Smile
wenn ich in der Tabelle eine zelle anklicke, dann wird neben dieser auch eine andere x-beliebige Zelle eingerahmt (als würde man dort auch etwas eingeben wollen)
y-vonne
Gast


Verfasst am:
22. Jun 2011, 08:56
Rufname:


AW: Vor VBA Blattschutz aufheben, dann wieder schützen - AW: Vor VBA Blattschutz aufheben, dann wieder schützen

Nach oben
       Version: Office 2007

Die Antwort war auf das hier bezogen:

Zitat:
eine ordnung habe ich im excel, nur ich weiß nie, wie ich das hier ordentlich reinbekommen, ich tue es immer kopieren....
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Formeln im Tabellenblatt schützen ist das möglich 2 MaYi 168 04. Sep 2009, 09:13
MaYi Formeln im Tabellenblatt schützen ist das möglich
Keine neuen Beiträge Excel Formeln: Fehlermeldung Visual Basic bei aktiviertem Blattschutz 17 blumenfee 3131 11. Apr 2009, 22:38
blumenfee Fehlermeldung Visual Basic bei aktiviertem Blattschutz
Keine neuen Beiträge Excel Formeln: Zelle freigeben/ schützen 2 Sanguinus 296 07. März 2009, 17:08
Sanguinus Zelle freigeben/ schützen
Keine neuen Beiträge Excel Formeln: "Gruppierung aufheben" funktioniert nicht 1 CA 6541 04. Apr 2008, 11:49
CA "Gruppierung aufheben" funktioniert nicht
Keine neuen Beiträge Excel Formeln: Einzelne Arbeitsblätter mit Passwort vor dem Öffnen schützen 2 birdy222 2021 08. März 2008, 13:00
birdy222 Einzelne Arbeitsblätter mit Passwort vor dem Öffnen schützen
Keine neuen Beiträge Excel Formeln: Spalten ausblenden und mit Passwort vor Einsicht schützen 0 Maedisuess 2504 30. Jan 2008, 11:45
Maedisuess Spalten ausblenden und mit Passwort vor Einsicht schützen
Keine neuen Beiträge Excel Formeln: Formel gegen Veränderung schützen 7 Baarskater 705 06. Jan 2008, 22:55
Baarskater Formel gegen Veränderung schützen
Keine neuen Beiträge Excel Formeln: Verknüpfungen in Excel - Blattschutz 0 LWJ24 877 10. Sep 2007, 16:25
LWJ24 Verknüpfungen in Excel - Blattschutz
Keine neuen Beiträge Excel Formeln: Blattschutz ohne Befehlsschaltfläche 2 Eggler 569 27. Apr 2007, 12:02
Eggler Blattschutz ohne Befehlsschaltfläche
Keine neuen Beiträge Excel Formeln: Formel in Zelle schützen, manuellen Eintrag ermöglichen 4 Shiva333 1592 20. Feb 2007, 10:01
Shiva333 Formel in Zelle schützen, manuellen Eintrag ermöglichen
Keine neuen Beiträge Excel Formeln: Blattschutz und Makro 5 Nicole-Fun 6668 10. Jan 2007, 13:06
muenzc Blattschutz und Makro
Keine neuen Beiträge Excel Formeln: Schützen! 4 schützmich 670 19. Aug 2006, 19:23
schützmich Schützen!
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel-Formeln