vom Dialog übertragen
17.05.2004 14:27:20
walter mb
habe ein VB-Maske Excel 97 erstellt.
Darin funktioniert alles prima, nun möchte ich allerdings verschiedene Daten
mit einem Button angesteuert in eine Datenbank kopieren.
Leider funktioniert nicht.Anbei mein Makro:
Sub NW_Datenbank_Adresse_speichern()
Application.ScreenUpdating = False
On Error Resume Next
Workbooks.Open Filename:="C:\1_PKW_Verkauf\1-NW-PLK-Datenbank.xls"
Windows("1-NW-PLK-Datenbank.xls").Activate
Sheets("Datenbank ").Select
Range("a2").Select
ActiveCell.FormulaR1C1 = VKNR.Text
Range("b2").Select
ActiveCell.FormulaR1C1 = Anrede.Text 'kopiert Anrede rein
Range("c2").Select
ActiveCell.FormulaR1C1 = KuN.Text
Range("d2").Select
ActiveCell.FormulaR1C1 = Kustr.Text 'kopiert Strasse rein
Range("e2").Select
ActiveCell.FormulaR1C1 = StrNr.Text 'kopiert Haus Nr rein
Range("f2").Select
ActiveCell.FormulaR1C1 = PLZ.Text 'kopiert PLZ rein
Range("g2").Select
ActiveCell.FormulaR1C1 = KuOrt.Text 'kopiert Ort rein
Range("h2").Select
ActiveCell.FormulaR1C1 = MBVSNR.Text 'kopiert MBVSNR rein
Application.ScreenUpdating = True
End Sub
Ich müßte allerdings beim neuen speichern die nächste Zeile anspringen
können um so dann die Daten in die Zeile 3 u.s.w. zu kopieren.
Im späteren möchte ich auf die Daten zurück greifen können, also mit Button
über eine Maske holen und dann die Daten auswählen , die ich brauche.
Ich hoffe ich habe nicht zu viel gefragt ?!
Gruß Walter