HILFE, VBA problem

Bild

Betrifft: HILFE, VBA problem von: jürg
Geschrieben am: 11.02.2005 09:46:24

Hallo Forum,


habe vollgendes Problem: habe in der Tabelle 2x diese schreibweise ,
jetzt mekert excel...oder vba . brauche beide sachen die ich da reingesetzt habe

Private Sub Worksheet_Change(ByVal Target As Range)

danke für jede hilfe
gruss
jürg

Bild


Betrifft: AW: HILFE, VBA problem von: Dr.
Geschrieben am: 11.02.2005 09:49:35

Moin,

2x geht nun per se nicht. Was willst Du denn mit der Anweisung bezwecken? Auch zwei Ereignisse können schliesslich durch eine Anweisung ausgelöst werden.


Bild


Betrifft: AW: HILFE, VBA problem von: Jürg
Geschrieben am: 11.02.2005 09:52:19

hy Dr.

anbei diese beiden dinger




Private Sub Worksheet_Change(ByVal Target As Range)
'cursor springt von a6 bis f6 nach rechts
    If Intersect(Range("A6:f6"), Target) Is Nothing Then Exit Sub
    If Target.Cells.Count <> 1 Then Exit Sub
    Target.Offset(0, 1).Select
End Sub



Private Sub Art_Nr_Change1(ByVal Target As Range)
 'Blattschutz aufheben
    ActiveSheet.Unprotect
    
If Target.Column = 5 Then
If Target.Value = "U" Then
    Target.EntireRow.Hidden = True
End If
End If
'Blattschutz aktivieren
    With ActiveSheet
    .EnableAutoFilter = True
    .Protect userinterfaceonly:=True
    End With
End Sub




kanst de mir das anpassen?
vielen Dank
Gruss
Jürg


Bild


Betrifft: AW: HILFE, VBA problem von: Dr.
Geschrieben am: 11.02.2005 09:54:05

"Private Sub Art_Nr_Change1" jibbed nich.

Integrier die dortigen If-Anweisungen einfach in das obere Worksheet Change-Ereignis.


Bild


Betrifft: AW: HILFE, VBA problem von: jürg
Geschrieben am: 11.02.2005 10:11:55

Hy Dr.

funzt nicht!!!
das erste geht aber das 2 nichgt

so hab ich s gemacht

Private Sub Worksheet_Change(ByVal Target As Range)
'cursor springt von a6 bis f6 nach rechts
    If Intersect(Range("A6:f6"), Target) Is Nothing Then Exit Sub
    If Target.Cells.Count <> 1 Then Exit Sub
    Target.Offset(0, 1).Select
 'End If
'End If
    'Blattschutz aufheben
    ActiveSheet.Unprotect
    If Target.Column = 5 Then
    If Target.Value = "U" Then
    Target.EntireRow.Hidden = True
 
    
    'Blattschutz aktivieren
    With ActiveSheet
    .EnableAutoFilter = True
    .Protect userinterfaceonly:=True
    End With
     End If
End If
End Sub


gruss
jürg


Bild


Betrifft: AW: HILFE, VBA problem von: WernerB.
Geschrieben am: 11.02.2005 13:30:15

Hallo Jürg,

meinst Du es so?

Private Sub Worksheet_Change(ByVal Target As Range)
'Cursor springt von A6 bis F6 nach rechts
    If Not Intersect(Range("A6:F6"), Target) Is Nothing Then
      If Target.Cells.Count <> 1 Then Exit Sub
      Application.EnableEvents = False       'Ereignis AUS
      Target.Offset(0, 1).Select
      Application.EnableEvents = True        'Ereignis EIN
    End If
'Blattschutz aufheben
    ActiveSheet.Unprotect
    If Target.Column = 5 Then
      If Target.Value = "U" Then
        Target.EntireRow.Hidden = True
      End If
    End If
'Blattschutz aktivieren
    With ActiveSheet
      .EnableAutoFilter = True
      .Protect userinterfaceonly:=True
    End With
End Sub

Gruß
WernerB.


Bild


Betrifft: Danke vielmal!!! geschlossen von: jürg
Geschrieben am: 11.02.2005 13:39:00

Hy Werner

vielen Dank.......
es funktioniert supper, genau das was ich wollte

echt nochmals vielen Dank
mit Gruss und schönes weekend
Jürg


 Bild

Beiträge aus den Excel-Beispielen zum Thema "HILFE, VBA problem"