Suche Zellen mit Spaltenbreite = 50

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Ahnenforschung_kopieren() Dim Ziel As Worksheet, sp As Integer Set Ziel = Worksheets("Deine Zieltabelle") '** Ziel Tabelle angeben 'Ziel Tabelle vorher komplett löschen Ziel.UsedRange.Offset(1, 0).ClearContents With Worksheets("Tabelle1") '** Quelle Tabelle angeben 'Alle Spalten mit 50 in Ziel Spalte A kopieren For sp = 1 To .UsedRange.Columns.Count + 1 If .Columns(sp).ColumnWidth = 50 Then 'LastZell in gefundene Spalte + Ziel suchen lzX = .Cells(Rows.Count, sp).End(xlUp).Row lz1 = Ziel.Cells(Rows.Count, 1).End(xlUp).Row + 1 .Cells(2, sp).Resize(lzX, 1).Copy Ziel.Cells(lz1, 1).PasteSpecial xlPasteValues End If Next sp Application.CutCopyMode = False End With With Ziel 'Zieltabelle nearbeiten 'LastZell in Ziel Tabelle suchen lz1 = .Cells(Rows.Count, 1).End(xlUp).Row + 1 If lz1 = 2 Then MsgBox "Keine Daten kopiert!" 'Zieltabelle Spalte A sortieren .Range("A2:A" & lz1).Sort Key1:=Ziel.Range("A2"), Order1:=xlAscending, _ Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom 'Doppelte + Namen mit "AN" am Ende löschen For Each AC In .Range("A2:A" & lz1) If AC.Cells(2, 1) = AC.Value Then AC.Value = Empty If Right(Trim(AC), 2) = "AN" Then AC.Value = Empty Next AC 'Zieltabelle Spalte A sortieren .Range("A2:A" & lz1).Sort Key1:=Ziel.Range("A2"), Order1:=xlAscending, _ Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom lz1 = .Cells(Rows.Count, 1).End(xlUp).Row - 1 End With MsgBox lz1 & " Namen gefunden" End Sub

Aaaalso: Mannomann. Das Makro hat auf dem ersten Blatt "Ahnen" 794 Zeilen ausgelesen. Probleme gab es keine, nur zig Laufzeitfehler wegen Fehlern, die ich selber eingebaut hatte ... fehlende (darauf ist der Code echt scharf :-}) ) oder Berufe in eckigen Klammern. Manchmal dachte ich, ich müsste auf die Leerzeichen vor und hinter dem achten, das hat sich dann aber geklärt. Bei enthaltenen Hyperlinks scheint er auch zu stocken, die habe ich entfernt, damit der Code erstmal durchläuft.
In der letzten Woche habe ich das Blatt mit meiner ursprünglich "Endlosen Tabelle" (ca. 3000 Zeilen) in ca. 15 kleinere Blätter aufgeteilt, habe die abzweigenden großen Familienzweige ausgelagert. Ich muss also zukünftig mehrere Blätter durchforsten. Dazu werde ich mir eine Eingabeaufforderung einbauen, die den zu untersuchenden Blattnamen abfragt. Weiter werde ich noch eine "letzte Zeile" Abfrage im "Neue Namen"-Blatt einfügen, damit er die Ergebnisse der anderen Blätter nicht über das schreibt, was er vorher ausgelesen hat, sondern darunter anfügt.
Piet, ich bin immer wieder tief beeindruckt, mit wie wenig Code Du auskommst, um große Aufgaben zu realisieren.
Ach eins fällt mir noch ein. Könntest Du noch so etwas einbauen, dass solche 3er-Bereiche, deren 1 Zeile keinen Text enthält, sondern nur eine Zahl, übergangen, also nicht ausgelesen werden?! Ich habe in der Auswertung gesehen, dass sehr viele leere Zellen vorhanden sind, vor allem bei den Ahnen höherer Ordnung (die am weitesten zurückliegen, wo die Daten z.T. noch fehlen).(Gemeint ist in diesem Falle nicht die in den eckigen Klammern rechts neben den Vornamen stehende Personen-Nr., die wird erst vergeben, wenn Daten vorliegen. Gemeint ist eine Zahl bei den Vorfahren der direkten Linie, die Ahnennummer, die dann links der Vornamen ohne Klammern steht, z.B. Ich die 1, mein Vater die 2, meine Mutter die 3, Eltern des Vaters 4+5, Eltern der Mutter 6+7 usw.) Diese Bereiche sind in aller Regel leer, wenn nicht mal der Vorname dort steht.
Ich ahne schon: möglicherweise gemäß Annett Louisan "Zu viel Information"... Ich werde morgen noch einmal an anderen Blättern testen.
Erst einmal vielen Dank und eine gute Nacht! ... Früh um 4 :-})

Hallo,
danke für die Ergänzung. Ja, langsam steigert sich mein Verständnis für die Codes. Am Anfang habe ich keinen Stich gesehen, mittlerweile bin ich zu Änderungen fähig. Bin gerade wieder dabei, eine Ergänzung einzubauen:
Ausgehend von Deiner ersten Arbeit, in der den Anfangsbuchstaben die jeweilige Anzahl der dahinter stehenden Namen zugeordnet wird, möchte ich aus der Auflistung heraus Hyperlinks zu den einzelnen "Buchstabenblättern" einbauen.
Die Auflistung sieht so aus, dass in Zeile 8 die Anfangsbuchstaben eingetragen werden und in Zeile 9 die entspr. Anzahl. Da sich die Position der Anfangsbuchstaben in der Übersicht ändert (wenn neue Buchstaben hinzukommen oder Buchstaben wegfallen), muss also die Zuweisung von Hyperlinks in die Routine eingebaut werden und sich mit ändern.
Den Anfangsbuchstaben und den Blattnamen gleichermaßen habe ich die Variable ABf zugewiesen. Ist also ABf = "A", soll in der Tabelle zuerst das "A", darunter die Anzahl der mit "A" beginnenden Namen eingetragen werden und gleichzeitig die mit "A" beginnenden Namen in das Blatt abf= "A" kopiert werden. Das alles klappt wunderbar, auch mit der Zeilen- und Spaltensteuerung im Zielblatt.
Was nicht klappt ist die Zuordnung der Hyperlinks vom Buchstaben in Zeile 8 zu dem jeweiligen Blatt. Hier mein Ansatz, der Fehlermeldungen erzeugt (szAA ist der Spaltenzähler für die Eintragungen in Zeile 8. Das "A" wird also in Cells(8,12) eingetragen und in dem Moment, wenn diese Zelle aktiv ist, soll der Hyperlink zum Blatt "A" gesetzt werden. Wenn alles passiert ist, geht der Zähler auf szAA+1) :
Cells(8, szAA).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
ABf!A1, TextToDisplay:="A"
Irgenwie hakt es beim Ausdruck "Abf!A1". Wenn ich anstelle von ABf ein "A" eintrage, klappt es. Kannst Du mit einen Rat geben?
Danke im Voraus!

Beliebteste Forumthreads (12 Monate)

Suche Zellen mit Spaltenbreite = 50

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Suche Zellen mit Spaltenbreite = 50

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread