Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
908to912
908to912
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

code kopieren

Forumthread: code kopieren

code kopieren
18.09.2007 12:53:00
schnierle
hallo zusammen,
gibt es eine möglichkeit, ein kontrollkästchen mit einem code zu hinterlegen und dann dieses kästchen zu kopieren mit demselben code. also, ich habe ein kontrollkästchen bei dem ich die position des mauszeigers bestimmen lasse. nun würde ich gern dieses kästchen beliebig oft kopieren und alles sollen dasselbe tun wie das originalkästchen, geht so etwas?

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: code kopieren
18.09.2007 13:39:00
Renee
Hi Schnierle,
geht so etwas JA, aber bei VBA nur mit Recorder eher abzuraten.
Einen Ansatz hast du im letzten Thread mit meiner Beispieldatei bekommen. Da reagieren all Kontrollkästchen auf das gleiche Makro!
GreetZ Renee

AW: code kopieren
18.09.2007 14:14:00
schnierle
hallo renee,
danke für die schnelle antwort. stimmt, bei deinem beispiel funktioniert das mit allen kontrollkästchen.
könntest du mir erklären was du genau im unteren code machst damit ich meinen code anpassen kann? mit freundlichem gruß

Sub KlickediKlack()
Static dPosLeft1 As Double
If Not bAktiv Then Exit Sub
ActiveSheet.Shapes(Application.Caller).Select
If dPosTop1 = 0 Then
dPosTop1 = Selection.Top + Selection.Height / 2
dPosLeft1 = Selection.Left + Selection.Width / 2
Else
With ActiveSheet.Shapes.AddLine(dPosLeft1, dPosTop1, _
Selection.Left + Selection.Width / 2, _
Selection.Top + Selection.Height / 2).Line
.ForeColor.SchemeColor = 6
End With
dPosTop1 = 0
End If
If Selection.Value = xlOn Then
Selection.Value = xlOff
Else
Selection.Value = xlOn
End If
ActiveCell.Activate
End Sub


Anzeige
AW: code kopieren
18.09.2007 14:21:00
Renee
Hi Schnierle,
Im Code werden abwechslungsweise, die Mittelpunkte von 2 Kontrollkästchen bestimmt. Beim Klicken des 2ten wird ein Linie von dessen Mittelpunkt zum Mittelpunkt des ersten gezogen.
Der Name des Kontrollkästchen ist der Rückgabewert der Funktion Application.Caller.
GreetZ Renee

Anzeige
AW: code kopieren
18.09.2007 14:21:00
schnierle
hallo renee,
danke für die schnelle antwort. stimmt, bei deinem beispiel funktioniert das mit allen kontrollkästchen.
könntest du mir erklären was du genau im unteren code machst damit ich meinen code anpassen kann? mit freundlichem gruß

Sub KlickediKlack()
Static dPosLeft1 As Double
If Not bAktiv Then Exit Sub
ActiveSheet.Shapes(Application.Caller).Select
If dPosTop1 = 0 Then
dPosTop1 = Selection.Top + Selection.Height / 2
dPosLeft1 = Selection.Left + Selection.Width / 2
Else
With ActiveSheet.Shapes.AddLine(dPosLeft1, dPosTop1, _
Selection.Left + Selection.Width / 2, _
Selection.Top + Selection.Height / 2).Line
.ForeColor.SchemeColor = 6
End With
dPosTop1 = 0
End If
If Selection.Value = xlOn Then
Selection.Value = xlOff
Else
Selection.Value = xlOn
End If
ActiveCell.Activate
End Sub


Anzeige
AW: code kopieren
18.09.2007 14:55:27
Renee
Hoi Schnierle,
könntest du mir erklären was du genau im unteren code machst
Abwechslungsweise wird der Mittelpunkt von geklickten Kontrollkästchen berechnet. Wird das 2te Kontrollelemente gedrückt, zieht das Programm eine rote Linie von Mittelpunkt dieses Elements zum Mittelpunkt des ersten. Dann beginnt das Spiel von vorn.
Der untere Teil des Codes, wird nur dazu gebraucht, den Zustand des Kästchens gleich zu lassen wie vor dem Klicken.
Der Name des Kontrollkästchen ist durch die Funktion Application.Caller bestimmt!
GreetZ Renee

