Automatisch Werte eintragen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub SucheUndEintrag() Dim tSucheUndEintrag As String Dim tSuche Dim lRow As Long tSucheUndEintrag = InputBox("Geben Sie den Such- und Eintragewert" & _ "dieser Syntax ein: Suchwert;Eintrag ", _ "Suchen und Eintragen", "Suchwert;Eintrag") If InStr(tSucheUndEintrag, ";") > 1 Then tSuche = Split(tSucheUndEintrag, ";") On Error Resume Next lRow = Application.WorksheetFunction.Match(tSuche(0), _ ThisWorkbook.Sheets("Test").Range("A:A"), 0) On Error GoTo 0 If lRow = 0 Then MsgBox "Sorry [" & tSuche(0) & "] nicht gefunden!", _ vbOKOnly + vbExclamation, "Suchen" Exit Sub Else ThisWorkbook.Sheets("Test").Cells(lRow, 6).Value = tSuche(1) End If End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A100")) Is Nothing Then Dim W Select Case Target Case "A" W = 15 Case "B" W = 12 Case "C" W = 22 'Case usw. Case Else W = "?" End Select Target.Offset(0, 5) = W End If End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column > 1 Or Target.Count > 1 Then Exit Sub Dim W Select Case Target Case "A" W = 15 Case "B" W = 12 Case "C" W = 22 'Case usw. Case Else W = "?" End Select If W "" Then Target.Offset(0, 5) = W Cancel = True End If End Sub

Hallo Renée,
ich versuche nochmal mein Anliegen zu verdeutlichen, auch unter Bezugnahme auf Deinen Vorschlag.
Also:
Ich möchte gerne, dass bestimmte Daten einer großen Tabelle (mit ca. 500 Zeilen und ca. 30 Spalten), die ich täglich beziehe, durch modifzierte Daten ersetzt werden. Die modifizierten Werte sind dabei immer identisch, Tag für Tag. Wenn ich nun Deine Lösung richtig verstehe und anwende, dann muss ich manuell in die Spalte A der jeweiligen Zeile springen, doppelklicken und dann wird der Wert in Spalte Y z. B. durch den im Code hinterlegten Wert ersetzt. Wenn ich nun aber z. B. 4 Modifikationen vornehmen möchte, dann muss ich doch in Spalte A jeweils manuell die entsprechende Zeile suchen und dann Doppelklicken, oder?
Wenn dies wirklich so sein sollte, dann stellt sich mir doch die Frage, ob der Code nicht selbständig in Spalte A suchen kann und dann die entsprechenden Modifikationen in Spalte Y vornehmen kann und zwar für alle 4 Änderungswünsche nacheinander. Ich würde mir dadurch doch die manuelle Suche in Spalte A ersparen und den Doppelklick!
Nach was gesucht in A gesucht wird, also der Schlüsselwert, ist mir natürlich bekannt!
Ich hoffe, ich konnte ein wenig klarer ausdrücken, was mir vorschwebt!
Viele Grüße
Bernd

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim W Dim rC As Range If Target.Address "$A$1" Then Exit Sub Cancel = True For Each rC In Me.Range("A2:A" & Me.Range("A" & Me.Rows.Count).End(xlUp).Row) Select Case rC.Value Case "Bereich" W = 15 Case "B" W = 12 Case "C" W = 22 'Case usw. Case Else W = "?" End Select If W "" Then rC.Offset(0, 5) = W Next End Sub

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Automatisch Werte eintragen

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread