Technik :  Clever-Forum.eu - nur zum Testen The fastest message board... ever.
Alle Probleme und Wünsche rund um die Forumstechnik 
Deine Einstellung passt mir nicht
Posted by: marose67 ()
Date: June 27, 2011 04:31AM

Hallo,

hier noch einmal der VB Code zum Lesen für Leute die mit Firefox unterwegs sind. Seltsame Angelegenheit - mit dem IE wird der Code richtig angezeigt.

In ein Modul:

<pre><span style="font-family=MS Sans Serif,Arial; font-size=10pt"; ><span style="color:#000080"; >Option</span> <span style="color:#000080"; >Explicit</span>

<b><span style="color:#000080"; >Sub</span> KopieErstellen&#40;&#41;</b>
<span style="color:#008000"; >'Kopie von Blatt &#34;Tabelle1&#34; erstellen</span>
Sheets&#40;<span style="color:#800000"; >&#34;Tabelle1&#34;</span>&#41;.Activate
Sheets&#40;<span style="color:#800000"; >&#34;Tabelle1&#34;</span>&#41;.Cells.Select <span style="color:#008000"; >' das ganze Batt selektieren</span>
Selection.Copy Sheets&#40;<span style="color:#800000"; >&#34;Tabelle2&#34;</span>&#41;.Range&#40;<span style="color:#800000"; >&#34;A1&#34;</span>&#41; <span style="color:#008000"; >' das Blatt &#34;Tabelle1&#34; wird nach &#34;Tabelle2&#34; gesichert</span>
Range&#40;<span style="color:#800000"; >&#34;A1&#34;</span>&#41;.Select
<b><span style="color:#000080"; >End</span> <span style="color:#000080"; >Sub</span></b>

<b><span style="color:#000080"; >Sub</span> InhaltLoeschen&#40;&#41;</b>
<span style="color:#008000"; >'Inhalt von Blatt &#34;Tabelle2&#34; l&ouml;schen</span>
Sheets&#40;<span style="color:#800000"; >&#34;Tabelle2&#34;</span>&#41;.Activate
Sheets&#40;<span style="color:#800000"; >&#34;Tabelle2&#34;</span>&#41;.Cells.Select <span style="color:#008000"; >' das ganze Batt selektieren</span>
Selection.ClearContents <span style="color:#008000"; >' Inhalt von Blatt &#34;Tabelle2&#34; l&ouml;schen</span>
Range&#40;<span style="color:#800000"; >&#34;A1&#34;</span>&#41;.Select
Sheets&#40;<span style="color:#800000"; >&#34;Tabelle1&#34;</span>&#41;.Activate
Range&#40;<span style="color:#800000"; >&#34;A1&#34;</span>&#41;.Select
<b><span style="color:#000080"; >End</span> <span style="color:#000080"; >Sub</span></b>

<b><span style="color:#000080"; >Sub</span> KopieZur&uuml;ck&#40;&#41;</b>
<span style="color:#008000"; >'Kopie von Blatt &#34;Tabelle2&#34; auf Blatt &#34;Tabelle1&#34; zur&uuml;ck</span>
Sheets&#40;<span style="color:#800000"; >&#34;Tabelle2&#34;</span>&#41;.Activate
Sheets&#40;<span style="color:#800000"; >&#34;Tabelle2&#34;</span>&#41;.Cells.Select <span style="color:#008000"; >' das ganze Batt selektieren</span>
Selection.Copy Sheets&#40;<span style="color:#800000"; >&#34;Tabelle1&#34;</span>&#41;.Range&#40;<span style="color:#800000"; >&#34;A1&#34;</span>&#41; <span style="color:#008000"; >' das Blatt &#34;Tabelle2&#34; wird nach &#34;Tabelle1&#34; &uuml;bertragen</span>
Range&#40;<span style="color:#800000"; >&#34;A1&#34;</span>&#41;.Select
<b><span style="color:#000080"; >End</span> <span style="color:#000080"; >Sub</span></b></span></pre>
<br><span style=" font-weight:bold;"> Code eingef&uuml;gt mit: </span> <a style ="color:#ffff00; background-color:#000080; font-weight:bold;" href="[www.haserodt.de]; target="blank">Excel Code Jeanie</a>

Hinter das Tabellenblatt:

<pre><span style="font-family=MS Sans Serif,Arial; font-size=10pt"; ><span style="color:#000080"; >Option</span> <span style="color:#000080"; >Explicit</span>

<b><span style="color:#000080"; >Private</span> <span style="color:#000080"; >Sub</span> CommandButton1_Click&#40;&#41;</b>
<span style="color:#000080"; >Dim</span> var <span style="color:#000080"; >As</span> <span style="color:#000080"; >Variant</span>
CommandButton1.Caption = <span style="color:#800000"; >&#34;Kopie erstellen&#34;</span> &#38; Chr&#40;10&#41; &#38; <span style="color:#800000"; >&#34;Berechnung starten&#34;</span>
InhaltLoeschen
KopieErstellen
var = MsgBox&#40;<span style="color:#800000"; >&#34; !!! Sicherheitsabfrage !!!&#34;</span> &#38; Chr&#40;10&#41; &#38; Chr&#40;10&#41; _
&#38; <span style="color:#800000"; >&#34;ist die Berechnung OK, dann best&auml;tigen Sie mit &#34;&#34;Ja&#34;&#34;.&#34;</span> &#38; Chr&#40;10&#41; _
&#38; <span style="color:#800000"; >&#34; ACHTUNG&#34;</span> &#38; Chr&#40;10&#41; _
&#38; <span style="color:#800000"; >&#34;dieser Vorgang kann anschlie&szlig;end nicht mehr r&uuml;ckg&auml;ngig&#34;</span> &#38; Chr&#40;10&#41; _
&#38; <span style="color:#800000"; >&#34;gemacht werden!&#34;</span> &#38; Chr&#40;10&#41; &#38; Chr&#40;10&#41; &#38; Chr&#40;10&#41; _
&#38; <span style="color:#800000"; >&#34;soll der Vorgang zur&uuml;ckgesetzt werden, dann w&auml;hlen Sie &#34;&#34;Nein&#34;&#34;.&#34;</span>, vbYesNo, <span style="color:#800000"; >&#34;SICHERHEITSABFRAGE&#34;</span>&#41;

<span style="color:#000080"; >If</span> var = 7 <span style="color:#000080"; >Then</span> <span style="color:#008000"; >' es wurde &#34;NEIN&#34; gew&auml;hlt</span>
KopieZur&uuml;ck
<span style="color:#008000"; >'</span>
<span style="color:#008000"; >' Hier k&ouml;nnte jetzt auch noch das Makro</span>

<span style="color:#008000"; >'InhaltLoeschen</span>

<span style="color:#008000"; >' aufgerufen werden, das die Kopie l&ouml;scht,</span>
<span style="color:#008000"; >' denn der Urzustand wurde ja wieder hergestellt.</span>
<span style="color:#008000"; >'</span>
<span style="color:#000080"; >End</span> <span style="color:#000080"; >If</span>
<span style="color:#000080"; >If</span> var = 6 <span style="color:#000080"; >Then</span> <span style="color:#008000"; >' es wurde &#34;JA&#34; gew&auml;hlt</span>
<span style="color:#008000"; >'</span>
<span style="color:#008000"; >' Die Aktion wurde hier auf Kommentar gesetzt.</span>
<span style="color:#008000"; >' Um sie zu aktivieren mu&szlig; das Hochkomma entfernt werden.</span>

<span style="color:#008000"; >'InhaltLoeschen</span>

