Ich habe folgendes Makro:
Sub EinfügenTestXX()
'
' EinfügenTestXX Makro
'
'
Columns("G:G").Select
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Columns("G:H").Select
Selection.ColumnWidth = 44.14
Range("H3").Select
ActiveCell.FormulaR1C1 = "Comments MBUSI"
Range("G3").Select
ActiveCell.FormulaR1C1 = "Comments"
Range("G5:G3000").Select
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
Columns("G:G").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Dim Cell As Object
For Each Cell In Range("G1:G3000")
If Cell.Interior.ColorIndex = 35 Then Cell.Formula = "=IF(ISNA(VLOOKUP(A4:A10000,'C:\WINNT\Profiles\xbpv661\Desktop\projekt\Excel Idea\Finals\[Daisy_mod.xls]Tabelle1'!$B$2:$H$10000,7,FALSE)),0,VLOOKUP(A4:A10000,'C:\Excel \[test.xls]Tabelle1'!$B$2:$H$10000,7,FALSE))"
Next Cell
End Sub
Nun habe ich 2 Probleme:
1. Ich möchte, dass die Spalten IMMER als Spalte G und H eingefügt werden.
2. Das Makro läuft fast reibungslos, jedoch zum Schluss bleibt die Sanduhr. Ich habe schon ca 1 Minute gewartet, aber es ist weiter nichts passiert.
Hat jemand eine, oder noch besser zwei ;-) Idee/n?
MfG
Dominik