Abgleich zwischen 2 Dateien
07.07.2004 11:32:32
Markus
Ich hab leider so etwa kaum eine Ahnung von VBA, brauche aber dringend einen Button, der mir wie in diesem Beispiel die Preise updatet.
Alt ( zu updaten )
https://www.herber.de/bbs/user/8188.xls
Neu ( Datenquelle )
Die Datei https://www.herber.de/bbs/user/8189.xls wurde aus Datenschutzgründen gelöscht
Private Sub CommandButton1_Click()
Dim i As Integer
Dim x As Integer
Dim uEnd As Integer
Dim uSum As Long
uStart = CInt(InputBox("Geben Sie den Anfang ein:"))
uEnd = CInt(InputBox("Geben Sie das Ende ein:"))
For i = uStart To uEnd Step 1 'Schleife zählt aufwärts
'VERGLEICH
With Worksheets("Tabelle1")
.Activate
Next i
Ich bin für jede Hilfe dankbar