PDA

Vollständige Version anzeigen : Paste funktion ( Copy aus externer Datei)


Weissbart
27.07.2012, 18:57
Hallo zusammen

hoffe ihr könnt mir nochmal weiterhelfen.

ich benutze diesen Code um aus der Zwischenablage daten in eine ExcelDatei einzufügen und die zweite Spalte wird dann aufgesplittet
das funktioniert auch alles soweit.

jedoch meldet sich der Debugger wenn halt nichts in der Zwischenablage ist ,weil nichts aufzusplitten ist.

wie kann man das lösen?

Sheets("Tabelle1").Activate

Dim zelle As Long
Dim shp As Object
Range("A1").Select
ActiveSheet.Paste
Columns("C:Y").Select
Selection.Delete Shift:=xlToLeft
Columns("B:B").Select
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="-", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), _
TrailingMinusNumbers:=True

Const cBereich = "A1:E1000" ' anpassen !


For Each shp In Tabelle1.Shapes
If Not Intersect(Tabelle1.Range(cBereich), shp.TopLeftCell) Is Nothing Then shp.Delete
On Error Resume Next
Next shp

With Worksheets("Daten")
.Application.EnableEvents = False
zelle = .Cells(.Rows.count, 1).End(xlUp).Row + 1
Worksheets("Tabelle1").Range("A3:G100").Copy .Range("A" & zelle)



schonmal Danke
für die mithilfe
mfg
Ron

Nepumuk
27.07.2012, 20:49
Hallo,

teste mal:

<nobr><span style="font-family:Courier New,Arial; font-size:9pt ;" ><span style="color:#000080"; >Option</span> <span style="color:#000080"; >Explicit</span><br /><br /><span style="color:#000080"; >Private</span> <span style="color:#000080"; >Declare</span> <span style="color:#000080"; >Function</span> IsClipboardFormatAvailable <span style="color:#000080"; >Lib</span> <span style="color:#800000"; >"user32.dll"</span> ( _<br />&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:#000080"; >ByVal</span> wFormat <span style="color:#000080"; >As</span> <span style="color:#000080"; >Long</span>) <span style="color:#000080"; >As</span> <span style="color:#000080"; >Long</span><br /><br /><span style="color:#000080"; >Private</span> <span style="color:#000080"; >Const</span> CF_TEXT = 1<br /><br /><b><span style="color:#000080"; >Public</span> <span style="color:#000080"; >Sub</span> Test()</b><br />&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:#000080"; >If</span> <span style="color:#000080"; >Cbool</span>(IsClipboardFormatAvailable(CF_TEXT)) <span style="color:#000080"; >Then</span><br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:#008000"; >'dein Programm</span><br />&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:#000080"; >Else</span><br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MsgBox <span style="color:#800000"; >"Nix drin"</span><br />&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:#000080"; >End</span> <span style="color:#000080"; >If</span><br /><b><span style="color:#000080"; >End</span> <span style="color:#000080"; >Sub</span></b><br /></span></nobr>

Weissbart
20.08.2012, 21:22
Danke Dir Nepumuk