Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1612to1616
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1612to1616
1612to1616
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textboxinhalt in mehrere Spalten

Textboxinhalt in mehrere Spalten
10.03.2018 09:04:18
Steve
Hallo zusammen,
ich bastel die letzten Jahre immer den Urlaubsplan für ca 50 Personen.
Bisher habe ich alles mit Excel gemacht. Doch nun möchte ich die tabelle mit VBA ein wenig aufpeppen. Ich habe schon ein bisschen mit VBA herumexperimentiert aber mein Lösung noch nicht so wirklich gefunden.
Also: Ich habe einen Bereich, von 50 Zeilen(kollegen) x max 31 Spalten(Monatstage)
Wenn jemand in diesen Bereich eine Zelle anklickt, soll sich eine Textbox öffnen, wo er den Abwesenheitsgrund (Krank, Urlaub, Lehrgang,...) als Kürzel (k,u,lg) reinschreibt. Das Kürzel soll dann in die angeklickte Zelle geschrieben werden.
Schön wäre es natürlich, wenn in einer zweiten Textbox die Dauer der Abwesenheit eingetragen werden kann, so dass (k,u,lg) dann sooft in die Spalten geschrieben wird.
Ich danke euch schonmal im Vorraus ;)

25
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
eine Bsp-Datei...
10.03.2018 09:13:22
Oberschlumpf
...mit Bsp-Daten könntest du
Hallo Steve
uns per Upload zur Verfügung stellen.
Wir wissen nicht, wie deine Datei aussieht. Aus dem Grund können wir deine Datei auch nicht nachbauen.
Ciao
Thorsten
AW: eine Bsp-Datei...
10.03.2018 09:17:16
Steve
Okay, ich werde euch den Plan mal uploaden, das wird aber wahrscheinlich erst heute abend werden.
AW: Textboxinhalt in mehrere Spalten
10.03.2018 09:22:33
Hajo_Zi
Teil 1 
Option Explicit                                     ' Variablendefinition erforderlich
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim RaBereich As Range                          ' Variable für Bereich
Dim RaZelle As Range                            ' Variable für Zelle
Set RaBereich = Range("A1:Ae50")                ' Bereich der Wirksamkeit
Set RaBereich = Intersect(RaBereich, Target)
If Not RaBereich Is Nothing Then
'ActiveSheet.Unprotect ("Passwort")
For Each RaZelle In RaBereich
With RaZelle
.Value = InputBox("Abwesendheisgrund für Zelle " & RaZelle.Address(False, False) _
)
End With
Next RaZelle
'ActiveSheet.protect ("Passwort")
End If
Set RaBereich = Nothing                         ' Variable leeren
End Sub

Gruß Hajo
Anzeige
AW: Textboxinhalt in mehrere Spalten
10.03.2018 09:25:01
Steve
Danke, das probier ich heute nachmittag gleich mal aus
AW: Textboxinhalt in mehrere Spalten
10.03.2018 09:27:00
Hajo_Zi
Beachte ich habe auch vorgesehen das mehrere Zellen gewählt werden können, was Excel ja zulässt.
Gruß Hajo
Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
AW: Textboxinhalt in mehrere Spalten
10.03.2018 16:07:51
Steve
irgendwie geht das nicht er öffnet mir immer die makro-übersicht und will, dass ich ein makro auswähle.
wohin kommt dein code? in "diese Arbeitsmappe" oder in ein Modul? Muss ich die Inputbox noch erstellen?
AW: Textboxinhalt in mehrere Spalten
10.03.2018 16:09:20
Hajo_Zi
nein unter die Tabelle.
Gruß Hajo
Anzeige
AW: Textboxinhalt in mehrere Spalten
10.03.2018 16:40:45
Steve
da kommt die gleiche abfrage nach der makroübersicht
AW: Textboxinhalt in mehrere Spalten
10.03.2018 16:42:43
Hajo_Zi
ich bin dann raus, da Makros nicht mehr relevant. Laut Deinen Download Datei.
Eine XLSX Datei kann kein Makro enthalten.
Gruß Hajo
AW: Textboxinhalt in mehrere Spalten
10.03.2018 16:47:23
Steve
habs an ner test Excel Datei getestet, die makros erlaubt ;)
AW: Inputbox in mehrere Spalten
10.03.2018 09:37:49
hary
Moin
Der Code geht von der aktiven Zelle aus. Evtl. noch den Bereich einbauen. 
Sub Eintragen()
Dim Grund As String, Dauer As Long
Grund = Application.InputBox("Bitte Grund eingeben", Type:=2)
If Grund = "Falsch" Then Exit Sub
Dauer = Application.Max(1, Application.InputBox("Bitte Dauer eingeben", Default:=1, Type:=1) _
)
ActiveCell.Resize(1, Dauer) = Grund
End Sub

gruss hary
Anzeige
AW: Textboxinhalt in mehrere Spalten
10.03.2018 09:38:27
Werner
Hallo Steve,
ich habe mal eine kleine Beispielmappe gebastelt. Zum Starten der Userform wird das Doppelklickereignis genutzt. Doppelklick ab Zeiele 2 und ab Spalte B öffnet die Userform.
Da ist jetzt aber noch keine Prüfung drin, ob ein gültiges Datum in die Textbox eingegeben wurde. Zudem müsste noch mit rein, wenn der Abwesenheitstermin in den nächsten Monat geht.
https://www.herber.de/bbs/user/120318.xlsm
Gruß Werner
AW: Textboxinhalt in mehrere Spalten
10.03.2018 16:46:23
Steve
Supi, genau so wollte ich das ;)
kann man die tage für den aktuellen Monat noch als Pulldown-Menü einfügen?
Anzeige
AW: Textboxinhalt in mehrere Spalten
11.03.2018 15:00:53
Werner
Hallo Steve,
kleine Erweiterung:
-Datum laufender Monat wird aus Zeile 1, ab B1 in eine Combobox eingelesen
-Datum der angeklickten Spalte wird in der Combobox vorausgewählt (spart Scrollen)
Hier noch mal der komplette Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row > 1 And Target.Column > 1 Then
Cancel = True
UserForm1.Show
End If
End Sub
Private Sub UserForm_Initialize()
Dim loSpalte As Long
loSpalte = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 2 To loSpalte
If Cells(1, i)  "" Then
Me.ComboBox1.AddItem Cells(1, i)
End If
Next i
Me.AbwesenheitBox.AddItem "U"
Me.AbwesenheitBox.AddItem "UX"
Me.AbwesenheitBox.AddItem "916"
Me.AbwesenheitBox.AddItem "916X"
Me.AbwesenheitBox.AddItem "K"
Me.AbwesenheitBox.AddItem "LG"
'Voreinstellen der Listbox mit dem angeklickten Datum
UserForm1.ComboBox1.ListIndex = ActiveCell.Column - 2
End Sub
Private Sub CommandButton1_Click()
Dim loTage As Long
Cancel = True
loTage = CDate(Me.ComboBox1) - CDate(Cells(1, ActiveCell.Column))
Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(ActiveCell.Row, ActiveCell.Column + _
loTage)).Value = Me.AbwesenheitBox
Unload Me
End Sub
Gruß Werner
Anzeige
AW: Textboxinhalt in mehrere Spalten
10.03.2018 17:16:17
Steve
Es würde auch reichen, wenn man die anzahl der tage als text eingibt
AW: Textboxinhalt in mehrere Spalten
10.03.2018 20:27:35
Steve
Hab noch n bissel rumprobiert.
Hab jetzt in der UF1 31 Buttons, die das Datum angeben sollen. Aber der wandelt das Drücken des Buttons nicht in ein Datum um. hab ich was vergessen?
hier der Code: 

Option Explicit
Dim DateButton As Date
Private Sub CommandButton1_Click()
Dim loTage As Long
loTage = CDate(Me.DateButton) - CDate(Cells(1, ActiveCell.Column))
Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(ActiveCell.Row, ActiveCell.Column +  _
loTage)).Value = Me.AbwesenheitBox & Me.SchichtBox
Unload Me
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub ToggleButton1_Change()
DateButton = "01.03.2018"
End Sub
Private Sub ToggleButton2_Click()
DateButton = "02.03.2018"
End Sub
Private Sub ToggleButton3_Click()
DateButton = "03.03.2018"
End Sub
Private Sub ToggleButton4_Click()
KalenderButton = "04.03.2018"
End Sub
Private Sub UserForm_Initialize()
Me.AbwesenheitBox.AddItem "U"
Me.AbwesenheitBox.AddItem "UX"
Me.AbwesenheitBox.AddItem "916"
Me.AbwesenheitBox.AddItem "916X"
Me.AbwesenheitBox.AddItem "K"
Me.AbwesenheitBox.AddItem "LG"
End Sub

Anzeige
AW: Textboxinhalt in mehrere Spalten
10.03.2018 22:10:06
Gerd
Moin Steve,
ich habe mich nicht "durchgehangelt". Aber statt
DateButton = "02.03.2018"
solltest du wahrscheinlich
DateButton = CDate("02.03.2018")
schreiben.
Gruß Gerd
AW: Textboxinhalt in mehrere Spalten
11.03.2018 13:57:09
Werner
Hallo Steve,
hier mal ein Code zum Einlesen des laufenden Monats (aktives Tabellenblatt) in eine Combobox.
Bin von meiner Beispieldatei ausgegangen, Datum steht in Zeile 1 ab B1. Die Datumswerte werden bei Start der Userform in eine Combobox (Combobox1) eingelesen. 
Private Sub UserForm_Initialize()
Dim loSpalte As Long
loSpalte = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 2 To loSpalte
If Cells(1, i)  "" Then
Me.ComboBox1.AddItem Cells(1, i)
End If
Next i
End Sub
Zum Eintragen in die Tabelle dann: 
Private Sub CommandButton1_Click()
Dim loTage As Long
loTage = CDate(Me.Colbobox1) - CDate(Cells(1, ActiveCell.Column))
Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(ActiveCell.Row, ActiveCell.Column +   _
_
loTage)).Value = Me.AbwesenheitBox & Me.SchichtBox
Unload Me
End Sub
Gruß Werner
Anzeige
sorry Gerd, bin im falschen Zweig gelandet. o.w.T.
11.03.2018 14:56:45
Werner
AW: (Für mich) ist das kein Problem, Werner
11.03.2018 15:03:16
Gerd
Hallo Werner,
habe zwar ein L im Namen, aber deshalb protestiert einer mit anderem Vornamen. :-)
Gruß Gerd
AW: sorry Gerd, bin im falschen Zweig gelandet. o.w.T.
11.03.2018 15:43:38
Steve
Danke Gerd, mit CD("...") hatts geklappt.
hab mal meine Datei jetzt hochgeladen.
https://www.herber.de/bbs/user/120335.xlsm
Deine Idee mit dem Einlesen, des aktiven Monats in die Combobox ist gut. Hat aber den Nachteil, dass man in der Combobox nicht scrollen kann.
Habe jetzt wie gesagt 31 ToggleButtons als "Kalender" Beim Drücken des entsprechenden Buttons sollte eigentlich der Text in das Date_Lbl der UF geschrieben werden, doch irgendwie will der nicht ;(
Was habe ich vergessen?
Kann man deine Idee aufgreifen und die 31 Buttons mit den Tagen des aktuell angezeigten Monats belegen?
Anzeige
Dann nimm halt eine Listbox....
11.03.2018 16:57:58
Werner
Hallo Steve,
...die kannst du dann in der Größe so anpassen, dass der komplette Monat rein passt, ohne dass die Listbox vertikale oder horizontale Scrollbalken braucht. Zum Übertragen könntest du dann das Doppelklick-Ereignis der Listbox nutzen, Doppelklick auf den Datumseintrag überträgt in die Tabelle. So bräuchtest du noch nicht mal einen separaten Button zum Übertragen der Daten.
Hier mal ein Beispielcode: 
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim loTage As Long
If Me.AbwesenheitBox  "" Then
loTage = CDate(Me.ListBox1) - CDate(Cells(1, ActiveCell.Column))
Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(ActiveCell.Row, ActiveCell.Column + _
loTage)).Value = Me.AbwesenheitBox
Unload Me
Else
MsgBox "Bitte Abwesenheitsgrund wählen."
End If
End Sub
Private Sub UserForm_Initialize()
Dim loSpalte As Long
loSpalte = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 2 To loSpalte
If Cells(1, i)  "" Then
Me.ListBox1.AddItem Cells(1, i)
End If
Next i
Me.AbwesenheitBox.AddItem "U"
Me.AbwesenheitBox.AddItem "UX"
Me.AbwesenheitBox.AddItem "916"
Me.AbwesenheitBox.AddItem "916X"
Me.AbwesenheitBox.AddItem "K"
Me.AbwesenheitBox.AddItem "LG"
'Voreinstellen der Listbox mit dem angeklickten Datum
UserForm1.ListBox1.ListIndex = ActiveCell.Column - 2
End Sub
Deine Beispielmappe kann ich mir im Moment nicht herunter laden, kann im Moment hier keine .xlsm herunter laden.
Gruß Werner
Anzeige
AW: Dann nimm halt eine Listbox....
11.03.2018 18:29:33
Steve
Danke euch für die Hilfe. Hab jetzt die Combobox einfach auf 31 Zeilen Länge in den Eigenschaften gesetzt. ;)
Gerne u. Danke für die Rückmeldung. o.w.T.
11.03.2018 18:42:00
Werner

326 Forumthreads zu ähnlichen Themen

Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Anzeige
Spalten in Zeilen anhängen
Jörg

Hallo zusammen,
in einer Tabelle mit ~1000 Artikeln in Spalte A stehen jeweils in den Spalten B-M die 12 zum Artikel gehörenden Monatswerte des Verbrauchs.
Ich brauche diese Daten jetzt so angeordnet, dass weiterhin alle Artikel in Spalte A stehen, jedoch die einzelnen Monatswerte unter...
01.09.2008 18:03:42
Thread-ID: 1006570
11 Beiträge
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
Anzeige
Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Text in Spalten
Simone

Hallo zusammen,
ich hab ein wohl eher triviales Problem, komme aber trotzdem einfach nicht weiter.
Ich füge in ein Arbeitsblatt Daten aus einem anderen Programm ein. Jetzt habe ich mehrmals die Funktion 'Text in Spalten' verwendet / ausprobiert, und wenn ich jetzt wieder Daten in A1 ein...
16.09.2008 13:54:00
Thread-ID: 1010092
3 Beiträge
Zeilen löschen in Abhängigkeit von 2 Spalten
2

Hallo zusammen,
ich habe ein Makro über den Rekorder aufgezeichnet und versuche es anzupassen. Leider kenn ich mich in der Syntax nicht aus.
Ziel:
In einem markierten Bereich die Zeilen löschen, die in Abhängigkeit von zwei Spalten eine 0 enthalten.
D.h. Spalten X und Y enthalte...
06.10.2008 14:00:00
Thread-ID: 1014434
3 Beiträge
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
Text in Spalten
Tom

Hallo,
ich möchte mit der Funktion Text in Spalten erreichen, dass alle Zeilen, die mit einer Zahl beginnen, nach der Zahl in eine neue Spalte geschoben werden - nur finde ich hierfür nur die Funktionen nach Leerzeichen, Komma usw...
Wer hat ne Lösung?
In A1: 1020 Maier Huber Mülle...
20.10.2008 14:09:42
Thread-ID: 1017654
7 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
3
10
3
3
2
2
2
2
6
3
2
2
2
2
4
4
8
4
5
4
2
5
3
4