Forumbeitrag
Excel-Version des Fragestellers:
365 Business
Erfahrungslevel des Fragestellers:
Excel-Profi - VBA bescheiden
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
Als Antwort auf diesen Beitrag
AW: automatische Datenupdate erstellen
Hallo Uwe,
vielen Dank für deine Ausführungen, aber leider muss ich gestehen; ich habe keine Ahnung wovon du hier sprichst. Ich habe ja geschrieben, dass ich nicht viel von VBA verstehe und leider sagen mir die von dir aufgeführten Begriffe leider nichts.
Ich hatte dir die Tabelle mit den Prämien ( Prämien-HV-Tool ) und eine Musterdatei ( HV-Tool ) hochgeladen in der Annahme, dass man nachher mit Copy und Paste die einzelnen Felder aktualisieren könnte.
Nachdem ich dann deinen ersten Entwurf gesehen hatte, war nichts mit Kopieren und Austauschen der Felder, so habe ich dann die Original Datei ( HV-Tool-Original ) hochgeladen. Dort stehen die zu aktualisierenden Daten in der Blattregisterkarte „Berechnen“.
Dieses Programm wurde auch durch die Hilfe hier aus dem Forum erst möglich und ich hatte auf eine, mir verständliche Lösung gehoft.
Leider komme ich mit deiner Lösung so nicht weiter ( wahrscheinlich weil ich keine Ahnung habe ).
Ich bedanke mich aber trotzdem für deine Bemühungen und werde versuchen eine andere Lösung zu finden.
mfg
Edmund