Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formatübernahme in mehrere Tabellenblätter

Forumthread: 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
Anzeige

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
Anzeige
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
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
Anzeige
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

Forumthreads zu verwandten 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
Arbeitsblätter zählen und Ergebnis verarbeiten
Botti

Hallo Leute,
heute habe ich wieder mal ein einfaches Problem für Euch, an dem ich aber nicht weiter kommen:
Ich möchte die Arbeitsblätter in meiner Arbeitsmappe zählen. Das ist ja kein Problem (ThisWorkbook.sheets.count).
wenn das makro mehr als ein Arbeitsblatt zählt (also das Erge...
07.08.2008 19:11:30
Thread-ID: 1000078
8 Beiträge
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
Häufigkeitslücken
Michi

Hallo,
google spuckt Zu "Excel" und "Häufigkeitslücken" lediglich 3 Treffer aus, die nicht gerade brauchbar für meine Aufgabe sind.
Ich muss für 3 Variablen eine Typisierung mit einer Häufigkeitslücke durchführen.
Hiermit bin ich fast gänzlich überfragt. Mit Quantilen hatte ich das...
11.08.2008 10:29:00
Thread-ID: 1000742
2 Beiträge
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
"Workbook"-Zugriff auf AddIn
Stefan

Hallo,
wie kann man auf eine Arbeitsmappe, z.B. auf Worksheets der Mappe zugreifen, wenn diese als AddIn gespeichert und geöffnet wird (egal ob installiert oder nicht) ?
Wo finde ich die geöffnete AddIn-Mappe, nicht in in der Workbooks-Auflistung, und wenn das AddIn nicht installiert is...
12.08.2008 21:23:00
Thread-ID: 1001316
6 Beiträge
Anzeige
mit VBA, VBA & Button's löschen
Remo

Hy Leute,
Ich möchte mit einem Button alle Button's und VBA löschen...
Geht das?
13.08.2008 08:16:00
Thread-ID: 1001365
6 Beiträge
ein Sheet "unlöschbar" machen
Daniel

Hallo zusammen!
Hätte mal wieder ne Frage!
kurz zur Info: Ich möchte ein Sheet in einer Arbeitsmappe per Mako unlöschbar, unbeschreibbar etc. machen und das ganze auch wieder aufheben....
Das mit dem unbeschreibbar geht auch ganz gut mit ThisWorkbook.Sheets(2).Protect password:="xx...
13.08.2008 11:11:00
Thread-ID: 1001439
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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