Formel automatisch per Makro erzeugen
10.03.2004 09:08:58
Olaf
ich habe ein Problem wo ich einfach nicht mehr weiter weiß und meine VBA Kenntnisse noch sehr lückenhaft sind. Im Archiv habe ich auch nichts passendes gefunden.
Ich kopiere von einer Datei (Status heute.xls) (Tabellenblatt heute) in eine andere Datei (Status aktuell.xls) (Tabellenblatt aktuell) immer eine unbestimmte Anzahl von Zeilen (die Anzahl wechselt täglich). Diese Zeilen werden in der zweiten Datei automatisch per Makro an das Ende angehängt. Kopiert werden Werte die in den Spalten A, B, C, E und H stehen. Beide Dateien stehen im gleichen Ordner.
Das Makro hierzu lautet:
Option Explicit
Sub copy_Data()
Dim wb1 As Workbook, wks1 As Worksheet
Dim wb2 As Workbook, wks2 As Worksheet
Dim wbo As String
Dim wksr1 As Long, wksr2 As Long
wbo = "E:\Status\Status aktuell.xls"
Set wb1 = ActiveWorkbook 'Datei "Status heute.xls"
Set wb2 = Workbooks.Open(wbo) 'Datei "Status aktuell.xls"
Set wks1 = wb1.Worksheets("heute")
Set wks2 = wb2.Worksheets("aktuell")
'Datenbereich der kopiert werden muss auslesen
wksr1 = wks1.Cells(65536, 1).End(xlUp).Row
wks1.Rows("2:" & wksr1).Copy Destination:=wks2.Rows(Cells(65536, 1).End(xlUp).Row + 1)
wb2.Close True
wks1.Rows("2:" & wksr1).Delete
End Sub
Jetzt soll aber automatisch beim Füllen der Zeilen in Status aktuell.xls in den Spalten D und F das Ergebnis einer Formel automatisch eingetragen werden.
In Spalte D -> =WENN(C??="";"";TEXT(C??;"TT.MM.JJJJ"))
In Spalte F -> =WENN(E??="";"";TEXT(E??;"TT.MM.JJJJ"))
?? soll für die Zeilennummer stehen
Wer kann mir mit einem Makro helfen, das die Formel immer sich auch auf die entsprechende Zeile bezieht.
Bin für jede Hilfe dankbar.
Gruß
Olaf