Makro zum Anpassen und kopieren von Zellen

Hallo alle zusammen,
könnt ihr mir bitte bei einem Makro helfen das folgendes macht?
Die folgenden 4 Punkte sollen sich auf alle Tabellen in der Arbeitsmappe beziehen.
1. Schriftfarbe schwarz
2. Schriftgröße 11
3. Schriftart Calibri
4. Text soll nicht unterstrichen sein.
-----------------------------------------------------------------------------------------------
Die folgenden beiden Punkte sollen sich nur auf die Tabelle "alle" beziehen.
5. Ist ein Text in Spalte B fett geschrieben, soll auch der Text in den Spalten A und C-G derselben Zeile fettgeschrieben sein.
6. Ist ein Text in Spalte B NICHT fett geschrieben, soll auch der Text in den Spalten A und C-G derselben Zeile NICHT fettgeschrieben sein.
-----------------------------------------------------------------------------------------------
Es gibt auch noch eine Tabelle "Teil".
7. Die Zeilen, die nach Ausführen von Punkt 5 und 6 fett sind, sollen in die Tabelle "Teil" kopiert werden und damit das Makro erneut ausführbar ist, dann Duplikate von Zeilen entfernt werden.
-----------------------------------------------------------------------------------------------
Zu den Hyperlinks:
8. Jede Zelle in Spalte B und E, sowohl in Tabelle Alle als auch in Tabelle Teil soll einen Hyperlink beinhalten. Ziel des Hyperlinks soll identisch mit dem Text sein, der in der Zelle steht.
-----------------------------------------------------------------------------------------------
Zu guter letzt:
9. Die Tabelle Alle soll in der Reihenfolge Spalte F aufsteigend, dann Spalte G aufsteigend, dann Spalte E aufsteigend sortiert werden.
10. Die Tabelle Teil soll in der Reihenfolge Spalte D aufsteigend, dann Spalte E aufsteigend, dann Spalte B aufsteigend sortiert werden.
Auch wenns sicherlich viel Arbeit ist, vielen Dank für die Unterstützung
Ein schönes Wochenende wünscht Christian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Christian,
ich hab das Makro entsprechend den zusätzlichen Infos angepasst. Ich hoffe, dass es jetzt wunschgemäß funktioniert.
1. Die Zeilen, die kopiert werden sollen, werden nicht kopiert sondern ausgeschnitten. Sie sollen aber in beiden Tabellenblättern vorhanden sein.
Fette Zeillen in "alle" werden nicht mehr gelöscht.
2. Die Tabelle alle wird nicht sortiert (kann dies mit Groß- und Kleinschreibung zu tun haben? Die Tabellen schreiben sich alle und Teil).
Hat sich ja wohl schon erledigt. Groß- und Kleinschreibung ist bei verschiedenen VBA-Funktionen relevant.
3. Die Tabelle Teil wird zwar sortiert aber falsch. Diese soll eigentlich was Spalte D anbelangt nach Alter aufsteigend sortiert sein, jetzt steht aber das am weitesten zurückliegende Datum oben und ist damit nach meinem Verständnis nach Alter absteigend sortiert.
Ein Datum, das aufsteigend sortiert wird beginnt beim ältesten Datum. In Excel2007/2010 gibt es die manuellen Sortier-Optionen "nach Alter aufsteigend bzw. absteigend". Unter VBA kann man aber nur auf-/absteigend sortieren. Um eine Spalte mit Datumswerten nach "Alter aufsteigend" zu sortieren, muss diese Spalte dann absteigend sortiert werden.
4. Aus für mich unerklärlichem Grund bleibt die erste Zeile der Tabelle Teil leer.

Das hängt mit der Art zusammen, wie die letzte ausgefüllte Zeile im Blatt "Teil" ermittelt wird. Der Befehl funktioniert wie die Tastenkombination Strg+Pfeil_Oben. D.h. es wird oberhalb der vorgegebenen Zelle die erste Zelle mit Inhalt ermittelt/angesteuert. Ist die gesamte Spalte leer, dann wird trotzdem Zeile 1 als Ergebnis ausgegeben. Beim Kopieren wird dann der Zeilenzähler hochgezählt und kopiert. Dadurch bleibt Zeile 1 leer.
Ich hab den Startwert für den Zeilenzähler jetzt auf 0 gesetzt.
5. Wie vorhin schonmal angesprochen wäre es sinnvoller, wenn bevor die Zeilen kopiert werden, der Inhalt der Tabelle Teil komplett gelöscht wird.
Ist jetzt im Makro integirert.
6. Das Erstellen der Hyperlinks ändert die Formatierung, die in den Punkten 1-4 gemacht wurde.

Hier läuft im Makro die gleiche automatische Änderung des Formats ab wie beim manuellen Einfügen von Hyperlinks. Für Font-Name und -Größe der Schrift wird die Formatvorlage "Hyperlink" angpasst. Farbe, Fett, und Unterstreichung werden individuell nach dem Einfügen der Hyperlinks zurückgesetzt. Damit sich die vielen identischen Zeilen im Code nicht mehrfach wiederholen, werden die Hyperlinks jetzt in der Sub-Routine "MakeHyperlink" erstellt
7. noch was zusätzliches, wäre es möglich, dass in allen Tabellen außer alle und Teil das fettgeschriebene nach Ausführen des Makros normal geschrieben ist?

Diese Anpassung der Formatierung hab ich in die 1. Formatierungsschleife integriert, wobei eine Prüfung auf die Blattnamen erfolgt (Groß-/Kleinschreibung beachten!!!).
Gruß
Franz
Datei mit Code: https://www.herber.de/bbs/user/77042.txt

Sub Markieren_Fett_Hyperlink() 'Alle Zeilen mit Fett-Formatierung in Spalte B in Spalte H mit "x" markieren und Hyperlink _ einfügen Dim objWb As Workbook, objWks As Worksheet Dim lngZeile As Long, lngZeileL As Long Set objWb = ActiveWorkbook Application.ScreenUpdating = False Set objWks = objWb.Worksheets("alle") With objWks 'vorhandene markierungen in Spalte H löschen .Range(.Cells(1, 8), .Cells(.Rows.Count, 8).End(xlUp)).ClearContents lngZeileL = .Cells(.Rows.Count, 2).End(xlUp).Row For lngZeile = 1 To lngZeileL If .Cells(lngZeile, 2).Font.Bold = True Then .Cells(lngZeile, 8) = "x" Call MakeHyperlink(.Cells(lngZeile, 2)) End If Next lngZeile ' .Cells(1, 8) = "Fett" 'Spaltentitel Spalte H End With Application.ScreenUpdating = True End Sub Private Sub MakeHyperlink(objZelle As Range) Dim boolBold As Boolean With objZelle boolBold = .Font.Bold 'Fett-Formatierung der Zelle merken If .Hyperlinks.Count > 0 Then .Hyperlinks(1).Delete .Parent.Hyperlinks.Add anchor:=objZelle, Address:=.Text 'automatische Hyperlink-Formatierung rückgängig machen With .Font .Underline = xlUnderlineStyleNone .ColorIndex = 1 .Bold = boolBold End With End With End Sub

Beliebteste Forumthreads (12 Monate)

Makro zum Anpassen und kopieren von Zellen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread