Makro mit Daten in Sheet1 - Ausgabe in Sheet2
18.06.2014 13:21:55
Mara
bin mal wieder dabei ein Makro zusammen zu basteln. Und zwar lese ich von einem Sheet1 daten ein, diese werden in einem Externen Programm verarbeitet, und das Ergebnis soll nun in Sheet2 ausgegeben werden.
Im ursprünglichen Zustand konnte ich das ganze in einem Sheet laufen lassen. Jedoch bleibt das Makro in der jetzigen Form beim SUB "WriteSt" in der fett markierten Zeile hängen:
'*** Uebertragen in Excel ***
Sub WriteSt(St As String, BookName As String, BookSheet As String, Zeile As Integer)
If BookName = "" Then
If BookSheet = "" Then
ExcelObject.ActiveWorkbook.ActiveSheet.Cells(Zeile, Spalte) = St
Else
ExcelObject.ActiveWorkbook.Worksheets(BookSheet).Cells(Zeile, Spalte) = St
End If
Else
If BookSheet = "" Then
ExcelObject.Workbooks(BookName).ActiveSheet.Cells(Zeile, Spalte) = St
Else
ExcelObject.Workbooks(BookName).Worksheets(BookSheet).Cells(Zeile, Spalte) = St
End If
End If
End Sub
Kann mir irgendjemand erklären was hier im Code steht?
Bei Bedarf kann ich gerne das ganze Makro posten.
LG, Mara
Anzeige