Anzeige
AW: code kopieren
18.09.2007 15:36:00
schnierle
kann es sein, dass der application.caller-befehl nicht für gruppierungen gilt? habe nämlich unterschiedlich viele kontrollkästchen mit textfeldern gruppiert und nun bekomme ich bei der zeile
activesheet.shapes(application.caller).select
die Fehlermeldung Laufzeitfehler 13, Typen unverträglich.
Wenn es wirklich nicht geht mit gruppierungen, wie kann ich die gruppierung kurzfristig aufheben, das kontrollkästchen anklicken und dann wieder gruppieren?
freundlichen gruß

Anzeige
AW: code kopieren
18.09.2007 15:46:00
Renee
Hi schnierle.
Ich hab Dir meine Meinung zu diesem Projekt schon klar mitgeteilt.
Du hast in Deiner Datei nicht die gleichen Typen von Kontrollelementen (Steuerelement aus der Toolbox nicht Kontrollkästchen aus dem Formular) wie ich im Beispiel. Mit diesen Elementen wird der Code aufwändiger und ich betrachte das vorgehen nach wie vor als nicht sinnvoll.
GreetZ Renee

Anzeige
AW: code kopieren
19.09.2007 08:40:00
schnierle
hallo renee,
obwohl ich weiss, wie du zu meinem projekt stehst, würde ich dich trotzdem gern nochmal "belästigen". Das mit den Steuerelementen aus der Toolbox klappt jetzt, also ich kann die Kästchen verbinden. Jetzt würde ich das gerne so erweitern, dass ich die Kästchen über connectoren verbinde. Hab dazu mal ein Makro aufgezeichnet mit und dann versucht in deinen code einzufügen.

Sub KlickediKlack()
Static dPosLeft1 As Double
If Not bAktiv Then Exit Sub
ActiveSheet.Shapes(Application.Caller).Select
If dPosTop1 = 0 Then
dPosTop1 = Selection.Top + Selection.Height / 2
dPosLeft1 = Selection.Left + Selection.Width / 2
checkbox1 = Selection.Caption
Else
With ActiveSheet.Shapes.AddConnector(msoConnectorElbow, dPosLeft1, dPosTop1, _
Selection.Left + Selection.Width / 2, _
Selection.Top + Selection.Height / 2).Select
Selection.ShapeRange.Flip msoFlipHorizontal
Selection.ShapeRange.Flip msoFlipVertical
.ForeColor.SchemeColor = 6
Selection.ShapeRange.ConnectorFormat.BeginConnect ActiveSheet.Shapes( _
checkbox1), 1
Selection.ShapeRange.ConnectorFormat.EndConnect ActiveSheet.Shapes( _
Selection.Caption), 2
End With
dPosTop1 = 0
End If
ActiveCell.Activate
End Sub


was mache ich hier falsch?

Anzeige
;

Forumthreads zu verwandten Themen

Code kopieren & Zeile austauschen = Absturz
Andreas

Hallo Herber Fans,
Ich habe vor einigen Wochen mich in Sachen VBA Code per VBA kopieren schlau gemacht und bin auch recht weit gekommen. Nun habe ich einen Code der die Codezeilen für eine String basierte automatische AutoFiltersuche in das CodeModule des aktiven Arbeitsblattes schreibt. In...
26.03.2009 17:04:37
Thread-ID: 1064333
3 Beiträge
VBA- Code kopieren
Ernst Dunkel

Hallo Forum
Ich habe folgendes Problem:
In der UserForm1 befinden sich eine Anzahl TextBoxen mit gleicher Prozedur. Wenn sie nur ein paar Mal vor kommen, so kopiere ich diese.
Wie müsste ich die untenstehende Prozedur abändern, wenn ich 50 TextBoxen hätte?Private Sub TextBox1_KeyPress(...
02.08.2002 20:50:03
Thread-ID: 144311
8 Beiträge
Werte mit Code kopieren
Jens

Einen schönen Feiertag wünsche ich allen im Forum und wende mich an alle Experten und Bitte um Hilfe für folgendes Problem.
Ich will aus der Tabelle "Speicher" aus der ausgewählten Zeile beginnend mit der Spalte 1 bis 5 die enthaltenen Werte kopieren und in TB "1" in Zeile 10 einfügen. Analo...
03.10.2002 12:18:44
Thread-ID: 165869
5 Beiträge
Blatt ohne Code kopieren
michel

Hallo Forum,möchte per Makro Kopien von Blättern machen, allerdings sollte der enthaltene Code dabei entweder nicht mit kopiert oder sofort gelöscht werden. Wie kann ich das denn anstellen???michel

12.02.2003 08:09:40
Thread-ID: 217693
4 Beiträge
tabellenblatt ohne code kopieren
Jens
Ich möchte ein Worksheet in eine neue Mappe kopieren. In dem zu kopierenden Sheet ist aber code enthalten. Nun kopiert excel aber den code mit. Gibt es eine möglichleit das zu verhindern? Ich wäre sehr dankbar für einen lösungsansatz. kopiert wird mit *.copy before:=...
Danke im voraus
Jens
15.05.2003 11:11:59
Thread-ID: 256769
2 Beiträge
Anzeige
Buttons mit Code kopieren
Micha
Seid gegrüßt,
wenn man buttons oder userforms etc kopiert, kopiert man lediglich das Erscheinungsbild nicht den hinterlegten Code. Kann man kopieren mit dem Code?
Ave
19.09.2003 12:25:04
Thread-ID: 312315
5 Beiträge
Code kopieren
Alex
Liebes Forum,

folgendes Problem:
ich möchte einen teil einer exceldatei in eine externe mappe kopieren, und abspeichern lassen (via makro). kopieren und abspeichern ist kein problem, aber:

ich möchte logischerweise die ABSOLUTEN werte der datei kopieren, und nicht die formeln....
30.09.2003 09:38:00
Thread-ID: 316889
4 Beiträge
Anzeige
Blätter ohne Code kopieren
Markus Klement
Hallo,

ich möchte aus einer Datei 2-3 Tabellenblätter in eine neue Arbeitsmappe kopieren. Das ist ja kein Thema, aber wie bekomme ich die Codes aus den Tabellenblättern, so dass in der neuen Mappe keine Makros enthalten sind??

Könnt Ihr mir helfen?

Danke
Markus
11.11.2003 14:29:46
Thread-ID: 336500
17 Beiträge
VBA-Code kopieren
Ralf Moser
Liebe Excelgemeinde,
ich möchte gerne VBA-Code von einem Modul in ein zuvor kopiertes Tabellenblatt kopieren. In dem zuvor kopierten Tabellenblatt ist anderer Code entfernt worden. Das Problem ist, wie bekomme ich den Code aus einem Modul von ThisWorkbook in ein Tabellenblatt von ActiveWorkbook?...
05.02.2004 08:44:16
Thread-ID: 376810
9 Beiträge
Code kopieren
Volker

Hallo allerseits,
ich hab' folgendes Problem:
Ich möchte gerne in einem neuen Worksheet den Code/die Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) [beliebiger code] End Sub erzeugen oder aus einem geöffneten workbook kopieren. Mit: ThisWorkbook.VBProject.VBCompon...
20.07.2004 11:30:28
Thread-ID: 457756
3 Beiträge
code kopieren die 2.
Volker

Hallo Leidensgenossen,
habe folgendes Problem:
Ich will den code des aktiven worksheets in alle sheets eines anderen workbooks,
hier Mappe3, kopieren.
Sub copy_code() Dim scode As String Dim i As Integer For i = 1 To Workbooks("Mappe3.xls").Sheets.Count With ThisWorkbook.VBProj...
21.07.2004 09:45:56
Thread-ID: 458337
9 Beiträge
Anzeige
Tabelle ohne dazugehörigen VBA-Code kopieren
Manfred

Hallo,
ich habe eine Tabelle, die bei Aktivierung mittels VBA mit Daten gefüllt wird. Bei Weiterverarbeitung benötige ich nur noch die Tabelle mit den Daten und nicht mehr den VBA-Code. Wenn ich die Tabelle kopiere wird der VBA-Code automatisch mitkopiert und das ist lästig. Gibt es eine Mö...
09.08.2005 12:01:47
Thread-ID: 649778
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige