copy and paste Datenblatt zu Excel

[carmelli76]

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

[spechtenhauser]

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

[carmelli76]

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.

[spechtenhauser]

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