<span style="color:#008000"; >' Solange die obige Zeile inaktiv ist, kann nat&uuml;rlich noch auf die</span>
<span style="color:#008000"; >' Sicherheitskopie zugegriffen werden.</span>
<span style="color:#008000"; >' Im Code wird die vorhandene Sicherheitskopie dann erst gel&ouml;scht,</span>
<span style="color:#008000"; >' wenn der Button auf dem Tabellenblatt1 erneut angeklickt wird.</span>
<span style="color:#008000"; >'</span>
<span style="color:#000080"; >End</span> <span style="color:#000080"; >If</span>
<b><span style="color:#000080"; >End</span> <span style="color:#000080"; >Sub</span></b></span></pre>
<br><span style=" font-weight:bold;"> Code eingef&uuml;gt mit: </span> <a style ="color:#ffff00; background-color:#000080; font-weight:bold;" href="[www.haserodt.de]; target="blank">Excel Code Jeanie</a>

Bei mir werden die Codes immer nebeneinander dargestellt. Man kann die VBA Codes nicht richtig nach vollziehen.

Gruß
Marcus

Ich arbeite mit Excel 2003 Professional - habe aber auch Excel 2007 Home and Student.

Wissen ist Macht - es ist aber nicht schlimm nicht alles zu wissen.
Man muss nicht alles wissen - man muss nur wissen wo es steht, oder wo man Hilfe bekommt.





Edited 2 time(s). Last edit at 06/27/2011 04:38AM by marose67.

Navigate: Previous MessageNext Message
Options: ReplyQuote


Subject Views Written By Posted
Deine Einstellung passt mir nicht 1054 marose67 06/27/2011 04:31AM
Re: Deine Einstellung passt mir nicht 799 Kaptn Blaubaer 06/27/2011 04:37AM
Re: Deine Einstellung passt mir nicht 762 marose67 06/27/2011 04:43AM
Re: Deine Einstellung passt mir nicht 695 Kaptn Blaubaer 06/27/2011 04:50AM
Re: Deine Einstellung passt mir nicht 741 marose67 06/27/2011 04:53AM
Re: Deine Einstellung passt mir nicht 703 Thomas Ramel 06/27/2011 08:21AM
Re: Deine Einstellung passt mir nicht 747 Kaptn Blaubaer 06/27/2011 01:07PM
hier ein Test mit dem IE 718 Kaptn Blaubaer 06/27/2011 01:49PM
Re: hier ein Test mit dem IE 765 Thomas Ramel 06/27/2011 02:24PM
Re: hier ein Test mit dem IE 710 WillWissen 06/27/2011 02:43PM
Re: hier ein Test mit dem IE 739 Kaptn Blaubaer 06/27/2011 02:59PM
jetzt mal mit FireFox, himself 763 Kaptn Blaubaer 06/27/2011 03:12PM
Re: hier ein Test mit dem IE 750 Thomas Ramel 06/27/2011 03:16PM
wie ist die Anzeige mit dem FF? 775 Kaptn Blaubaer 06/27/2011 03:21PM
Re: wie ist die Anzeige mit dem FF? 714 marose67 06/27/2011 04:38PM
Re: wie ist die Anzeige mit dem FF? 748 Kaptn Blaubaer 06/27/2011 04:57PM
Re: Deine Einstellung passt mir nicht 792 DieterB 06/27/2011 06:14PM
Re: Deine Einstellung passt mir nicht 781 schauan 07/03/2011 01:12PM
Re: Deine Einstellung passt mir nicht - paßt sie jetzt? 730 RaBe 07/05/2011 09:17AM
jetzt paßt sie 768 marose67 07/05/2011 08:22PM


Your Name: 
Your Email: 
Subject: 
Spam prevention:
Please, enter the code that you see below in the input field. This is for blocking bots that try to post this form automatically. If the code is hard to read, then just try to guess it right. If you enter the wrong code, a new image is created and you get another chance to enter it right.
CAPTCHA
This forum powered by Phorum.