PDA

Vollständige Version anzeigen : Fehler beim Kopieren


Lui80
19.03.2009, 08:45
Hallo zusammen
habe folgendes Makro aufgenommen.
Nun will ich das Makro hinter einem Button hinterlegen.
allerdings nutze ich einen button als schaltfläche funktioniert das makro.
nutze ich einen befehlschaltfläche zeigt er mir einen fehler. bei range(H2:H113).

was mache ich da falsch?
ich möchte einen befehltschaltfläche nutzen weil man die nicht verschieben kann wenn ich entwurd modus nicht aktiviere somit nicht leicht ändern kann (zumindest normalanwender)


Private Sub CommandButton2_Click()
Range("E1").Select
Sheets("Overdue Daten").Select
Range("H2:H113").Select FEHLER
Selection.Copy
Sheets("Overdue Tool").Select
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Range("E1").Select
Sheets("Overdue Daten").Select

Range("C2:C113").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Overdue Tool").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Range("E1").Select
End Sub

IngGi
19.03.2009, 11:23
Hallo Lui80,

versuch's mal so:

<div><link href="http://www.ms-office-forum.net/forum/externals/codeconv.css" rel="stylesheet"><pre><span class="TOKEN">Private Sub</span> CommandButton2_Click()
Sheets(&quot;Overdue Daten&quot;).Range(&quot;H2:H113&quot;).Copy
Sheets(&quot;Overdue Tool&quot;).Range(&quot;E2&quot;).PasteSpecial Paste:=xlPasteValues, Transpose:=True
Sheets(&quot;Overdue Daten&quot;).Range(&quot;C2:C113&quot;).Copy
Sheets(&quot;Overdue Tool&quot;).Range(&quot;E1&quot;).PasteSpecial Paste:=xlPasteValues, Transpose:=True
<span class="TOKEN">End</span> <span class="TOKEN">Sub</span>&nbsp;</pre></div>
Code eingefügt mit dem MOF Code Converter (http://www.ms-office-forum.net/forum/codeconverter.php)

Gruß Ingolf

Lui80
19.03.2009, 12:34
dank dir. funktioniert!