Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1056to1060
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
1056to1060
1056to1060
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formatierung der Bezugszelle übernehmen

Formatierung der Bezugszelle übernehmen
05.03.2009 15:24:10
Mirko
Hallo Forum
folgendes Problem steht im Raum:
kann eine Zelle, die auf eine andere Zelle verweist (A1: =A2) auch deren Formatierungen (Zahlenformat, Farbe, Rahmen etc) mit übernehmen?
Falls es per nur per VBA gehen sollte, freue ich mich auch über ein paar Codezeilen ;-)
Vielen Dank im Voraus
Mirkos

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formatierung der Bezugszelle übernehmen
05.03.2009 15:42:31
Tino
Hallo,
wenn es so banale Formeln sind wie in Deinem Beispiel geht’s einfach.
Sind es andere Formel wird es schwieriger, eventuell müsste sogar die Formel
im VBA nachgebaut werden um zu erfahren wo das Ergebnis herkommt.
Beispiel geht nur wenn im Spalte B z. Bsp. in B1 =Z1 steht.
kommt als Code in die entsprechende Tabelle1 
Private Sub Worksheet_Calculate() 
Dim Bereich As Range, rngTemp As Range 
 
With Application 
 .ScreenUpdating = False 
 .EnableEvents = False 
 
  With Sheets("Tabelle1") 
    Set Bereich = .Columns(2) 'Spalte mit der Formel 
     
    For Each Bereich In Bereich.SpecialCells(xlCellTypeFormulas) 
        On Error Resume Next 
         Set rngTemp = Range(Replace(Bereich.FormulaLocal, "=", "")) 
        On Error GoTo 0 
         
        If Not rngTemp Is Nothing Then 
            .Range(Replace(Bereich.FormulaLocal, "=", "")).Copy 
            Bereich.PasteSpecial xlPasteFormats 
        End If 
     
    Next Bereich 
   End With 
 .CutCopyMode = False 
 .ScreenUpdating = True 
 .EnableEvents = True 
End With 
End Sub


Gruß Tino

Anzeige
AW: Formatierung der Bezugszelle übernehmen
05.03.2009 15:55:34
Mirko
Hi Tino
Erst mal vielen Dank! Werde es gleich mal ausprobieren...
in "echt" sind die zwei Bereiche auf unterschiedlichen Blättern in unterschiedlichen Mappen, also
Original: [Mappe1]Tabelle1!A1
Kopie: [Mappe2]Tabelle1!A1
Werde mal versuchen, das ganze anzupassen, aber nu is erst mal Feierabend und ich nehme es mit nach Hause, in "Ruhe" weiterbasteln ;-)
Vielen Dank nochmal
Mirkos
AW: Formatierung der Bezugszelle übernehmen
05.03.2009 16:00:24
selli
hallo mirko,
um welche formatierungen geht es dir denn genau?
du könntest auch aus der steuerelemente symbolleiste ein bezeichnungsfeld nehmen und in der bearbeitungszeile den verweis auf deine originalzelle eintragen.
das bezeichnungsfeld übernimmt schriftfarbe, zellfarbe, schriftgröße, schriftart usw.
gruß selli
Anzeige

116 Forumthreads zu ähnlichen Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Anzeige
Zellverweis mit Formatierung
Link

Hallo Excel-Profis,
ich brauch Eure Hilfe für ein Problem.
Habe in einem Tabellenblatt pro Monat einen Zellbereich, der mit verschiedenen Terminen von unterschiedlichen Personen gefüllt wird. Je nach Kategorie haben die Termine eine bestimmte Zellformatierung.
In einem zweiten Tabel...
27.05.2009 10:57:50
Thread-ID: 1077650
3 Beiträge
Formatierung einer Zelle
happynes0815

Hallo Forum,
Wie kann ich folgende Zellenformatierung über VBA ändern ?
Im Moment habe ich in einer Zelle die Daten 1-1/2" oder 3/4" (die Zelle als Text formatiert)
am Ende möcht ich aber die Darstellung ohne " Symbole also 1-1/2 oder 3/4 (die Zelle als Zahl formatiert)
Dieser S...
05.06.2009 12:19:12
Thread-ID: 1079427
3 Beiträge
Anzeige
Zahlenformat abhängig von anderer Zelle
anderer

Hallo
ich habe eine mehrsprachige Tabelle erstellt, in der in einer Listbox u.a. die Währung ausgewählt werden kann. Die Währungsauswahl wir in einer einzelnen Zelle gespeichert.
Ich möchte das Zahlenformat in Abhängkeit des gewählten Währungswertes darstellen.
Bsp:
Zelle 1 = 25...
27.11.2009 11:00:49
Thread-ID: 1120482
3 Beiträge
Hauptteil einer Zelle übernehmen
Harald

Hallo zusammen,
leider konnte ich die Überschrift nicht richtig deklarieren. Im Prinzip kann ich es auch nur mit einem Beispiel erklären.
In Spalte A und einigen viele Zeilen ist folgender Inhalt:
A1= "A1" B1= "1"
A2= "A2" B1= "2"
A3= "N1" B1= "3"
A1= "A4" B1...
02.12.2009 15:31:13
Thread-ID: 1121433
3 Beiträge
Abweichende Formatierungen in einer Zelle
Pfannen-Meister

Guten Morgen,
ich bräuchte Rat bei einem Formatierungsproblem in Excel:
Ich habe eine lange Liste an Zellen (A1:A280) , bei denen jeweils der erste Buchstabe der Zelle anders formatiert werden soll als der restliche Zelleninhalt.
Dies kann man zwar manuell machen, ist bei dieser...
01.02.2010 10:25:47
Thread-ID: 1134730
5 Beiträge
Wert auslesen und übernehmen
GEGA

Hallo zusammen,
kann mir jemand helfen bei diesem Makroteil:
ich möchte die Webabfrage in Excel:
(Daten - externe Daten importieren - neue Webabfrage):
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://sellercentral-europe.amazon.com/gp/orders-v2/details?ie=UTF8&a...
18.04.2010 17:00:39
Thread-ID: 1152440
3 Beiträge
Zellwert in Register und Kopfzeile übernehmen
Sigi

Hallo Leute!
Ich habe in der Zelle C2 den Wert 1AHH stehen. Diese Eingabe soll automatisch das Register von Tabelle1 in 1AHH umbenennen. Gibt es dafür eine einfache Lösung (ev. VBA)
Danke für Eure Hilfestellung
Sigi
06.02.2011 21:19:09
Thread-ID: 1199354
2 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
7
5
2
2
2
2
2
4
2
1
1
5
2
2
4
4
2
10
8
8
10
6
16
1
3