@ fcs, Daten von WORD nach Excel
WORD
mein Beitrag https://www.herber.de/forum/archiv/1152to1156/t1152671.htm ist leider schon im Archiv.
Dank Deiner Hilfe konnte ich mein Vorhaben verwirklichen.
Ich habe noch ein paar Änderungen vorgenommen und dazu eine Frage. Ich will beim Speichern der Daten nach Excel eine Rückfrage.
Private Sub Adresse_in_Datenbank_Click() 'Adressdaten eintragen in Exceldatenbank
Dim xlApp As Object, xlWorkbook As Object, xlsheet As Object, letzte_Zeile As Long, Antwort As _
Integer
Const sExcelfile As String = "D:\Word-Wissen\Test_Userform\Datenbank.xls"
Set xlApp = CreateObject("Excel.Application")
Set xlWorkbook = xlApp.Workbooks.Open(FileName:=sExcelfile)
Set xlsheet = xlWorkbook.Worksheets(1)
With xlsheet
If Me.ComboBox1.ListIndex -1 Then GoTo Meldung
letzte_Zeile = .Cells.specialcells(11).Row + 1 'letzte Zelle im Bereich zzgl. 1
GoTo eintragen
Meldung:
MsgBox "Datensatz vorhanden, überschreiben?", vbYesNo
If MsgBox("Datensatz vorhanden, überschreiben?", vbYesNo) = vbYes Then
letzte_Zeile = Me.ComboBox1.ListIndex + 2
ElseIf MsgBox("Datensatz vorhanden, überschreiben?", vbYesNo) = vbNo Then
letzte_Zeile = .Cells.specialcells(11).Row + 1
End If
eintragen:
.Cells(letzte_Zeile, 1).Value = Me.ComboBox1.Text
' usw.
.Range(.Cells(2, 1), .Cells(letzte_Zeile, 9)).Sort Key1:=.Cells(2, 1), _
Order1:=1, Header:=0, OrderCustom:=1, MatchCase:=False, _
Orientation:=1
End With
xlWorkbook.Save
xlWorkbook.Close
xlApp.Quit
Set xlsheet = Nothing: Set xlWorkbook = Nothing: Set xlApp = Nothing
End Sub
Soweit funktioniert das auch. Nur stört mich folgendes:
Die Meldung öffnet sich, ich klicke auf "Ja", die Meldung öffnet sich ein zweites Mal, erst dann wird die Prozedur fortgesetzt. Klicke ich auf "Nein", öffnet sich die Meldung sogar dreimal. Gibt es da irgendeine Erklärung für?
Viele Dank!
Viele Grüße
Andre