Forumbeitrag
Excel-Version des Fragestellers:
365 Business
Erfahrungslevel des Fragestellers:
Excel-Profi - VBA bescheiden
AW: automatische Datenupdate erstellen
Hallo Edmund,
du wolltest zu Anfang eine VBA-Lösung, die hast du passend zu deinen Beispieldateien bekommen.
Mit Makrorecoder kann man sich zumindest bis zu einer gewissen Grade selbst helfen und umgeht somit den Weg sich mit der Materie auseinander zu setzen.
Schade eigentlich, aber das musst du mit dir selbst ausmachen.
Gruß Uwe
Als Antwort auf diesen Beitrag
AW: automatische Datenupdate erstellen
Hallo Uwe,
habe mal das Update nach meinem Wissensstand erstellt, vielleicht nicht schön, aber es funktioniert.
Einziges Problem habe ich noch, dass das Tabellenblatt Berechnung nicht geschützt sein darf. Aber da ich es verstecke bzw. ausblende ist das das kleinste Übel.
Sub Update()
Pfad = Application.GetOpenFilename("Excel Files (*.xlsx), *.xls", , "XLSx", "Auswahl", _
False)
If TypeName(Pfad) Like "Boolean" Then
MsgBox "Keine Datei gewählt!", vbInformation
Exit Sub
Else
Application.EnableEvents = False
Workbooks.Open Pfad
vImp = Right$(Pfad, Len(Pfad) - InStrRev(Pfad, "\"))
With Workbooks(vImp).Sheets("Tabelle1")
'ActiveSheet.Unprotect Password:="Test"
Windows("HV-Tool-Orginal - Kopie.xlsm").Activate
Sheets("Eingabe").Select
Sheets("Berechnung").Visible = True
'Updatedatum
Windows("Prämien-HV-Tool.xlsx").Activate
Range("B1").Select
Selection.Copy
Windows("HV-Tool-Orginal - Kopie.xlsm").Activate
Sheets("Berechnung").Select
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Baukostenindex usw.
Windows("Prämien-HV-Tool.xlsx").Activate
Range("B5:C9").Select
Application.CutCopyMode = False
Selection.Copy
Windows("HV-Tool-Orginal - Kopie.xlsm").Activate
Sheets("Berechnung").Select
Range("B68:C72").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Mindesbeitrag
Windows("Prämien-HV-Tool.xlsx").Activate
Range("B15:C15").Select
Application.CutCopyMode = False
Selection.Copy
Windows("HV-Tool-Orginal - Kopie.xlsm").Activate
Sheets("Berechnung").Select
Range("B5:C5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Glas
Windows("Prämien-HV-Tool.xlsx").Activate
Range("D18:F19").Select
Application.CutCopyMode = False
Selection.Copy
Windows("HV-Tool-Orginal - Kopie.xlsm").Activate
Sheets("Berechnung").Select
Range("D19:F20").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'HuG
Windows("Prämien-HV-Tool.xlsx").Activate
Range("G24:I26").Select
Application.CutCopyMode = False
Selection.Copy
Windows("HV-Tool-Orginal - Kopie.xlsm").Activate
Sheets("Berechnung").Select
Range("F33:H35").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'GSH-oberirdisch
Windows("Prämien-HV-Tool.xlsx").Activate
Range("G31:H33").Select
Application.CutCopyMode = False
Selection.Copy
Windows("HV-Tool-Orginal - Kopie.xlsm").Activate
Sheets("Berechnung").Select
Range("F51:H53").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'GSH-unterirdisch
Windows("Prämien-HV-Tool.xlsx").Activate
Range("G36:H38").Select
Application.CutCopyMode = False
Selection.Copy
Windows("HV-Tool-Orginal - Kopie.xlsm").Activate
Sheets("Berechnung").Select
Range("F56:H58").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Prämien-HV-Tool.xlsx").Close
Windows("HV-Tool-Orginal - Kopie.xlsm").Activate
Sheets("Eingabe").Select
Sheets("Berechnung").Visible = False
'Schaltfläche OK
MsgBox "Prämien erfolgreich aktualisiert", vbOKOnly, "HV - Tool"
End With
End If
End Sub