ActiveCell - Target
31.01.2018 13:34:18
Andy
folgenden Code verwende ich, um gewisse Zellen aus einer Tabelle auszulesen... Sub Termin_eintragen() 'Variablen einlesen, die benötigt werden Dim a As String Dim d As String Dim h As String If Cells(2, ActiveCell.Column) = Cells(2, 4) Then a = Cells(2, ActiveCell.Column).Value Else a = Cells(2, ActiveCell.Column).Value & Cells(2, ActiveCell.Column - 1).Value & Cells(2, _ _ ActiveCell.Column - 2).Value End If d = Cells(ActiveCell.Row, 2).Value ' Beamter 'Abfrage, ob der Dienst tatsächlich übernommen werden soll Dim Wert As Integer Wert = MsgBox("Soll ein Termin am " & a & " für " & d & " eingetragen werden?", vbYesNo _ _ Or vbQuestion Or vbDefaultButton1, "Hinweis") If Wert = vbNo Then ActiveCell.Value = "" Exit Sub Else UserForm2.Show End If End Sub
Jetzt habe ich allerdings das Problem, dass der oft den Eintrag eine Zelle weiter verwnedet, wenn ich die aktive Zelle mit dem Cursor verlasse. Wie muss ich den Code umschreiben, damit er auch tatsäöchlich in der zuerst ausgewählten Zelle den Eintrag ausliest.
Dachte daran, dass ActiveCell wohl nicht das Richtige ist und da irgendwas mit TARGET rein muss.....