Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

VBA Excel- Zellformatierungen werden nach jedem neu hineinschreiben verworfen

Frage Microsoft Microsoft Office

Mitglied: aivilon

aivilon (Level 1) - Jetzt verbinden

27.02.2012, aktualisiert 17:14 Uhr, 3156 Aufrufe, 1 Kommentar

Ich hab ein Formatiertes Excel Sheet. Eine UserForm liest das ganze Sheet aus und man kann änderungen/ergänzungen vornehmen. Doch beim Speichern werden dann die Zellformatierungen verworfen und die automatischen ausrechnungen funktionieren nicht mehr. Was könnte ich tun, um dies zu verhindern?

Hallo Admins

Also ich habe mein Zeugnis in ein Excelsheet übernommen und lasse die Fallnoten mit Formeln ausrechnen. Ich möchte das Ganze nun in Form einer UserForm gestalten. Den Code für die Userform habe ich mir nun zusammengeschrieben. Er liest eigentlich nur die einzelnen Noten aus und schreibt diese in die Textformen. Nun möchte ich, dass ich änderungen vornehmen kann und danach speichern, so dass am ende die Formeln noch korrekt rechnen. Dies ist momentan nicht so. Nach dem speichern muss ich in teils leeren Feldern kurz eine Zahl hineinschreiben und wieder löschen plus zusätzlich die Noten die neu hinzugekommen sind wieder zu "Zahl" formatieren.

Ich habe nun schon versucht, dass ich von einer weiteren Arbeitsmappe die Formatierung auf das Notenblatt kopiere. Aber es rechnet danach immer noch nicht korrekt.

Hier noch einen Teil des Codes, welchen ich verwende um die Zahlen aus der Textform wieder in die Excelzellen zu schreiben:
01.
Private Sub Speichern_Click() 
02.
 
03.
 
04.
' Header mit Daten zum Schüler 
05.
Sheets("Zeugnis").Range("D5") = Lehrfirma_textf 
06.
Sheets("Zeugnis").Range("D7") = Geburtsdat_textf 
07.
Sheets("Zeugnis").Range("D8") = Beruf_textf 
08.
Sheets("Zeugnis").Range("D9") = Klasse_textf 
09.
 
10.
 
11.
' Neue Werte in Tabelle übertragen 
12.
Sheets("Zeugnis").Range("D14") = Quart1_textf 
13.
Sheets("Zeugnis").Range("E14") = Quart2_textf 
14.
Sheets("Zeugnis").Range("F14") = Quart3_textf 
15.
Sheets("Zeugnis").Range("G14") = Quart4_textf 
16.
Sheets("Zeugnis").Range("H14") = Quart5_textf 
17.
Sheets("Zeugnis").Range("I14") = Quart6_textf 
18.
Sheets("Zeugnis").Range("J14") = Quart7_textf 
19.
Sheets("Zeugnis").Range("K14") = Quart8_textf 
20.
Sheets("Zeugnis").Range("D15") = Gesellschaft_n1 
21.
Sheets("Zeugnis").Range("E15") = Gesellschaft_n2 
22.
Sheets("Zeugnis").Range("F15") = Gesellschaft_n3 
23.
Sheets("Zeugnis").Range("G15") = Gesellschaft_n4 
24.
Sheets("Zeugnis").Range("H15") = Gesellschaft_n5 
25.
Sheets("Zeugnis").Range("I15") = Gesellschaft_n6 
26.
Sheets("Zeugnis").Range("J15") = Gesellschaft_n7 
27.
Sheets("Zeugnis").Range("K15") = Gesellschaft_n8 
28.
Sheets("Zeugnis").Range("D16") = SuK_n1 
29.
Sheets("Zeugnis").Range("E16") = SuK_n2 
30.
Sheets("Zeugnis").Range("F16") = SuK_n3 
31.
Sheets("Zeugnis").Range("G16") = SuK_n4 
32.
Sheets("Zeugnis").Range("H16") = SuK_n5 
33.
Sheets("Zeugnis").Range("I16") = SuK_n6 
34.
Sheets("Zeugnis").Range("J16") = SuK_n7 
35.
Sheets("Zeugnis").Range("K16") = SuK_n8 
36.
Sheets("Zeugnis").Range("D17") = Englisch_n1 
37.
Sheets("Zeugnis").Range("E17") = Englisch_n2 
38.
Sheets("Zeugnis").Range("F17") = Englisch_n3 
39.
Sheets("Zeugnis").Range("G17") = Englisch_n4 
40.
Sheets("Zeugnis").Range("H17") = Englisch_n5 
41.
Sheets("Zeugnis").Range("I17") = Englisch_n6 
42.
Sheets("Zeugnis").Range("J17") = Englisch_n7 
43.
Sheets("Zeugnis").Range("K17") = Englisch_n8 
44.
Sheets("Zeugnis").Range("D18") = Mathi_n1 
45.
Sheets("Zeugnis").Range("E18") = Mathi_n2 
46.
Sheets("Zeugnis").Range("F18") = Mathi_n3 
47.
Sheets("Zeugnis").Range("G18") = Mathi_n4 
48.
Sheets("Zeugnis").Range("H18") = Mathi_n5
ist schwer zum erklären was in meinem sheet abläuft...demnach bitte fragen wenn ihr fragen habt ;)
unten seht ihr noch ein Bild. Das passiert übrigens mit allen automatischen rechnungen O.o


Grüsse
aivilon


1a239b7c6a4b194483ebb78c0cee65c9 - Klicke auf das Bild, um es zu vergrößern
Mitglied: aivilon
27.02.2012 um 17:40 Uhr
het sich glaub grad erledigt...hinter dem Namen der Textbox muss noch ein .Value hin

also als beispiel
mathi_n5.Value

dann gehts
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
VBA und Excel
gelöst Frage von cosmonautMicrosoft Office6 Kommentare

Ich habe eine "Aufgabe" zum Thema VBA programmieren. Dazu habe ich eine Exceltabelle, - dessen Inhalt ich nach bestimmten ...

Microsoft Office
Excel VBA UserForm1 - Daten in neue Datei kopieren
gelöst Frage von abuelitoMicrosoft Office10 Kommentare

Hallo an Alle, ich habe wieder mal ein Problem mit meiner UserForm1. Ich habe eine UserForm1 und möchte über ...

Microsoft
Excel-Datei mit VBA speichern
gelöst Frage von 116408Microsoft6 Kommentare

Guten Tag Ich habe eine Excel-Datei, in der in D4 der Kundenname und in D11 das Projekt benennt wird. ...

Basic
Excel VBA enthält
Frage von AngelsBasic

Guten Tag Ich bin ganz neu in diesem Forum und hätte eine Frage. Wie kann ich bei diesem bestehenden ...

Neue Wissensbeiträge
Erkennung und -Abwehr

Necur-Botnet soll Erpressungstrojaner Scarab massenhaft verbreiten

Information von BassFishFox vor 52 MinutenErkennung und -Abwehr

12,5 Millionen Spam-Mails aus einem Bot-Netz mit 6 Millionen Computern? Eigentlich eine schwache Leistung. Die Erpresser setzen dabei auf ...

Microsoft

Nadeldrucker-Problem unter Windows - Microsoft liefert Updates

Information von BassFishFox vor 1 StundeMicrosoft

Hat ja nicht lange gedauert. Nachdem die November-Updates für Windows 7, 8.1 und 10 zahlreiche Nadeldrucker lahmgelegt hatten, stellt ...

Linux

Limux-Ende in München: Wie ein Linux Projekt unter Ausschluss der Öffentlichkeit zerstört wurde

Information von Frank vor 8 StundenLinux14 Kommentare

Mein persönlicher Kommentar zum Thema "Limux-Ende". Die SPD-Politikerin Anne Hübner hat die Richtung von München ganz klar definiert: "Wir ...

Batch & Shell

Open Object Rexx: Eine mittlerweile fast vergessene Skriptsprache aus dem Mainframebereich

Information von Penny.Cilin vor 1 TagBatch & Shell9 Kommentare

Ich kann mich noch sehr gut an diese Skriptsprache erinnern und nutze diese auch heute ab und an noch. ...

Heiß diskutierte Inhalte
Linux
Limux-Ende in München: Wie ein Linux Projekt unter Ausschluss der Öffentlichkeit zerstört wurde
Information von FrankLinux14 Kommentare

Mein persönlicher Kommentar zum Thema "Limux-Ende". Die SPD-Politikerin Anne Hübner hat die Richtung von München ganz klar definiert: "Wir ...

Router & Routing
Zwei Netzwerke erstellen
Frage von bunteblumeRouter & Routing14 Kommentare

Hallo Zusammen, Ich möchte gerne ein backup von einem bestimmten Folder welcher auf dem Server regelmässig synchronisiert wird auf ...

Off Topic
Fachkräftemangel in Deutschland? - Talentschmiede schreibt alle 2 Tage die gleichen Stellen aus
Frage von Penny.CilinOff Topic12 Kommentare

Hallo, haben wir in Deutschland Fachkräftemangel? Die Talentschmiede schreibt gefühlt alle zwei Tage dieselben Stellen aus. Und das schon ...

Windows 10
Alle Programme mit bestimmtem Namen automatisch (per GPO) deinstallieren
gelöst Frage von lordofremixesWindows 1012 Kommentare

Hallo zusammen, gibt es eine Möglichkeit, alle Programme beginnend mit z.B. "Dell" im Namen per Script und somit per ...