unsichtbaren Apostroph erzeugen

Forumthread: unsichtbaren Apostroph erzeugen

08.10.2014 16:30:11

Karlheinz

Erzeugung unsichtbarer Apostroph
Ein Schulverwaltungsprogramm (SVP) zur Erstellung von Zeugnissen erlaubt einen Im-/Export von Noten über EXCEL.
Habe nun ein EXCEL-Formular zur Notenerfassung für meine Kollegen erstellt
Der Haken dabei ist, dass beim exportiertes Excel Sheet aus SVP Zellen entstehen, die zwar die Formatierung Standard haben. Gibt man dort einen Wert von Hand ein wird nur in der Formelzeile ein Apostroph vorangestellt (sind in der Zelle nicht vorhanden, sondern nur in dem Formelfeld sichtbar!?)
Überträgt man nun die Noten per copy and paste von meinem erstellten EXCEL-Notenformular in das SVP-EXCEL-Formular, so werden zwar in dieses alle Noten reinkopiert, beim Import in SVP nicht alle Noten vollständig übernommen
Habe alles schon folgendes versucht:
Formatierung des SVP-EXCEL-Formular in das Format Text, Zahl
Mit Verkettung automatisch ein Apostroph erzeugt (diese sind jedoch in der Zelle sichtbar) und hat beim Import in SVP nicht funktioniert
Gibt man die Werte von Hand ein dann werden alle Noten korrekt übernommen, aber das will ich ja gerade nicht.
Bin schon verzweifelt, hat jemand eine Idee und kann mir helfen?
Vielen Dank schon mal, bin für jeden Tipp dankbar

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: unsichtbaren Apostroph erzeugen

08.10.2014 17:16:14

Crazy
AW: unsichtbaren Apostroph erzeugen

08.10.2014 17:26:13

fcs
Das kann man in mehreren Foren lesen! owT

09.10.2014 05:20:08

Luc:-?

AW: unsichtbaren Apostroph erzeugen

08.10.2014 17:26:13

fcs

Hallo Karlheinz,
da haben sich die SVP-Programmierer aber was ganz feines ausgedacht, dass sie das Text-Codezeichen von Excel irgendwie auswerten.
Copy and Paste ist hier dann nicht möglich.
Die Inhalte der zu kopierenden Zellen aus deiner Datei müssen dann einzeln in das SVP-Excelformular eingetragen werden. Dabei muss das Hochkamma vorangestellt werden. Dies kann man per Makro realisieren.
Gruß
Franz

Sub Noten_nach_SVP_Formular()
Dim rngCopy As Range, Zeile As Long, Spalte As Long
Dim wksSVP_Formular As Worksheet, rngZiel As Range
On Error GoTo Fehler
Set rngCopy = Application.InputBox("Bitte zu kopierende Zellen wählen", _
Title:="Noten kopieren ins SVP-Formular - Zellen auswählen", _
Default:=Selection.Address, Type:=8)
Set rngZiel = Application.InputBox("Bitte Einfügezelle im SVP-Formular wählen" _
& vbLf & "(ggf. via Menü Ansicht --> Fenster wechseln)", _
Title:="Noten kopieren ins SVP-Formular - Zielzelle auswählen", Type:=8)
Set wksSVP_Formular = rngZiel.Parent
With rngZiel
For Zeile = 1 To rngCopy.Rows.Count
For Spalte = 1 To rngCopy.Columns.Count
.Cells(Zeile, Spalte).Value = "'" & rngCopy.Cells(Zeile, Spalte).Text
Next
Next
End With
wksSVP_Formular.Activate
rngZiel.Select
Fehler:
With Err
Select Case .Number
Case 0 'alles OK
Case 424 'Objekt erforderlich - tritt beim Abbrechen in Input-Boxen auf.
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
End Select
End With
End Sub

Das kann man in mehreren Foren lesen! owT

09.10.2014 05:20:08

Luc:-?

:-?

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um einen unsichtbaren Apostroph in Excel einzufügen, folge diesen Schritten:

Öffne dein Excel-Dokument: Starte Excel und öffne die Datei, in der du den Apostroph einfügen möchtest.
Zellen auswählen: Markiere die Zellen, in die du die Daten einfügen möchtest.

Makro erstellen: Gehe zu Entwicklertools > Visual Basic und füge das folgende Makro ein:

Sub Noten_nach_SVP_Formular()
    Dim rngCopy As Range, Zeile As Long, Spalte As Long
    Dim wksSVP_Formular As Worksheet, rngZiel As Range
    On Error GoTo Fehler
    Set rngCopy = Application.InputBox("Bitte zu kopierende Zellen wählen", _
    Title:="Noten kopieren ins SVP-Formular - Zellen auswählen", _
    Default:=Selection.Address, Type:=8)
    Set rngZiel = Application.InputBox("Bitte Einfügezelle im SVP-Formular wählen" _
    & vbLf & "(ggf. via Menü Ansicht --> Fenster wechseln)", _
    Title:="Noten kopieren ins SVP-Formular - Zielzelle auswählen", Type:=8)
    Set wksSVP_Formular = rngZiel.Parent
    With rngZiel
        For Zeile = 1 To rngCopy.Rows.Count
            For Spalte = 1 To rngCopy.Columns.Count
                .Cells(Zeile, Spalte).Value = "'" & rngCopy.Cells(Zeile, Spalte).Text
            Next
        Next
    End With
    wksSVP_Formular.Activate
    rngZiel.Select
Fehler:
    With Err
        Select Case .Number
            Case 0 'alles OK
            Case 424 'Objekt erforderlich - tritt beim Abbrechen in Input-Boxen auf.
            Case Else
                MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
        End Select
    End With
End Sub

Makro ausführen: Schließe den Visual Basic-Editor und führe das Makro aus, um die Noten in dein SVP-Formular zu übertragen.

Häufige Fehler und Lösungen

Problem: Apostroph wird nicht richtig eingefügt.
- Lösung: Stelle sicher, dass du die Zellen im richtigen Format (Text) formatiert hast und das Makro korrekt ausgeführt wird.
Problem: Noten werden beim Import nicht korrekt übernommen.
- Lösung: Die Noten müssen manuell in die Zellen eingegeben werden, oder das oben genannte Makro muss angepasst werden.

Alternative Methoden

Falls du keine Makros verwenden möchtest, kannst du den Apostroph manuell einfügen:

Einzelne Zelle bearbeiten: Klicke doppelt auf die Zelle und füge ein Hochkomma (') vor der Zahl ein.
Hochkomma Excel Tastenkombination: Nutze die Tastenkombination Alt + 39, um das Hochkomma zu erzeugen, während du die Zelle bearbeitest.

Praktische Beispiele

Beispiel 1: Wenn du die Zahl 10 in eine Zelle eingeben möchtest, gib '10 ein, um sicherzustellen, dass sie als Text behandelt wird.

Beispiel 2: Um mehrere Zahlen aus einer anderen Excel-Datei zu kopieren, kannst du das oben beschriebene Makro verwenden, um den Apostroph automatisch hinzuzufügen.

Tipps für Profis

Verwendung von Textformatierung: Stelle sicher, dass du das Zellenformat auf „Text“ setzt, bevor du Daten eingibst. So wird der Apostroph nicht angezeigt, wenn du die Zelle auswählst.
Datenüberprüfung: Überprüfe die importierten Daten regelmäßig, um sicherzustellen, dass der Apostroph korrekt hinzugefügt wurde und die Noten ordnungsgemäß übernommen werden.

FAQ: Häufige Fragen

1. Wie kann ich einen Apostroph in Excel einfügen?
Du kannst einen Apostroph vor einer Zahl hinzufügen, indem du ihn einfach vor der Zahl eingibst, z. B. '10.

2. Warum wird der Apostroph in Excel nicht angezeigt?
Der Apostroph wird nicht in der Zelle angezeigt, sondern ist nur in der Formelzeile sichtbar. Dies ist das gewünschte Verhalten, wenn du sicherstellen möchtest, dass Excel den Wert als Text behandelt.

Beliebteste Forumthreads (12 Monate)