Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
840to844
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Boutons

Boutons
30.01.2007 18:08:01
Huber
Hallo
Das Kopieren von Zellen in eine andere Tabelle funktioniert mit Makros problemlos. Wenn ich den Makrcode in den ClickButton Code einsetze gehts nicht mehr? Warum? Laufzeitfehler bei Range("B3").select!! Vorher geht der Range Befehl.
Hier der Code

Private Sub CommandButton1_Click()
Sheets("Tabelle1").Select
Range("C2").Select
Selection.Copy
Sheets("RSB").Select
Range("B3").Select
ActiveSheet.Paste
Sheets("Tabelle1").Select
Range("D2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("RSB").Select
Range("B4").Select
ActiveSheet.Paste
Sheets("Tabelle1").Select
End Sub

Danke

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Boutons
30.01.2007 18:26:01
IngGi
Hallo Elmar,
dein Code läßt sich folgendermaßen verkürzen:

Private Sub CommandButton1_Click()
With Sheets("Tabelle1")
   .Range("C2:D2").Copy
   .Range("B3").PasteSpecial Paste:=xlAll, Transpose:=True
End With
End Sub
Außerdem solltest du bei deinem CommandButton die Eigenschaft "TakeFocusOnClick" auf False setzen.
Gruß Ingolf
Anzeige
CommandButton
30.01.2007 18:33:56
Beate
Hallo Elmar,
Private Sub CommandButton1_Click()
Sheets("Tabelle1").Range("C2:D2").Copy
Sheets("RSB").Range("B3").PasteSpecial , Transpose:=True
Sheets("Tabelle1").Select
End Sub



Gruß,
Beate
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige