Neuen Wert in Spalte nach Duplizierung löschen

Hallo zusammen,

ich bin seit einer Weile mit folgendem Problem beschäftigt, wo ich mir nun hier neue Lösungsansätze erhoffe:

Es arbeiten verschiedene Leute mit einem excel sheet (ca 800-900 Zeilen). Diese Tabelle lebt, also es werden Zeilen in der Mitte zugefügt, Werte hin und her kopiert. Ich benötige jedoch für jede Zeile einen eindeutigen Index, welchen ich für andere Dinge benötige. Anhand dieses Indexes (sagen wir mal einen zufälligen, eindeutigen Code) greife ich auf diese Zeile zu, um die Daten abzugreifen. Diese Spalte mit dem Index habe ich ausgeblendet.
Das funktioniert auch soweit gut, leider ist es aber so, dass die anderen Bearbeiter ganze Zeilen kopieren und einfügen, sodass der Index auch kopiert ist. Ich hatte mich damit beholfen, bei Selection.change jeweils mit ".Rows.Count, 4).End(xlUp).Row" die letzte Zeile auf Änderung zu prüfen um dann mit einem Makro Duplikate zu prüfen. Dann soll die neu erstellte Zeile(n) einen neuen Code erhalten. Dann habe ich eine zusätzliche, verdeckte Spalte, wo ich eine fortlaufende Nummerierung generiere um zu erkennen, welches das Duplikat ist (wo die Nummierung nicht mehr passt). Das ist alles sehr umständlich - das soll nicht das Problem sein, jedoch sind es immer Schleifen, die abgearbeitet werden, das kostet Zeit auch wenn es nicht gravierend auffällt.
Jedoch funktioniert das auch nur in 90% der Fälle, sodass ich nach anderen Wegen suche. Ich bin mir sicher, dass ich viel zu kompliziert denke und es schnellere Funktionen dafür gibt.

Danke schon mal für eure Ideen,

Grüße, Holger

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Ok. Ich habe mal den relevanten Teil herauskopiert, damit man sieht, wie es aktuell läuft. Das ganze ist noch in der Testphase und wurde noch nicht final eingefügt.
Was auf jeden Fall Probleme macht, ist die Tatsache, wenn Leerzeilen eingefügt werden und dann Daten einkopiert werden, ohne dass Zeilen nach unten rutschen - gibt ja verschiedene Möglichkeiten zum einfügen.



Private Sub Worksheet_SelectionChange(ByVal Target As Range)



	lngaktZeile = Tabelle1.Cells(Tabelle1.Rows.Count, 4).End(xlUp).Row

	'lngletzteZeile wird bei Start festgelegt (public variable)

	'bstart = public. sollte Mehrfachausführung verhindern, zu Testzwecken in ws_change. Ob aktuell notwendig, weiß ich nicht



	If (lngaktZeile > lngletzteZeile Or Selection.Columns.Count > 1) And bStart = False Then

	    Application.Calculation = xlManual

	    bStart = True

	    KopierteZellen

	    lngletzteZeile = lngaktZeile

	    Application.Calculation = xlAutomatic

	    bStart = False

	End If

End Sub





Public Sub KopierteZellen()

	Dim i, ii, iNeu As Variant



	With Tabelle1

	    For i = 10 To lngaktZeile

	        If .Cells(i, 26).Value > i Then ID_Code (i)  'IDCode kommt in Spalte 27

	            iNeu = i + 1

        	    For ii = iNeu To lngaktZeile

	                If .Cells(ii, 26).Value = .Cells(ii - 1, 26).Value + 1 Then  ID_Code (ii)  Else GoTo neuelfdNr

	            Next ii

        	End If

	    Next i

	    GoTo Ende

neuelfdNr:

	    .Range("Z10").Value = 10

	    .Range("Z10:Z10").AutoFill Destination:=.Range("Z10:Z" & lngaktZeile), Type:=xlLinearTrend  '->Spalte 26

	End With

Ende:

End Sub

ArtNr Anzahl Zieldatum 12345678 6 06.03.2024 33334444 8 06.03.2024 55553333 2 07.03.2024 ____________________________________________ 16 33334444 4 09.03.2024 12345678 10 10.03.2024 ____________________________________________ 14

Beliebteste Forumthreads (12 Monate)

Neuen Wert in Spalte nach Duplizierung löschen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Neuen Wert in Spalte nach Duplizierung löschen

7 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)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread