Office: (Office 2010) MonthView soll in TextBox innerhalb Userform eingetragen werden

Hallo Communitiy,

ich habe folgendes Problem:

Ich habe eine Excel Tabelle, wo ich in einer bestimmten Spalte eine Userform mit Doppelklick auf die Zelle öffnen kann.

Code:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With UserForm2a
.TextBox1.ControlSource = Target.Address
.Show
End With

Cancel = True
End Sub

Die Userform sieht wie folgt aus





Ich möchte jetzt aus dem "Tool" MonthView ein Datum in die TextBox1 rechts daneben eintragen, OHNE das der vorhandene Text gelöscht wird.
Das Datum soll an die Stelle geschrieben werden, wo der Cursor platziert ist.

Bisher habe ich folgenden Code:

Option Explicit

Private Sub CommandButton2_Click()
UserForm2a.Hide
End Sub

Private Sub MonthView1_Click()
TextBox1 = MonthView1
End Sub

doch dieser löschte den vorhanden Text und trägt das Datum dann ein.

Kann mir jemand helfen.

Vielen Dank im voraus
Kronprinz

:)

 

Code:

 

danke für die schnelle Hilfe, klappt schon ganz gut - aber - er baut eine Leerzeile mit ein, geht das auch ohne?

 

Das heisst, Du füllst die Textbox vorher schon mit Text oder wie gelangt der Text in die Textbox?

EDIT Vielleicht so Code:

 

ja genau, diese Tabelle wird monatlich bearbeitet und jeden Monat können neue Informationen pro Zelle hinzukommen. Diese sollen dann mit Datum versehen werden, damit man später weiß wann die Info hinzugekommen ist.

 

Das beantwortet nicht meine Frage! Aber egal, folgender Code sollte auch gehen Code:

 

Das ist "fast" perfekt. :-)

Wenn Text in der Zelle vorhanden ist, funktioniert es perfekt.
Wenn noch kein Text vorhanden ist, dann erstell es weiterhin eine Leerzeile. :-)

Beispiel Zelle vorher leer:




Beispiel Zeller vorher gefüllt

 

mit deinem Neuen Code funktioniert es bestens. Vielen Dank!!!!! für deine tolle Hilfe.

 

muss doch noch eine Frage stellen.
Wenn ich die Userform aufrufe und z.B. auf das Tagesdatum klicke, welches heute der 17.05. ist und ich dann noch ein weiteres Datum eintrage möchte (Grund an dieser Stelle egal) dann nimmt er das nicht sonder erst beim zweiten Klick, sorry besser bekomme ich das nicht erklärt.

1. Klick auf Tagesdatum = funktioniert Tagesdatum wird eingetragen
2. Klick auf 24.05. =erneut wird das Tagesdatum eingetragen
3. Klick auf 31.05. = es wird jetzt der 24.05. eingetragen
usw. immer einen versetzt, quasi

 

als Ergänzung zu deiner Frage von oben.

Die Textbox wird von mir von Hand gefüllt. Ein erneuter Doppelklick auf die Zelle und der Text wird gelesen und steht in der TextBox.
Hoffe die Frage ist nun von mir verständlich beantwortet. :-)

 

Hallo, *Smilie

nimm...

Code:

... statt dem...

Code:

Servus
Case

 

genau das wars.

Super vielen Dank!!!

 

Hallo und guten Morgen,

ihr habt mir gestern schon so toll geholfen, das ich hoffe ihr könnt mir heute noch einmal helfen. ;-)

Mit Doppelklick öffne ich meine Userform2a

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With UserForm2a
.TextBox1.ControlSource = Target.Address
.Show
End With

Cancel = True
End Sub





Folgende Codes gehören zur Userform2a

Option Explicit

Private Sub CommandButton2_Click()
UserForm2a.Hide
End Sub

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
If Len(TextBox1.Text) = 0 Then
TextBox1.Text = MonthView1.Value
ElseIf InStrRev(TextBox1.Text, vbCrLf, -1) + 1 = Len(TextBox1.Text) Then
TextBox1.Text = TextBox1.Text & MonthView1.Value
Else
TextBox1.Text = TextBox1.Text & vbCrLf & MonthView1.Value
End If
End Sub

Nun meine Frage:
immer wenn ich eine beliebige Zelle doppelklicke, wird mir der Zellinhalt in Textbox1 angezeigt. Nun benötige ich eine zweite Textbox die den Inhalte rechts neben der ausgewählten Zelle anzeigt. Cool wäre es dann noch, wenn ich mit dem gleichen MonthView arbeiten könnte, wie bei Textbox1.





Natürlich sollen beide Textboxen unabhängig beschrieben werden können und der Inhalt wieder zurück in die Zellen geschrieben werden.

Erneut Danke für Eure Hilfe im voraus.

Gruß
Kronprinz

 

Hi Kronprinz,

das ist jetzt nicht Dein Ernst, oder?
Du hast alles was Du brauchst von Storax und Case Germany bekommen. Sieh es Dir an, wende es an. Denn auch wenn das ein Hilfeforum ist, selbständiges denken wird Dir hier nicht abgenommen...

 

Hallo R J,

klar ist das mein Ernst, meinst du wenn ich das lösen könnte (denn ich kann kaum VBA) würde ich euch um Hilfe bitten.
Ich habe heute schon mind. 4 Stunden getüftelt und es nicht hinbekommen.
Sorry wenn ich für dich/euch so einfachen Fragen stelle.
Für mich ist das eine Wissenschaft.

Gruß
Kronprinz