Aus Excel-Mappe Werte in Dialog schreiben
19.05.2004 17:01:10
walter mb
hatte schon eine ordentliche Hilfe von Andre erhalten.
Brauch aber noch eine Unterstützung für das einlesen in ein
Excel-Dialog-Blatt 97.
Habe schon ein Button erstellt welches ich für das selektieren der Zeile
nutze, sobald man in der Zeile steht wird durch anklicken des Button die Zeile
makiert, die aktive Zelle dabei ist Spalte A z.b. A3.
Sub N_NW_Adresse_in_Dialog_setzen()
Application.ScreenUpdating = False
z = ActiveCell().Row
ActiveSheet.Range(Cells(z, 1), Cells(z, 8)).Select
Application.ScreenUpdating = True
End Sub
Jetzt sollen die Daten in mein Modulblatt übernommen werden, weiß leider
nicht weiter.
Das Makro anbei vom einlesen
( vonAndre!!! )
in die Datenbank, läuft prima. Makro:
Sub NW_Datenbank_Adresse_speichern()
'Application.ScreenUpdating = False
Dim NWDlg As Object '=Bearbeitungsdialog
Dim DruckDlg As Object
Dim Fname
Dim wsDatabase As Worksheet
Dim wb As Workbook
Dim intY As Integer
Dim bolOpen As Boolean
Dim VKNR As Object
Dim Kuanr As Object
Dim KuN As Object '=Bearbeitungsfeld Kundenname
Dim Kustr As Object
Dim StrNr As Object
Dim PLZ As Object
Dim KuOrt As Object
Dim MBVSNR As Object
Set NWDlg = ThisWorkbook.Sheets("NWDlg")
On Error Resume Next
Set VKNR = NWDlg.EditBoxes("VKNR")
Set Kuanr = NWDlg.EditBoxes("Anrede")
Set KuN = NWDlg.EditBoxes("KundenN")
Set Kustr = NWDlg.EditBoxes("Kundenstr")
Set StrNr = NWDlg.EditBoxes("StrNr")
Set PLZ = NWDlg.EditBoxes("PLZ")
Set KuOrt = NWDlg.EditBoxes("KundenOrt")
Set MBVSNR = NWDlg.EditBoxes("MBVSNR")
If Windows("1-NW-PLK-Datenbank.xls").Activate = False Then
MsgBox "Datei nicht da"
Workbooks.Open Filename:="C:\1_PKW_Verkauf\1-NW-PLK-Datenbank.xls"
End If
Fname = "C:\1_PKW_Verkauf\1-NW-PLK-Datenbank.xls" 'meine Änderung
Windows("1-NW-PLK-Datenbank.xls").Activate 'meine Änderung
bolOpen = False 'check for open Database-File
For Each wb In Application.Workbooks
If wb.Name = "1-NW-PLK-Datenbank.xls" Then 'mein Änderung
bolOpen = True
Exit For
End If
Next
If bolOpen = False Then Workbooks.Open Filename:=Fname
Set wsDatabase = Sheets("Datenbank")
For intY = 2 To 1000 ' freie Zelle in Database-Datenblatt finden
If wsDatabase.Cells(intY, 1) = "" Then
Exit For
End If
Next
wsDatabase.Cells(intY, 1).FormulaR1C1 = VKNR.Text 'kopiert Verkäufer Nr rein
wsDatabase.Cells(intY, 2).FormulaR1C1 = Kuanr.Text 'kopiert Anrede rein
wsDatabase.Cells(intY, 3).FormulaR1C1 = KuN.Text 'kopiert Kundenname rein
wsDatabase.Cells(intY, 4).FormulaR1C1 = Kustr.Tex 'kopiert Strasse rein
wsDatabase.Cells(intY, 5).FormulaR1C1 = StrNr.Text 'kopiert Haus Nr rein
wsDatabase.Cells(intY, 6).FormulaR1C1 = PLZ.Text 'kopiert PLZ rein
wsDatabase.Cells(intY, 7).FormulaR1C1 = KuOrt.Text 'kopiert Ort rein
wsDatabase.Cells(intY, 8).FormulaR1C1 = MBVSNR.Text 'kopiert MBVSNR rein
Application.ScreenUpdating = True
'Application.Visible = True
MsgBox "Die Daten wurden erfolgreich übertragen!"
'Application.Visible = False
End Sub
Ich bitte um Unterstützung Bitte Bitte..
Gruß Walter