löschen, kopieren, duplikate entfernen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Übertrag() Dim i As Long For i = 2 To 136 Step 4 Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Zelle.Value End With Sheets("Tabelle2").Columns(1).RemoveDuplicates 1, xlNo End Sub

Sub Übertrag() Dim i As Long For i = 2 To 136 Step 4 Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Zelle.Value next i Sheets("Tabelle2").Columns(1).RemoveDuplicates 1, xlNo End Sub

Hallo ihr beiden,
erstmal an Klaus. Zitat: Darum wird verständlicherweise allergisch darauf reagiert, wenn Hilfe eingefordert statt erbeten wird.
Zitat von mir: "Ich bitte dich, mir ein Makro zur verfügung zu stellen, dass funktioniert und meine Wünsche alle berücksichtigt."
Das ist in meinen Augen sehr wohl eine Bitte, steht sogar wörtlich da.
Zu Daniel, du hast in 2 Dingen vielleicht auch nicht ganz unrecht, sicherlich kann ein Lerneffekt auch Sinn machen, zum anderen gebe ich dir recht, dass ein Makro ab einem gewissen Aufwand besser an einen bezalten Programmierer gehört. Aber du scheinst zu verkennen, dass meine Kenntnisse nicht ausreichen, um zu beurteilen wie groß der Aufwand wirklich ist und damit ob das ganze in ein Forum oder an einen bezahlten Programmierer gehört.
Mit dem Makro dass du mir gegeben hast, kann ich wenig bis gar nichts anfangen, weil mir die Kenntnisse fehlen, wie es weitergehen könnte.
Wenn du ein Makro hättest erstellen wollen, das einen Lerneffekt hat und ich das weiterentwickeln könnte, hätte es eines gebraucht, das vom Grundgerüst her meinem Wunsch entspricht, aber noch einzelne Details fehlen. Das wäre etwas gewesen, mit dem ich mich auseinander hätte setzen können wie es funktioniert und was noch fehlen könnte und mir Gedanken machen könnte wie ich das dann anpassen könte. Das wäre etwas gewesen, wo ich dir recht gegeben hätte das ein Lerneffekt mehr Sinn macht als ei fertiges Makro.
Aber habe mich jetzt sowieso entschieden, ohne Makro zu machen und habe inzwischen auch ca. 15% der Daten bearbeitet.
Viele Grüße
Jenny

Sub Übertrag() Dim i As Long, z1 As Long, Spalte As String Spalte = InputBox("Bitte die gewünschte Spalte angeben", , "A") If Spalte = vbCancel Then Exit Sub 'zuerst die letzte Zeile in Spalte A suchen (Tabelle2) z1 = Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To 136 Step 4 z1 = z1 + 1 'z1 auf nächste Zeile setzen und einfügen Sheets("Tabelle2").Cells(z1, 1) = Sheets("Tabelle1").Cells(i, Spalte).Value Next i 'dann die letzte Zeile in Spalte B suchen (Tabelle2) z1 = Sheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Row For i = 3 To 136 Step 4 z1 = z1 + 1 'z1 auf nächste Zeile setzen und einfügen Sheets("Tabelle2").Cells(z1, 2) = Sheets("Tabelle1").Cells(i, Spalte).Value Next i 'Duplikate in beiden spalten löschen Sheets("Tabelle2").Columns("A:B").RemoveDuplicates 2, xlNo 'Daten in Spalte Tabelle1 löschen Sheets("Tabelle1").Columns(Spalte).ClearContents End Sub

Hallo Piet,
ok, hab immer noch nicht verstanden was der Sinn ist If Spalte = vbCancel Then Exit Sub. Warum sollte ich irgendwas canceln, wenn ich das Makro gestartet habe,
Wie ich bereits ja erwähnt habe, habe ich angefangen die Daten zu sammeln, ohne dass sie in Tabelle2 gebracht werden, da noch kein Makro zur Verfügung stand.
Dein Makro kann ich jetzt sehr gut zweckentfremden. Ich brauche ja nur die einzelnen Spalten die ich erstellt habe untereinander zu bringen, habe dazu das Makro


Sub CopyPrim()
Quelle = "Tabelle1"
Ziel = "Tabelle2"
Yziel = 1
With Sheets(Quelle)
'Durchlaufe alle Spalten der Quelle
For Xquelle = 1 To .Cells.SpecialCells(xlCellTypeLastCell).Column
'Durchlaufe alle Zeilen der Quelle
For Yquelle = 1 To .Cells.SpecialCells(xlCellTypeLastCell).Row
'Ist die Zelle leer?
If Not IsEmpty(.Cells(Yquelle, Xquelle)) Then
'Zellinhalt kopieren
Sheets(Ziel).Cells(Yziel, 1) = .Cells(Yquelle, Xquelle)
Yziel = Yziel + 1
End If
Next
Next
End With
End Sub

gefunden und getestet und dann dein Makro auf die neuen Ausmaße anpassen, muss ja nur die beiden zahlen 136 ändern, wenn es dann mehr als 136 Zeilen sind und habe dann im Endeffekt auch auf diesem, wenn auch anderem als ursprünglich gedanten Weg das was ich haben wollte.
Eine Frage habe ich jedoch noch zu deinem Makro. Es fällt mir auf, dass es, wenn bei Start Tabelle2 leer ist, die erste Zeile frei lässt.
Ich denke es liegt daran, dass
z1 = Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row
die erste freie Zeile sucht
und dann bevor etwas eingefügt wird mit
z1 = z1 + 1
in die nächste (2.) zeile gespungen wird?
DAnke auf jeden Fall für ein Makro in das ich mich hineinversetzen konnte, wie mein Anliegen umgesetzt werden kann
Jenny

Beliebteste Forumthreads (12 Monate)

löschen, kopieren, duplikate entfernen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

löschen, kopieren, duplikate entfernen

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

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread