Worksheet_Change neue Sheet übertragen

Private Sub Worksheet_Change(ByVal Target As Range) 'Prüfen, ob eine Zelle veränder wurde If Target.Count > 1 Then Exit Sub 'Prüfen ob Bestand veränder wurde If Not Intersect(Target, Range("DevVehicleData[No]")) Is Nothing Then 'Variable dimensionieren Dim No As String 'Bestand merken No = Target.Value 'Sortieren Range("DevVehicleData").Sort Key1:=Range("DevVehicleData[No]"), Order1:=xlDescending, Header:=xlYes 'Bestand suchen Range("A:A").Find(what:=No).Activate End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Elias,
es handelt sich hier nicht um eine "Formel" sondern um VBA-Code. Es ist ein Detail, aber es verwirrt.
Ergänzend zu Onurs Beschreibung: Du hast 4 Art von Codepane:
_ DieseArbeitsmappe: der Ereignis-Code dort reagiert auf Ereignis auf alle Blätter (VBA: Worksheet), daher kommt die Sub so:


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Mit Sh wird übergeben, um welche Worksheet es sich handelt.
_ TabelleX: der Ereignis wird hier nur den gegebenen Worksheet abgefangen
_ Module: hier kann kein Ereignis abgefangen werden.
_ Klassenmodul: sehen wir später.
Schwierigkeit ist, dass Du mit "aktive Tabelle" (VBA: ListObject) arbeitest. Diese haben im ganzen Arbeitsmappe (VBA: Workbook) einen eindeutigen Namen, was die Wiederverwendbarkeit des Codes erschwert. Workaround: wir gehen davon aus, dass pro Arbeitsblatt immer nur eine aktive Tabelle vorliegt (was im Allg. zu empfehlen ist), und sprechen dann die erste Tabelle im Blatt an.
Wichtig: in allen aktiven Tabellen gibt es eine Spalte die "No" heisst.
Dein Code sieht dann so aus (in "DieseArbeitsmappe" ablegen):


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Variable dimensionieren
Dim No As String
If Target.Count > 1 Then Exit Sub 'Prüfen, ob nur eine Zelle verändert wurde (bei mehrere raus)
If Sh.ListObjects.Count = 0 Then Exit Sub 'keine aktive Tabelle in diesem Blatt
With Sh.ListObjects(1) 'wir gehen davon aus, dass es immer nur eine "aktive Tabelle"(VBA: ListObject) pro Blatt gibt
'Prüfen ob Bestand veränder wurde
If Not Intersect(Target, .ListColumns("No").DataBodyRange) Is Nothing Then
'Bestand merken
No = Target.Value
'Sortieren
.DataBodyRange.Sort Key1:=.ListColumns("No"), Order1:=xlDescending, Header:=xlYes
'Bestand suchen
.DataBodyRange.Find(what:=No).Activate
End If
End With
End Sub

VG
Yal

Hallo Elias,
der Punkt bedeutet eine Verkettung der Parent-Objekt zu Child-Objekt


Worksheets(1).Range("A1")

wird auf Deutsch "auf dem ersten Arbeitsblatt, die Zelle "A1" nehmen"
(den Code auf Deutsch zu lesen und sogar laut zu sprechen, als ob man es jemanden vorlesen und erklären würde, ist ein Beschleuniger, um den Inhalt zu verstehen. Ok, laut lesen ist im Büro ein no-go, aber zu Hause: machen)
Wenn viele Child-Element sich auf demselben Parent beziehen, kann man diesen mit "With" als Überschrift nehmen:


With Sh.ListObjects(1)
.DataBodyRange.Sort Key1:=.ListColumns("No"), Order1:=xlDescending, Header:=xlYes
End With

(hier sogar zwei Child-Element: .DataBodyRange und .ListColumns)
Wenn Du dann die mittlere Zeile (die mit den Punkt-Präfix) irgendwo ablagerst, musst Du den "With" und "End With" auch mitnehmen.
VG
Yal

Beliebteste Forumthreads (12 Monate)

Worksheet_Change neue Sheet übertragen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread