lassen sich meine Arbeitsschritte vereinfachen?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Moin!
Also nochmal zum Verständnis. Du hast in Spalte C die alten Werten, die schon da sind. Die selben DAten stehen auch schon in Spalte A. Dort fügst du nun deine kopierten Werte ein. Das können aber auch mal weniger sein (geht auch mehr?) und dazu können Leerzeilen dabei sein. Sind die Leerzeilen gewollt oder sind die fehlerhaft?
Um das ganze einfacher zu gestalten.
Hast du auf dem Blatt eine leere Spalte die man nutzen kann? Dann würde ich vorschlagen wir kopieren die Daten dorthin. Schauen ob es 179 gefüllte Zellen sind (oder gelten die Leerzellen auch?). Sind es weniger (was bei mehr?) kommt eine Meldung und nichts weiter. Sind es genau 179 wird nach deinem Schema gelöscht und die verbleibenden kommen und deine schon existenten Werte und die Doppelten werden entfernt.
Das wäre glaube ich einfacher. Müsstest halt nur zu den Fragen was sagen (wo leere Spalte, was mit Leerzellen, was bei weniger / mehr als 179 Werten ).
VG

Moin!
Kein Problem. Können wir auch so machen. Das mit den Leerzeichen ging mir nur drum, dass die nicht am Ende vorkommen. Das würde dann ja die Zahl der Einträge beim Zählen verändern. Hier nun eine Variante ohne Button. Den Code so einfach in das Codefenster vom Blatt 3 kopieren. Beim Eintragen werden die Einträge in Spalte A gezählt sind es 179 werden wie gewünscht nur bestimmte Einträge (3,9,15 usw) übernommen und umgedreht an den Inhalt in Tabelle2 eingefügt. Dann kommt noch ein Duplikate entfernen darüber. Habe das mal so im Code gemacht, dass du da an den Daten in Tabelle3 keine Änderungen siehst. Da ist nix gelöscht. Kann man zudem auch nochmal vergleichen.
Wie immer bitte mal testen.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ende As Long, zeile As Long, eintrag As Long
Dim blatt, daten, ergebnis(1 To 30, 1 To 1)
Set blatt = Tabelle3
ende = blatt.Cells(blatt.Rows.Count, 1).End(xlUp).Row
If ende  179 Then
MsgBox "Es wurden nicht 179 Zeilen eingefügt! Bitte überprüfen. Das Makro stoppt jetzt!", ,  _
"Eingabefehler"
Exit Sub
End If
daten = blatt.Cells(1, 1).Resize(179, 1)
eintrag = 30
For zeile = 3 To ende Step 6
ergebnis(eintrag, 1) = daten(zeile, 1)
eintrag = eintrag - 1
Next
ende = Tabelle2.Cells(blatt.Rows.Count, 1).End(xlUp).Row
Tabelle2.Cells(ende + 1, 1).Resize(30, 1) = ergebnis
Tabelle2.Columns(1).RemoveDuplicates Columns:=1, Header:=xlNo
MsgBox "fertig"
End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim ende As Long, zeile As Long, eintrag As Long Dim blatt, daten, ergebnis(1 To 30, 1 To 1) Dim zustand Set blatt = Tabelle3 ende = blatt.Cells(blatt.Rows.Count, 1).End(xlUp).Row If ende 179 Then MsgBox "Es wurden nicht 179 Zeilen eingefügt! Bitte überprüfen. Das Makro stoppt jetzt!", , _ "Eingabefehler" Exit Sub End If daten = blatt.Cells(1, 1).Resize(179, 1) eintrag = 30 For zeile = 3 To ende Step 6 ergebnis(eintrag, 1) = daten(zeile, 1) eintrag = eintrag - 1 Next zustand = Application.EnableEvents Application.EnableEvents = False blatt.Columns(1).ClearContents Application.EnableEvents = zustand ende = Tabelle2.Cells(blatt.Rows.Count, 1).End(xlUp).Row Tabelle2.Cells(ende + 1, 1).Resize(30, 1) = ergebnis Tabelle2.Columns(1).RemoveDuplicates Columns:=1, Header:=xlNo MsgBox "fertig" End Sub

Beliebteste Forumthreads (12 Monate)

lassen sich meine Arbeitsschritte vereinfachen?

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

lassen sich meine Arbeitsschritte vereinfachen?

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread