Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1032to1036
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1032to1036
1032to1036
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formatübernahme in mehrere Tabellenblätter

Formatübernahme in mehrere Tabellenblätter
24.12.2008 07:00:31
Anja
Hallo Allerseits!
Ich habe ein Makro, welches mir das gewünschte Format in ein anderes Tabellenblatt übernimmt. Nun möchte ich gerne das Format in mehrere Tabellenblätter gleichzeitig übernommen haben.
Zur genauen Erklärung schaut doch bitte einmal angehängte Datei an.
Danke im Vorraus.
Gruß ANJA
https://www.herber.de/bbs/user/57858.xls

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formatübernahme in mehrere Tabellenblätter
24.12.2008 07:47:58
Tino
Hallo Anja,
geht es hiermit?
Es wird die Schriftfarbe und die Zellfarbe übertragen,
dabei wird auch auf Groß und Kleinschreibung geachtet.
Sub BereichFormat()
Dim Bereich As Range, myCell As Range, rngCell As Range
Dim myTab As Worksheet
Dim A As Long

With Sheets("Gewinne")
 Set Bereich = .Range("C70", .Cells(.Rows.Count, "C").End(xlUp))
End With

With Application
 .ScreenUpdating = False

     For Each rngCell In Bereich
       If rngCell <> "" Then
            For Each myTab In ThisWorkbook.Worksheets
             If myTab.Name <> "Gewinne" Then
                
                With myTab
                  
                  For A = 1 To Application.WorksheetFunction.CountIf(.Cells, rngCell)
                    If A = 1 Then
                        Set myCell = .Cells.Find(rngCell, .Range("A1"), xlValues, 1, 1, 1, True, False)
                        myCell.Interior.Color = rngCell.Interior.Color
                        myCell.Font.Color = rngCell.Font.Color
                    Else
                        Set myCell = .Cells.FindNext(myCell)
                        myCell.Interior.Color = rngCell.Interior.Color
                        myCell.Font.Color = rngCell.Font.Color
                    End If
                  Next A
                
                End With
             
             End If
            Next myTab
       End If
      Next rngCell

 .ScreenUpdating = True
End With
End Sub


Gruß Tino

Anzeige
AW: Formatübernahme in mehrere Tabellenblätter
24.12.2008 10:44:40
Anja
Hallo Tino!
Leider klappt es nicht.
Hast Du es einmal in meiner Beispieldatei versucht.
Ich habs gemacht, leider ohne Erfolg
Gruß
ANJA
AW: Formatübernahme in mehrere Tabellenblätter
24.12.2008 11:42:28
Tino
Hallo,
habe ich, allerdings unter xl2007.
Wie gesagt, der Inhalt muss genau übereinstimmen auch die Groß und Kleinschreibung.
Ich werde es noch unter xl2003 testen, melde mich gleich nochmal.
Gruß Tino
AW: Formatübernahme in mehrere Tabellenblätter
24.12.2008 12:06:00
Tino
Hallo,
funktioniert auch unter xl2003 bei mir recht gut.
Hier Deine Beispieldatei, habe auf S1 einen Button eingebaut um das Makro zu starten.
https://www.herber.de/bbs/user/57861.xls
Gruß Tino
Anzeige
AW: Formatübernahme in mehrere Tabellenblätter
24.12.2008 12:37:52
Anja
Hallo Tino!
Bei mir dauert die Ausführung des Makro's etwa 20 Sekunden. Ist das bei Dir auch so.
Ich habe den Button in Tabellenblatt "Gewinne" einkopiert. Ich möchte es von hier aus in Gang setzen.
Er kopiert alle Formate wunderbar. Wenn ich aber die Reihenfolge der Mannschaften inclusive Formate in Gewinne ändere, wird nicht alles übernommen. Muß ich bei Änderung die Datei einmal schließen und wieder öffnen? ...noch eine kleine Frage: Wenn ich über den Zellen der Mannschaftsnamen noch Personennamen habe, werden die Formate dann auch übernommen, wenn man die Bezüge im Makro entsprechend ändert?
Gruß ANJA
Anzeige
AW: Formatübernahme in mehrere Tabellenblätter
24.12.2008 13:38:00
Tino
Hallo,
unter xl2007 war es eine Sekunde unter xl2003 bei mir etwa 5 Sekunden.
Habe den Suchbereich eingeschränkt, jetzt läuft es recht zügig auch unter xl2003.
Änderst Du nur die Farben, musst Du auch nochmal auf den Knopf drücken.
Möchtest Du dies automtisch laufen lassen,
binde dieses Makro in ein Eventmakro auf der ersten Tabelle ein,
eine Änderung der Farbe reicht aber nicht, dies löst kein Event aus.
Dies habe ich auch mit eingebaut.
https://www.herber.de/bbs/user/57863.xls
Gruß Tino
DANKE Tino
24.12.2008 13:58:00
Anja
Hallo Tino!
Jetzt klappt es auch bei mir.
Danke für Deine Mühe und Deine Zeit.
Frohe Weihnachten und guten Rutsch
Gruß
ANJA
Anzeige

301 Forumthreads zu ähnlichen Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Anzeige
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Zellen mit Werten aus darüberliegender Zelle fülle
Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
11.08.2008 08:59:25
Thread-ID: 1000713
4 Beiträge
Anzeige
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
"Bild von Excel-Kamara" variabel...
Excel-Kamara"

Hi Experten,
einen Bereich (Zellen, Bild, Grafik...) mit der Excel-Kamara "fotografieren" und in eine andere Excelmappe einfügen ist kein Problem.
Bei mir werden Ecxel_Vorlagen ausgefüllt und unter fortlaufender Dateinummer abgespeichert, zB. QR000123, QR000124, QR000125 usw. Alle Datei...
12.08.2008 10:33:28
Thread-ID: 1001116
4 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
7
2
3
1
7
8
2
3
6
11
5
5
8
15
3
7
4
4
3
2
7
4
3
4