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

neuer Versuch:

ist das besser?

<FONT COLOR=#0000FF>Option</FONT>&nbsp;<FONT COLOR=#0000FF>Explicit</FONT><BR>
<BR>
<FONT COLOR=#0000FF>Sub</FONT>&nbsp;KopieErstellen()<BR>
<FONT COLOR=#008000>&#39;Kopie von Blatt "Tabelle1" erstellen</FONT><BR>
&nbsp;&nbsp;&nbsp;Sheets("Tabelle1"zwinkernder Smilie (ironisch).Activate<BR>
&nbsp;&nbsp;&nbsp;Sheets("Tabelle1"zwinkernder Smilie (ironisch).Cells.Select&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#008000>&#39; das ganze Batt selektieren</FONT><BR>
&nbsp;&nbsp;&nbsp;Selection.Copy&nbsp;Sheets("Tabelle2"zwinkernder Smilie (ironisch).Range("A1"zwinkernder Smilie (ironisch)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#008000>&#39; das Blatt "Tabelle1" wird nach "Tabelle2" gesichert</FONT><BR>
&nbsp;&nbsp;&nbsp;Range("A1"zwinkernder Smilie (ironisch).Select<BR>
<FONT COLOR=#0000FF>End</FONT>&nbsp;<FONT COLOR=#0000FF>Sub</FONT><BR>
<BR>
<FONT COLOR=#0000FF>Sub</FONT>&nbsp;InhaltLoeschen()<BR>
<FONT COLOR=#008000>&#39;Inhalt von Blatt "Tabelle2" löschen</FONT><BR>
&nbsp;&nbsp;&nbsp;Sheets("Tabelle2"zwinkernder Smilie (ironisch).Activate<BR>
&nbsp;&nbsp;&nbsp;Sheets("Tabelle2"zwinkernder Smilie (ironisch).Cells.Select&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#008000>&#39; das ganze Batt selektieren</FONT><BR>
&nbsp;&nbsp;&nbsp;Selection.ClearContents&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#008000>&#39; Inhalt von Blatt "Tabelle2" löschen</FONT><BR>
&nbsp;&nbsp;&nbsp;Range("A1"zwinkernder Smilie (ironisch).Select<BR>
&nbsp;&nbsp;&nbsp;Sheets("Tabelle1"zwinkernder Smilie (ironisch).Activate<BR>
&nbsp;&nbsp;&nbsp;Range("A1"zwinkernder Smilie (ironisch).Select<BR>
<FONT COLOR=#0000FF>End</FONT>&nbsp;<FONT COLOR=#0000FF>Sub</FONT><BR>
<BR>
<FONT COLOR=#0000FF>Sub</FONT>&nbsp;KopieZur&uuml;ck()<BR>
<FONT COLOR=#008000>&#39;Kopie von Blatt "Tabelle2" auf Blatt "Tabelle1" zurück</FONT><BR>
&nbsp;&nbsp;&nbsp;Sheets("Tabelle2"zwinkernder Smilie (ironisch).Activate<BR>
&nbsp;&nbsp;&nbsp;Sheets("Tabelle2"zwinkernder Smilie (ironisch).Cells.Select&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#008000>&#39; das ganze Batt selektieren</FONT><BR>
&nbsp;&nbsp;&nbsp;Selection.Copy&nbsp;Sheets("Tabelle1"zwinkernder Smilie (ironisch).Range("A1"zwinkernder Smilie (ironisch)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#008000>&#39; das Blatt "Tabelle2" wird nach "Tabelle1" übertragen</FONT><BR>
&nbsp;&nbsp;&nbsp;Range("A1"zwinkernder Smilie (ironisch).Select<BR>
<FONT COLOR=#0000FF>End</FONT>&nbsp;<FONT COLOR=#0000FF>Sub</FONT><BR>

<FONT COLOR=#0000FF>Option</FONT>&nbsp;<FONT COLOR=#0000FF>Explicit</FONT><BR>
<BR>
<FONT COLOR=#0000FF>Private</FONT>&nbsp;<FONT COLOR=#0000FF>Sub</FONT>&nbsp;CommandButton1_Click()<BR>
<FONT COLOR=#0000FF>Dim</FONT>&nbsp;var&nbsp;<FONT COLOR=#0000FF>As</FONT>&nbsp;<FONT COLOR=#0000FF>Variant</FONT><BR>
&nbsp;&nbsp;&nbsp;CommandButton1.Caption&nbsp;=&nbsp;"Kopie&nbsp;erstellen"&nbsp;&amp;&nbsp;Chr(10)&nbsp;&amp;&nbsp;"Berechnung&nbsp;starten"<BR>
&nbsp;&nbsp;&nbsp;InhaltLoeschen<BR>
&nbsp;&nbsp;&nbsp;KopieErstellen<BR>
&nbsp;&nbsp;&nbsp;var&nbsp;=&nbsp;MsgBox("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;!!!&nbsp;Sicherheitsabfrage&nbsp;&nbsp;&nbsp;&nbsp;!!!"&nbsp;&amp;&nbsp;Chr(10)&nbsp;&amp;&nbsp;Chr(10)&nbsp;_<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&amp;&nbsp;"ist&nbsp;die&nbsp;Berechnung&nbsp;OK,&nbsp;dann&nbsp;best&auml;tigen&nbsp;Sie&nbsp;mit&nbsp;""Ja""."&nbsp;&amp;&nbsp;Chr(10)&nbsp;_<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&amp;&nbsp;"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ACHTUNG"&nbsp;&amp;&nbsp;Chr(10)&nbsp;_<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&amp;&nbsp;"dieser&nbsp;Vorgang&nbsp;kann&nbsp;anschlie&szlig;end&nbsp;nicht&nbsp;mehr&nbsp;r&uuml;ckg&auml;ngig"&nbsp;&amp;&nbsp;Chr(10)&nbsp;_<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&amp;&nbsp;"gemacht&nbsp;werden!"&nbsp;&amp;&nbsp;Chr(10)&nbsp;&amp;&nbsp;Chr(10)&nbsp;&amp;&nbsp;Chr(10)&nbsp;_<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&amp;&nbsp;"soll&nbsp;der&nbsp;Vorgang&nbsp;zur&uuml;ckgesetzt&nbsp;werden,&nbsp;dann&nbsp;w&auml;hlen&nbsp;Sie&nbsp;""Nein"".",&nbsp;vbYesNo,&nbsp;"SICHERHEITSABFRAGE"zwinkernder Smilie (ironisch)<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>
&nbsp;&nbsp;&nbsp;<FONT COLOR=#0000FF>If</FONT>&nbsp;var&nbsp;=&nbsp;7&nbsp;<FONT COLOR=#0000FF>Then</FONT>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#008000>&#39; es wurde "NEIN" gewählt</FONT><BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;KopieZur&uuml;ck<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#008000>&#39;</FONT><BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#008000>&#39;           Hier könnte jetzt auch noch das Makro</FONT><BR>
<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#008000>&#39;InhaltLoeschen</FONT><BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#008000>&#39;           aufgerufen werden, das die Kopie löscht,</FONT><BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#008000>&#39;           denn der Urzustand wurde ja wieder hergestellt.</FONT><BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#008000>&#39;</FONT><BR>
&nbsp;&nbsp;&nbsp;<FONT COLOR=#0000FF>End</FONT>&nbsp;<FONT COLOR=#0000FF>If</FONT><BR>
&nbsp;&nbsp;&nbsp;<FONT COLOR=#0000FF>If</FONT>&nbsp;var&nbsp;=&nbsp;6&nbsp;<FONT COLOR=#0000FF>Then</FONT>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#008000>&#39; es wurde "JA" gewählt</FONT><BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#008000>&#39;</FONT><BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#008000>&#39;           Die Aktion wurde hier auf Kommentar gesetzt.</FONT><BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#008000>&#39;           Um sie zu aktivieren muß das Hochkomma entfernt werden.</FONT><BR>
<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#008000>&#39;InhaltLoeschen</FONT><BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#008000>&#39;           Solange die obige Zeile inaktiv ist, kann natürlich noch auf die</FONT><BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#008000>&#39;           Sicherheitskopie zugegriffen werden.</FONT><BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#008000>&#39;           Im Code wird die vorhandene Sicherheitskopie dann erst gelöscht,</FONT><BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#008000>&#39;           wenn der Button auf dem Tabellenblatt1 erneut angeklickt wird.</FONT><BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=#008000>&#39;</FONT><BR>
&nbsp;&nbsp;&nbsp;<FONT COLOR=#0000FF>End</FONT>&nbsp;<FONT COLOR=#0000FF>If</FONT><BR>
<FONT COLOR=#0000FF>End</FONT>&nbsp;<FONT COLOR=#0000FF>Sub</FONT><BR>

wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf <img src=http://belschner.de/bilder/schulbild3.jpg width="484" height="142" alt="Gru?">

Navigate: Previous MessageNext Message
Options: ReplyQuote


Subject Views Written By Posted
Deine Einstellung passt mir nicht 1080 marose67 06/27/2011 04:31AM
Re: Deine Einstellung passt mir nicht 810 Kaptn Blaubaer 06/27/2011 04:37AM
Re: Deine Einstellung passt mir nicht 772 marose67 06/27/2011 04:43AM
Re: Deine Einstellung passt mir nicht 708 Kaptn Blaubaer 06/27/2011 04:50AM
Re: Deine Einstellung passt mir nicht 752 marose67 06/27/2011 04:53AM
Re: Deine Einstellung passt mir nicht 713 Thomas Ramel 06/27/2011 08:21AM
Re: Deine Einstellung passt mir nicht 761 Kaptn Blaubaer 06/27/2011 01:07PM
hier ein Test mit dem IE 731 Kaptn Blaubaer 06/27/2011 01:49PM
Re: hier ein Test mit dem IE 779 Thomas Ramel 06/27/2011 02:24PM
Re: hier ein Test mit dem IE 725 WillWissen 06/27/2011 02:43PM
Re: hier ein Test mit dem IE 753 Kaptn Blaubaer 06/27/2011 02:59PM
jetzt mal mit FireFox, himself 779 Kaptn Blaubaer 06/27/2011 03:12PM
Re: hier ein Test mit dem IE 764 Thomas Ramel 06/27/2011 03:16PM
wie ist die Anzeige mit dem FF? 787 Kaptn Blaubaer 06/27/2011 03:21PM
Re: wie ist die Anzeige mit dem FF? 727 marose67 06/27/2011 04:38PM
Re: wie ist die Anzeige mit dem FF? 763 Kaptn Blaubaer 06/27/2011 04:57PM
Re: Deine Einstellung passt mir nicht 804 DieterB 06/27/2011 06:14PM
Re: Deine Einstellung passt mir nicht 793 schauan 07/03/2011 01:12PM
Re: Deine Einstellung passt mir nicht - paßt sie jetzt? 746 RaBe 07/05/2011 09:17AM
jetzt paßt sie 779 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.