Makro bockt
09.05.2006 19:30:20
udo
Deswegen hab ich die folgenden Befehle hinzugefügt.
Columns("bj:bj").Select
Selection.Delete
Vermutlich ist die Position der Befehle falsch ? Weil nach ausführen des Makros ist die Spalte 62 immer noch da. Was hab ich da falsch gemacht ?
Vielen Dank für Hilfe
Sub Spalte_kopieren_db24()
Dim objWB As Workbook
Dim strFile As String
strFile = "L:\Daten\28.xls"
On Error Resume Next
Set objWB = Workbooks("28.xls")
If objWB Is Nothing Then
Set objWB = Workbooks.Open(strFile)
End If
Err.Clear
On Error GoTo 0
Workbooks("db24.csv").Sheets(1).Cells(1, 62).EntireColumn.Copy
With objWB.Sheets(1)
If .Range("A1") = "" Then
.Range("A1").PasteSpecial Paste:=xlPasteAll
Else
.Range("IV1").End(xlToLeft).Offset(0, 1).EntireColumn.PasteSpecial Paste:=xlPasteAll
Columns("bj:bj").Select ' von Udo eingefügt
Selection.Delete ' von Udo eingefügt
End If
End With
End Sub