Änderung mit Change Ereignis

Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer Dim k As Integer i = 130 k = 138 If Cells(i, 2) = "X" Then For i = i + 1 To k Cells(i, 2) = "X" Next i Else For i = i + 1 To k Cells(i, 2) = "" Next i End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "B2" Then On Error GoTo ERREXIT Application.EnableEvents = False Target.Offset(1).Resize(8) = Target End If ERREXIT: Application.EnableEvents = True End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer Dim k As Integer i = 130 k = 138 If Intersect(Target, Range("B12:B500")) Is Nothing Then Exit Sub Application.EnableEvents = False If Cells(i, 2) = "X" Then For i = i + 1 To k Cells(i, 2) = "X" Next i Else For i = i + 1 To k Cells(i, 2) = "" Next i End If Application.EnableEvents = True End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B12:B500")) Is Nothing Then Application.EnableEvents = False Range("B12:B500") = Target Application.EnableEvents = True End If End Sub

Hi
ob man alle Zellen, die zu einer Gruppierung gehören ermitteln kann, weiß ich nicht.
als Workaround kannst du folgendes tun:
1. füge am Anfang zwei Spalten ein, so das deine jetzige Spalte B zur Spalte D wird
2. in der Spalte A schreibst du in alle Zellen, die zu einer Gruppierung gehören (also A131:A138) ein "x" oder einen beliebigen anderen Text
die Überschriftenzeilen müssen leer bleiben
die Spalte B muss ebenfalls leer bleiben.
wenn du so deine Gruppen in Spalte A markiert hast; verwende folgenden Code im Modcul des Blatts:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
If Cells(Target.Row, 1) = "" Then
If Cells(Target.Row + 1, 1) = "x" Then
If Target.Cells.Count = 1 Then
Application.EnableEvents = False
Intersect(Target.EntireColumn, Cells(Target.Row + 1, 1).CurrentRegion.EntireRow) _
.Value = Target.Value
Application.EnableEvents = True
End If
End If
End If
End If
End Sub

damit wird dann, wenn du eine Überschriftenzeile änderst, der Text in die darunter liegenden Zellen übernommen.
die Markierung erfolgt in Spalte A. Wenn du die Gruppierung änderst dann musst du auch Spalte A anpassen, aber das geht auch bei vielen Gruppen ganz einfach:
1. alle Zellen der Spalte A mit "x" füllen
2. in der Gruppierung die Ebene 1 anzeigen lassen
3. Spalte A markieren und markierung auf "sichtbare Zellen" einschränken
4. inhalte löschen
fertig.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread