Eingabe in TextBox wiederholen

Hallo zusammen,
ich weiß nicht, ob meine Idee, welche ich umsetzen möchte überhaupt per VBA möglich ist, aber vielleicht weiß ja einer eine Lösung.
Ich habe ein Makro, welches so funktioniert, dass ich beliebig viele Zellen markiere, dann einen Rechtsklick tätige und hierdurch der unten aufgeführte Code ausgeführt wird. Es öffnet sich ein UserForm2 mit einer TextBox1 Eingabe. Neben dem unten aufgeführten Code, werden auch noch mit einem anderen Makro die ausgewählten Zellen eingefärbt, aber für mein Anliegen sollte dieses Makro nicht relevant sein.
Nun zu meiner Frage. Ist es möglich, den Code dahingehend anzupassen, dass ab einer bestimmten ausgewählten Zellenlänge er die Eingabe, welche man in die TextBox1, getätigt hat, immer wieder wiederholt?
Als Beispiel: Wähle ich bis zu 20 Zellen nebeneinander aus, soll er den Eintrag aus der TextBox1 nur einmal eintragen. Also im Prinzip, so, wie der Code aktuell im Prinzip funktioniert. Wenn jetzt aber mehr Zellen ausgwewählt werden, dann soll er den Eintrag aus der Textbox alle 21 Zellen immer wieder wiederholen, aber maximal nur so lang, wie die zuvor getätigte Auswahl der Zellen ist.
Da ich aktuell in der Arbeit bin, kann ich erst später eine Beispieldatei hochladen. Aber vielleicht ist die Anpassung des Codes ja sogar ohne Beispieldatei schon möglich.
Auf jeden Fall bedanke ich mich schon mal recht herzlich und wünsche allen, die diesen Beitrag nur lesen, frohe Weihnachtstage.
Code, welcher nach dem Rechtsklick ausgeführt wird:


'Namenseingabe
Sub FzgName_Insert()
Selection.ClearContents 'vorhandene Texteingaben löschen
Dim sTxt As String
sTxt = UserForm2.TextBox1.Value
'MsgBox sTxt
If sTxt = "" Then Exit Sub
Selection.Cells(2).Value = sTxt
Call FzgFärben(sTxt)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub FzgName_Insert() Dim sTxt As String sTxt = UserForm2.TextBox1.Value If sTxt = "" Then Exit Sub With Selection .ClearContents 'vorhandene Texteingaben löschen .Cells(2).Resize(.Rows.Count - 1, 1).Value = sTxt End With Call FzgFärben(sTxt) End Sub

So, hier ist die Datei. Ich hab sie auf das Wesentliche beschränkt und Makros, Tabellen, etc. welche nicht damit zusammenhängen entfernt.
https://www.herber.de/bbs/user/156898.xlsm
Der Sinn hinter dem Rechtsklick Makro ist der, dass links im Original verschiedene Fahrzeuge aufgeführt sind, welche in der Datum/Uhrzeit (00-24 h) dann markiert sind, woran man erkennt, wann dieses Fahrzeug nicht zur Verfügung steht, bzw. wer es wann nutzt.
Wenn man als Beispiel, Zellen markiert, dann einen Rechtsklick macht und in das TextBox1 Fenster dann 3101 eingibt, dann schreibt er diesen Wert in die zweite Zelle und färbt die gewählten Zellen gelb.
Wenn man 3122 eingibt, dann hat man zusätzlich die Wahl zwischen Schicht und Verfügung, da beide diese Zahlen nutzen.
Jetzt hätte ich es gerne so, dass wenn ich z.B. die Zellen von F10 bis AM10 markiere, er nicht nur in der zweiten markierten Zelle den Wert einträgt, sondern eben diesen alle z.B. 20 Zellen wiederholt. Wenn weniger als 20 Zellen ausgewählt wurden, dann soll nur einmal der Wert in Zelle 2 eingetragen werden, also so, wie es aktuell ja auch ist.
Grüße

Sub FzgName_Insert() Dim sTxt As String With Selection .ClearContents 'vorhandene Texteingaben löschen sTxt = UserForm2.TextBox1.Value If sTxt = "" Then Exit Sub If .Columns.Count 20 Spalten .Cells(2).Resize(1, .Columns.Count - 1) = sTxt '--ab 2. Zelle alle Zellen End If End With

'Namenseingabe Sub FzgName_Insert() Dim sTxt As String Dim i As Long With Selection .ClearContents 'vorhandene Texteingaben löschen sTxt = UserForm2.TextBox1.Value If sTxt = "" Then Exit Sub If .Columns.Count

Option Explicit Dim Bereich As String '--muss aussrhalb der Subs oder als Public Variable in ein Modul. '--bei Rechtsklick Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) With Range(Bereich) '--statt selection .Interior.Color = vbYellow '--Bsp. mit faerben End With Bereich = "" End Sub '--bei Zellwechsel Private Sub Worksheet_SelectionChange(ByVal Target As Range) '--beim Zellwechsel wird die Adresse gemerkt If Bereich = "" Then Bereich = Selection.Address Else Exit Sub End If End Sub

Option Explicit Dim Bereich As String 'Einfärben von Fahrzeugen Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) With Range(Bereich) '--statt selection FzgFormat UserForm2.Show End With Bereich = "" Cancel = True 'Kontextmenü aufklappen unterbinden End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) '--beim Zellwechsel wird die Adresse gemerkt If Bereich = "" Then Bereich = Selection.Address Else Exit Sub End If End Sub

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Eingabe in TextBox wiederholen

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread