Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1980to1984
1980to1984
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fette Zellen kopieren und einfügen

Forumthread: Fette Zellen kopieren und einfügen

Fette Zellen kopieren und einfügen
30.06.2024 08:59:41
Ronny
Hallo zusammen,

ich habe eine Beispieltabelle angehängt

in dieser ist eine Monatsübersicht mit fett formatierten und normalen Zellinhalten.

Aus dieser Monatsübersicht möchte die fett formatierten Zellen auf ein anderes Tabellenblatt ab der Zelle P2 kopieren und zwar alle untereinander ohne Lücken.

Kann mir da vielleicht jemand helfen?

LG Ronny

https://www.herber.de/bbs/user/170572.xlsm
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fette Zellen kopieren und einfügen
30.06.2024 09:38:19
Onur
"Fette Zellen kopieren " ?
Die Aufgabe ist etwas komplexer, als du uns verkaufen willst, denn nur die Zelle mit dem Text zu kopieren, ohne das Datun dazu mitzukopieren, bringt ja wohl nix.
AW: Fette Zellen kopieren und einfügen
30.06.2024 10:32:41
Ronny
Ich brauche wirklich nur den Zellinhalt, weil ich diesen dann anderweitig verwende.
AW: Fette Zellen kopieren und einfügen
30.06.2024 11:00:30
Alwin Weisangler
Hallo,

da die Beschreibung nicht mehr hergibt eine Lösung Ausgabe in an P2 in Zeile.
Falls es in Spalte sein soll findest du in diesem Forum den Lösungsweg ein eindimensionales Array via Resize ab P2 einzufügen. 



Sub FetteKopieren()

    Dim rng As Range, zelle As Range, i&, arr()

    Set rng = Tabelle1.UsedRange

    For Each zelle In rng

        If zelle.Cells.Font.Bold And zelle.Cells.Value > "" Then

            i = i + 1

            ReDim Preserve arr(1 To i)

            arr(i) = zelle.Cells.Value

        End If

    Next

    Tabelle2.Cells(2, 16).Resize(1, UBound(arr) - LBound(arr) + 1) = arr ' in Zeile ab P2 eifügen

End Sub


Gruß Uwe
Anzeige
AW: Fette Zellen kopieren und einfügen
30.06.2024 13:26:30
Onur
Bei dir wedelt der Schwanz mit dem Hund.
Anstatt dem Text z.B einfach ein "*" oder ein Leerzeichen vorne einzufügen, machst du den Text fett.
Mit fettem Text kann aber Excel nix anfangen, da das eine Formatierung ist und nix am Text ändert. Also kannst du das nicht weiterverarbeiten oder danach suchen.
Mit dem vorangestellten Zeichen könntest du aber eine bedingte Formatierung (fett) einfügen UND ganz einfach (auch ohne VBA) danach filtern/suchen)
Anzeige
AW: Fette Zellen kopieren und einfügen
30.06.2024 16:13:12
Ronny
Ich kann dir absolut nicht folgen, was du mit deinem Post sagen möchtest, aber da die anderen mir geholfen haben, das Makro funktioniert und ich die Daten auch für mich weiter nutzen kann, finde ich es schon sehr komisch von dir was du dort schreibst.

AW: Fette Zellen kopieren und einfügen
30.06.2024 16:19:16
Onur
"Ich kann dir absolut nicht folgen" - Das habe ich mir schon gedacht..
Alles ok, wollte dich nicht überfordern.
Anzeige
AW: Fette Zellen kopieren und einfügen
30.06.2024 11:18:43
Ronny
Hallo Uwe. Ja es sollte wenn möglich untereinander in Spalte P Untereinander.

Und was ich vergessen habe, ist wäre es möglich die range vorher immer auszuwählen?

Weil alle Monate auf dem selben Tabellenblatt stehen. Also so das ich das Makro per Button auswähle und ich dann noch nach der Range gefragt werde und diese auswählen kann?
Anzeige
AW: Fette Zellen kopieren und einfügen
30.06.2024 11:34:34
Alwin Weisangler
Tabelle2.Cells(2, 16) ist ein Range und kann als solcher einer Variable zugewiesen werden.

Man kann, wenn nur die Ausgabe auf ein Tabellenblatt veränderbar sein soll, das Tabellenblatt einer Variable zuweisen und die Variable entsprechend füllen und die Zelle via & Cells(2, 16) konstant anfügen.

in Spalte ausgeben wäre so: 


Tabelle2.Cells(2, 16).Resize(UBound(arr) - LBound(arr) + 1, 1) = WorksheetFunction.Transpose(arr)

Kann man hier im Forum auch danach recherchieren.

Gruß Uwe
Anzeige
AW: Fette Zellen kopieren und einfügen
30.06.2024 11:43:31
Ronny
Hallo Uwe,

vielen Dank schon mal.

Die Ausgabe soll immer auf dem selben Tabellenblatt sein und and er selben Stelle, aber die Range aus der die Fett formatierten Werte kommen ändert sich jeden Monat. Diese sollte wenn möglich jeden Monat neu ausgewählt werden können.

Gruß Ronny
Anzeige
AW: Fette Zellen kopieren und einfügen
30.06.2024 12:16:44
Alwin Weisangler
dann änderst du den Range in dieser Befehlszeile: 


Set rng = Tabelle1.UsedRange

statt .UsedRange dann .Range(Bereich)

Übergib dieser Variable Bereich dann die Bereichsgrenzen - beispielhaft "A1:C20"

Man kann auch den Namensmanger bemühen und den Range einen Namen verpassen z.B. rng_Bereich und damit den Range zuweisen:
Set rng = Tabelle1.Range("rng_Bereich")

Du siehst es gibt diverse Wege dazu.

Gruß Uwe
Anzeige
AW: Fette Zellen kopieren und einfügen
30.06.2024 12:20:02
GerdL
Moin

? 

Sub FetteKopieren()

    Dim rng As Range, zelle As Range, i&, arr()

    

    Set rng = Application.InputBox("Wähle aus", Type:=8)

    

    For Each zelle In rng

    

        If zelle.Cells.Font.Bold And zelle.Cells.Value > "" Then

            i = i + 1

            ReDim Preserve arr(1 To i)

            arr(i) = zelle.Cells.Value

        End If

    Next

    Tabelle2.Cells(2, 16).Resize(UBound(arr) - LBound(arr) + 1) = Application.Transpose(arr) ' in Zeile ab P2 eifügen

End Sub

Gruß Gerd




Anzeige
AW: Fette Zellen kopieren und einfügen
30.06.2024 12:27:33
Ronny
Vielen Dank euch beiden, Klappt perfekt.

Einen schönen Sonntag euch noch
;

Forumthreads zu verwandten Themen

alle Dateien und Verknüpfungen aus Ordner löschen
marcl

Guten Morgen Forumsgemeinde,
ich habe zwar ein Makro von Ramses, welches alle Dateien eines Ordners auflistet und löscht. Aber die Verknüpfungen findet es leider nicht. Hatte naiv mal mit "*.lnk" als Dateiname versucht. Aber das funzt net.
Wer kann mir weiter helfen?
Danke und Gruß...
26.11.2008 06:40:00
Thread-ID: 1027911
3 Beiträge
Anzeige
Zeilen einfügen und kopieren
bug-i

Hallo, ich brauche eure Hilfe:
Folgende Beispietabelle:
Merkmal - Text
1 - Text1
3 - Text2
1 - Text3
1 - Text4
2 - Text5
1 - Text6
Ich möchte jetzt für jede Zeile, die ein Merkmal größer als 1 hat danach eine neue Zeile mit gleichem Inhalt einfügen.
Die T...
05.08.2009 10:11:39
Thread-ID: 1093668
2 Beiträge
Anzeige
Excel Dateien aus Ordner auslesen (Fragebogen)
Bene

Hallo zusammen!
Ich schreibe momentan an meiner Diplomarbeit und brauche in dem Zusammenhang unbedingt eure Unterstützung in Sachen VBA-Programmierung.
Ich habe nicht wirklich Ahnung von VBA und bastel jetzt schon seit einer ganzen Weile an meinem Problem herum. Im Forum konnte ich lei...
05.08.2009 11:36:40
Thread-ID: 1093693
6 Beiträge
Anzeige
Zeilen variabel oft kopieren und einfügen
Bernd

Hallo Forum,
ich tüftle seit einiger Zeit vergebens an folgender Aufgabe und bitte um eure Hilfe:
Ich habe in einer Mappe zwei Sheets: Tab1 und Tab2
In Tab1 importiere ich Daten mit Hilfe des Textkonvertierungsassistenten aus einer txt-Datei.
Die txt-Datei kann unterschiedlich v...
03.09.2009 17:41:35
Thread-ID: 1100389
9 Beiträge
Anzeige
aus E:E kopieren und am Ende von D:D einfügen
D:D

Hallo,
Ich habe in meiner Adressliste in D:D Straßennamen stehen, und in E:E die Hausnummern. Ich möchte die Hausnummern aber direkt hinter den Straßennamen in die selbe Zelle einfügen.
Da es sehr viele Zeilen sind möchte ich es ungern manuell machen.
Wie würdet Ihr das machen?
19.11.2009 11:46:47
Thread-ID: 1118567
3 Beiträge
Excel Dateien per Makro aus Ordner zusammenfügen
Vera

Hallo allerseits,
ich suche ein Makro, welches alle xls-Dateien (jede Datei enthält nur ein Arbeitsblatt) zu einer Arbeitsmappe zusammen führt.
Beispiel: Order c:\test enthält 5 xls.-Dateien, diese sollen zu einer Master.xls mit 5 "Reitern" zusammengeführt werden. Cpoy & paste würde...
29.11.2009 19:04:54
Thread-ID: 1120829
2 Beiträge
Benutzten Bereich kopieren und einfügen
Babs

Hallo zusammen,
ich bin noch neu hier und konnte leider auf das thema von Dieter
"Benutzten Bereich kopieren von Dieter vom 19.10.2009 17:43:03 " keinen Beitrag schreiben, geht irgendwie nicht !
wenn es doch möglich ist da was reinzuschreiben dann würd ich gerne wissen wie ?
M...
07.12.2009 09:42:46
Thread-ID: 1122130
15 Beiträge
Makro kopieren und einfügen fehlerhaft
Chris

Hallo und ein frohes Neues zusammen!
Letzte Woche habe ich folgenden Beitrag geschrieben (https://www.herber.de/forum/archiv/1124to1128/t1126236.htm) und von Jürgen eine schon recht gute Antwort bekommen. Er hat mir folgendes File mit einem Makro bereitgestellt, das glaube ich relativ nahe...
04.01.2010 09:49:22
Thread-ID: 1126968
12 Beiträge
kopieren und einfügen per makro
rolf

hallo
ich möchte in tabelle 1 - zeile a3 bis a79 kopieren und dann
in tabelle 2 per makro in die erste freie zeile einfügen.
spalte b wird immer ausgefüllt.
wäre dankbar für eure hilfe.
mfg rolf
10.01.2010 22:49:24
Thread-ID: 1128765
11 Beiträge
TXT - Dateien aus Verz. kopieren und zus.fassen
brend

Hallo Freaks,
ich habe x - viele Dateien im txt - Format (Text tabstopp-getrennt) in einem Verzeichnis liegen. Alle Dateien weisen den gleichen Aufbau auf (Format, Zeilen, Spalten). Der einzige Unterschied ist der Zellinhalt (Wert) und der Dateiname.
konkretes Beispiel:
https://www....
27.01.2010 19:15:49
Thread-ID: 1133479
4 Beiträge
Zeile einfügen und kopieren
Matthias

Hallo zusammen,
ich habe wieder mal ein kleines Problem und komme nicht ganz zurecht damit.
Ich habe ein Tabellenblatt mit z.Zt. knapp 4000 Einträgen (Zeilen) und mehreren Spalten (Spalten A bis AB).
Jetzt will ich irgendwo eine neue Zeile einfügen, dabei sollte der Inhalt von einig...
12.03.2010 07:32:25
Thread-ID: 1145269
10 Beiträge
Kopieren und einfügen wenn beschrieben dann rechts
Eva-Maria

Hallo zusammen,
Ich brauche wiedermal eure hilfe. Ich habe zwei Tabellenblätter und möchte vom "CHF" Tabellenblatt Daten in das "Jan" Tabellenblatt kopieren. Wenn nun das Jan Tabellenblatt in dieser Zeile schon etwas eingetragen hat dann sollte es eine Zeile nach rechts eintragen. Wie muss...
24.06.2010 07:37:58
Thread-ID: 1163793
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige