Hallo an alle,
über einen Dialog füge ich neue Adressen in mein Tabellenblatt ein.
Sub AdrInDia2()
Dim i%, y%
With ActiveDialog
If .[dname].Text = "" Then Exit Sub
Set X = TB.Range("A:A").Find(.[dname].Text)
If X Is Nothing = False Then
i = X.Row
.[sListe].Value = i - 1
For y = 2 To .EditBoxes.Count
.EditBoxes(y).Text = TB.Cells(.[sListe].Value + 1, y)
Next y
End If
End With
Jetzt habe ich aber Adressen, die zwischen bestehende eingefügt werden sollen.
Kann man das Script so umschreiben, dass der Inhalt an die Stelle eingefügt wird, an der der Curser steht? Er steht auf alle Fälle in der Spalte A.
Es würde mir sehr helfen.
Viele Grüße Sören