carmelli76 Geschrieben 27. August 2009 Teilen Geschrieben 27. August 2009 Hallo Forum, Ich habe mir im VW ein Datenblatt zur Massenermittlung angelegt. Nun möchte ich gern den Inhalt vom Datenblatt nach Excel kopieren, was ich mit alt bekanntem Copy and Paste versuche. Das klappt aber nur bedingt, da ich plötzlich für Umlaute und andere Sonderzeichen merkwürdige Ersatzbuchstaben bekomme.... "Rasen-Grünfläche" heisst nun "Rasen-Gr?¸nfl? che" Für "m?" wird "m?" angezeigt. Wie kann man das beheben (ausser mit Suchen und Ersetzen in Excel)? LG Viele Grüsse. http://cad-treasures.blogspot.com/">http://cad-treasures.blogspot.com/ Link zu diesem Kommentar
spechtenhauser Geschrieben 31. August 2009 Teilen Geschrieben 31. August 2009 Hallo, ich hatte das gleiche Problem. Ich habe dies mittels Makro in Excel gelöst. Der Inhalt wird eingefügt, die Sonderzeichen automatisch ersetzt und automatisch formatiert. Hier der entsprechende Teil des Makros, falls dir das was hilft. Muss natürlich mit einer entsprechenden Schaltfläche verknüpft sein Private Sub importieren_Click() ClearSheet ActiveSheet.Paste If Not Range("N2").Value = "stlcontrol" Then MsgBox "ACHTUNG: Keine gültige Stückliste im Zwischenspeicher!" ClearSheet Exit Sub End If Selection.Replace What:="?¸", Replacement:="ü", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="? ", Replacement:="ä", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="â? ", Replacement:="Ü", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="â??", Replacement:="Ä", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Selection.Replace What:="§", Replacement:="ß", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Range("A9").Select End Sub Florian Brandstätter Spechtenhauser Holz- und Glasbau GmbH http://www.spechtenhauser.com ......................................... Windows XP SP3, Intel Core2 Quad Q6600 2340GHz, 4GB RAM Nvidia Quadro FX 1700, 512MB Vectorworks 2008 interiorcad Link zu diesem Kommentar
carmelli76 Geschrieben 1. September 2009 Autor Teilen Geschrieben 1. September 2009 Hallo, Danke erst einmal für die Antwort. Leider klappt das mit dem Makro bei mir irgendwie nicht... Ich habe Excel 2003 und habe mir im Entwurfsmodus einen Button gebastelt und in diesen den Code kopiert. Leider macht der nun nix. Muss ich noch etwas beachten? LG. Viele Grüsse. http://cad-treasures.blogspot.com/">http://cad-treasures.blogspot.com/ Link zu diesem Kommentar
spechtenhauser Geschrieben 3. September 2009 Teilen Geschrieben 3. September 2009 Es fehlt wohl die Funktion 'ClearSheet' im Dokument Function ClearSheet() Cells.Select Selection.ClearContents Range("A1").Select End Function Die If-Schleife musst du auch rausnehmen, da sonst nur ein Fehler kommt, wenn der Wert im Feld N2 nicht stimmt. If Not Range("N2").Value = "stlcontrol" Then MsgBox "ACHTUNG: Keine gültige Stückliste im Zwischenspeicher!" ClearSheet Exit Sub End If mfg Florian Brandstätter Spechtenhauser Holz- und Glasbau GmbH http://www.spechtenhauser.com ......................................... Windows XP SP3, Intel Core2 Quad Q6600 2340GHz, 4GB RAM Nvidia Quadro FX 1700, 512MB Vectorworks 2008 interiorcad Link zu diesem Kommentar
Empfohlene Beiträge
Erstelle ein Benutzerkonto oder melde Dich an, um zu kommentieren
Du musst ein Benutzerkonto haben, um einen Kommentar verfassen zu können
Benutzerkonto erstellen
Neues Benutzerkonto für unsere Community erstellen. Es ist einfach!
Neues Benutzerkonto erstellenAnmelden
Du hast bereits ein Benutzerkonto? Melde Dich hier an.
Jetzt anmelden