Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1116to1120
1116to1120
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textformate übernehmen

Forumthread: Textformate übernehmen

Textformate übernehmen
Hugo
Hallo Zäme
Kann man in Excel folgendes machen:
In Datei AAA in Tabelle 1 habe ich einen Eintrag in einer Zelle.
Beispiel: Einträge sind verschieden formatiert
------------------------------------------------------
Archiv
Dieser Eintrag ist zwingend
Durchzuführen
  • einlesen

  • abarbeiten

  • archivieren

    • ------------------------------------------------------
    Dieser Zellenwert lese (VBA-Script) ich in Tabelle 1 (Quelle) aus und in Tabelle 4 (Zusammenfassung) füge ich diesen ein. Nun möchte ich gerne, dass die Ursprungsformatierung gemäss Beispiel in der Tabelle 4 übernommen wird.
    Geht so etwas?
    Danke für einen möglichen Typ.
    Gruss
    Hugo
    Anzeige

    5
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Benutzer
    Anzeige
    siehe PasteSpecial-Methode owT
    25.11.2009 10:29:46
    Rudi
    AW: Textformate übernehmen
    25.11.2009 10:31:44
    OttoH
    Hallo Hugo,
    unter 2003 läuft'smit folgendem Code:
    Sub Makro1()
Range("A3").Select
Selection.Copy
Sheets("Tabelle3").Select
Range("A4").Select
ActiveSheet.Paste
End Sub
    Gruß OttoH
    AW: Textformate übernehmen
    26.11.2009 13:06:06
    Hugo
    Hallo OttoH
    Danke für den Hinweis. Ein direktes Kopieren nach deinem Hinweis geht super. Aber...
    ...in meinen Fall lese ich meinen Wert jeweils in eine Variable
    'Werte in Spalte C auslesen
aStrTestnr = Application.Transpose( _
Range(Cells(1, 3), Cells(x, 3)))
    Gibt es auch hierfür eine Möglichkeit die Formatierungen zu übernehmen?
    Gruss
    Hugo
    Anzeige
    AW: Textformate übernehmen
    27.11.2009 03:55:41
    fcs
    Hallo Hugo,
    verwende statt eines Arrays ein Range-Objekt für die Übertragung, dann kanst du Werte und Formate kopieren. Ansonsten müsstest du mühsehlig auch sämtliche Zell-Formate in ein mehrspaltiges Array einlesen und dann zellenweise in den Zielbereich übertragen.
    Gruß
    Franz
    Beispiel: 
    Sub CopyTranspose()
Dim rngTestNr As Range, x As Long, z As Long
'Werte in Spalte C auslesen
With Worksheets(1) 'oder auch Worksheets("TabelleXYZ")
x = .Cells(.Rows.Count, 3).End(xlUp).Row
Set rngTestNr = .Range(.Cells(1, 3), .Cells(x, 3))
End With
With Worksheets(2) 'oder auch Worksheets("TabelleABC")
z = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 'Zielzeile
rngTestNr.Copy
.Cells(z, 1).PasteSpecial Paste:=xlFormats, Transpose:=True
.Cells(z, 1).PasteSpecial Paste:=xlValues, Transpose:=True
Application.CutCopyMode = False
End With
End Sub

    Anzeige
    AW: Textformate übernehmen
    02.12.2009 09:49:44
    Hugo
    Hallo Franz
    Danke für deinen Input. Habe dies mal in einem neutralem Sheet ausprobiert. Funktioniert einwandfrei.
    Nun muss ich diese Arrays noch mit dem Range-Objekt bei mir auswechseln. Wird eine grössere Geschichte und somit will ich es langsam angehen lassen. Aber es ist genau das was ich gesucht habe.
    Gruss
    Hugo
    Anzeige
    ;

    Beliebteste Forumthreads (12 Monate)

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