Aktualisierung per Makro
Ernst
ich würde eure Hilfe benötigen und zwar für folgende Problemstellung.
ich benutze folgendes Makro um Bereiche zu aktualisieren.
Option Explicit
Private Sub Workbook_Open()
'Hier das Makro zum Aktualisieren der Tabelle2
'erst pruefen, ob Ursprungstabelle schon geoeffnet ist
Dim WB As Workbook
Dim Usersel As String
Dim SourcePath As String
Dim SourceName As String
Dim SourceExt As String
Dim WarOffen As Boolean
'Pfad und Ursprungsdateiname setzen
SourcePath = "F:\Firma"
SourceName = "Wagenstand"
SourceExt = "Wagenstand.xls"
For Each WB In Application.Workbooks
If WB.Path = SourcePath Then
If WB.Name = SourceName & SourceExt Then
'Ursprungstabelle ist schon geoeffnet
WarOffen = True
GoTo Aktualisieren
End If
End If
Next WB
'Ursprungstabelle noch nicht geoffnet, oeffne diese
Aktualisieren:
Application.EnableEvents = False
Application.DisplayAlerts = False
Workbooks.Open Filename:="F:\Firma\Wagenstand.xls"
Set WB = ActiveWorkbook
ThisWorkbook.Sheets("liste").Range("A8:a45", "e8:e45").Value = WB.Sheets(SourceName).Range("A8: _
a45", "e8:e45"). _
Value
ThisWorkbook.Sheets("liste").Range("j8:j45", "n8:n45").Value = WB.Sheets(SourceName).Range("j8: _
j45", "n8:n45"). _
Value
ThisWorkbook.Sheets("liste").Range("s8:s45", "w8:w45").Value = WB.Sheets(SourceName).Range("s8: _
s45", "w8:w45"). _
Value
If WarOffen = False Then
Application.EnableEvents = False
Application.DisplayAlerts = False
WB.Close False
Application.DisplayAlerts = True
Application.EnableEvents = True
End If
End Sub
1.)nun möchte ich zusätzlich die Bereiche d8:d45,h8:h45,m8:m45,q8:q45,v8:v45,z8:z45 aus dem Wagenstand abgleichen.
2.)Folgende Kürzel sollten in den Zusätzlichen Bereichen berücksichtigt werden Flor,Kag,Brg,zw,Hls,Gtl,Rdh,Michl,Coc,Otg,Fav
3.)ich habe mir das so vorgestellt wird Liste geöffnet so so sollten sich in den zusätzlichen Bereichen nur die die Kürzelwerte aktualisieren, steht in den zusätzlichen Bereichen schon ein Wert so sollte keine Veränderung vorgenommen werden.
wäre für Lösungsvorschläge dankbar.
lg.Ernst