Eingabe in Zellen erzwingen

Hallo Zusammen,
zu diesem Thema gibt es zwar schon viele Beiträge, aber ich konnte keinen finden, der mein Problem löst, daher hier nochmal.
Ich möchte per VBA in gewissen Spalten einer Zeile Eingaben erzwingen, sobald in Spalte A dieser Zeile etwas eingetragen wurde.
In der Beispieldatei ist bereit ein Coder hinterlegt, den ich gefunden habe und versucht habe anzupassen, aber leider funktioniert es nicht. Nicht wundern, ich habe hier ein bisschen rumprobiert, ohne wirklich zu verstehen warum es eigentlich nicht funktioniert.
Es handelt sich um das Tabellenblatt Vorlage.
https://www.herber.de/bbs/user/115168.xlsm
Außerdem ist im Tabellenblatt Vorlage noch ein weiterer Code zum automatischen ein- und ausblenden hinterlegt, dieser funktioniert jedoch bei mir weiterhin einwandfrei.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Columns = 1 And Target.Row > 6 Then TRow = Target.Row Call Eingabe_inSpalten Exit Sub End If If Target.Address(0, 0) = "F4" Then 'Modul1: Public TRow As Integer Sub Eingabe_inSpalten() MsgBox "Hallo " & TRow Wert = Inputbox("Bitte Wert für Spalte xx eingeben") if Wert "" THEN Cells(TRow, "xx") = Wert End Sub

Hallo Manuela,
ich habe einen dummen Denkfehler in meinem Makro macht aber nichts, den bereinigen wir!
Das Makkro in Modul1 muss geaendert werden, s.unten, denn wenn du mal schaust hat der Code funktioniert.
Er hat den Wert der Eingabe aber sicher in der Spalte "xx" abgelegt, ausserhalb deines Sichtbereichs!!
Das Problem, bei der Eingabe muss ja noch festgelegt werden in welche Spalte die Eingabe erfolgen soll?
Ich brauche den Buchstaben der Spalte! Der kann am Anfang stehen, durch Komma getrennt, oder am Ende.
Entsprechend habe ich zwei Codes geschrieben, je nachdem wie es dir besser gefaellt. Deine Entscheidung.
Wenn ein Komma im Text oder Zahl vorkommt ist auch kein Problem. Das 1. Komma definiert die Spalte!
Im Test der InputBox kannst du noch selbst angeben wo die Spalte angegeben werden muss! - (First/Last)
Das der Code nicht weiterlaeuft liegt vielleicht an Exit Sub in Target hinter dem Call Befehl.
Nimm den mal raus, und schau was dann passiert. Wir probieren solange bis es funktioniert!
mfg Piet

Sub Eingabe_inSpalten()
Dim Spalte As String, Wert As Variant
Wert = InputBox("Bitte Wert für Spalte xx eingeben" & Chr(10) & "Bitte Spalte als Buchstabe  _
angeben")
If Wert = "" Then Exit Sub
'Code für Spalte wird zuletzt angeben, mit Komma !!
Spalte = Trim(Right(Wert, Len(Wert) - InStrRev(Wert, ",")))
Wert = Trim(Left(Wert, InStrRev(Wert, ",") - 1))
Cells(TRow, Spalte) = Wert
'Ende - oder diesen Code
'Code für Spalte wird zuerst angeben, mit Komma !!
Spalte = Trim(Left(Wert, InStr(Wert, ",") - 1))
Wert = Trim(Right(Wert, Len(Wert) - InStr(Wert, ",")))
Cells(TRow, Spalte) = Wert
End Sub

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Eingabe in Zellen erzwingen

8 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)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread