Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1984to1988
1984to1988
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Eintrag über Userform (F2+Enter)

Forumthread: VBA - Eintrag über Userform (F2+Enter)

VBA - Eintrag über Userform (F2+Enter)
08.07.2024 10:53:14
Tom
Guten Morgen,

Ich habe eine einfache kurze Frage. Über eine Userform mache ich Einträge in einer Excel Liste. Funktioniert auch, leider nicht meine bedingte Formatierung.

Gibt es die Möglichkeit, dass per VBA in dem Bereich (NF9 bis OT9) geprüft wird ob ein Eintrag vorhanden ist und wenn ja dann F2+Enter ausgeführt wird, damit die bedingte Formatierung aktiviert wird. Oder das nach dem Eintrag in der Userform F2 und Enter ausgeführt wird.

Ich wäre dankbar über jede Hilfe.

VG
Tom
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Eintrag über Userform (F2+Enter)
08.07.2024 10:58:22
daniel
Hi
das sollte eigentlich automatisch funktionieren.
das mit dem F2 hört sich eher so an, als würdests du einen Text in die Zelle schreiben, welcher dann in eine Zahl oder ein Datum gewandelt werden muss.
kannst du die Datei hochladen?
Gruß Daniel
AW: VBA - Eintrag über Userform (F2+Enter)
08.07.2024 11:39:53
Tom
Ja, stimmt. Das war es. Ich weiß jetzt nicht genau wo ich meinen Code einstellen soll. Hier mal mein Code: 





Private Sub CommandButton1_Click()

Dim iClick As Integer



    Dim rngZiel As Range

    'Range("NF9").Value = CDate(TextBox1)

    'Range("NG9").Value = CDate(TextBox2)



    If IsEmpty(Range("NF9")) Then

        Set rngZiel = Range("NF9")

        

        

    ElseIf IsEmpty(Range("NG9")) Then

        Set rngZiel = Range("NG9")

       

   

    Else

        Set rngZiel = Range("NF9").End(xlToRight).Offset(0, 1)



    End If

    

    rngZiel.Value = CDate(TextBox1)

    rngZiel = TextBox1

    rngZiel.Value = CDate(TextBox2)

    rngZiel.Offset(0, 1) = TextBox2

    Set rngZiel = Nothing



iClick = MsgBox(prompt:="Datum eingetragen", Buttons:=vbOKCancel)





End Sub
Anzeige
AW: VBA - Eintrag über Userform (F2+Enter)
08.07.2024 11:50:29
daniel
Hi

probiere mal den Übertrag von Textbox in Zelle mit: Range(...).FormulaLocal = TextboxX.Text
übergib auch die Werte aus den Datumsfeldern so.
normalerweise macht Excel die Umwandlung der Eingabe zu Zahl oder Datum immer automatisch.
Das Problem an der Sache ist, dass wenn der Wert von VBA kommt, die amerikanischen Formate zugrunde gelegt werden, um ein Datum zu erkennen und auch ein CDate gibt das landestypische = deutsche Format aus.
mit .FormulaLocal gibst du jetzt an, dass die folgenden Werte zwar von VBA kommen, aber auf Deutsch geschrieben werden.
dh dein Excel wird jetzt ein "31.12.2024" aus der Textbox als Datum erkennen, mit .Formula oder .Value müsste es ein "12/31/2024" sein.

Gruß Daniel
Anzeige
AW: VBA - Eintrag über Userform (F2+Enter)
08.07.2024 12:09:21
Tom
Und wo müsste ich die in meinen Code dann einfügen?
AW: VBA - Eintrag über Userform (F2+Enter)
08.07.2024 13:37:11
Tom
Wenn ich das so mache funktioniert es.. Aber nur für die ersten beiden Eintragungen. Bei den anderen Eintragungen die dahinter kommen, macht er das nicht. 



Private Sub CommandButton1_Click()

Dim iClick As Integer



    Dim rngZiel As Range

    Range("NF9").Value = CDate(TextBox1)

    Range("NG9").Value = CDate(TextBox2)



    If IsEmpty(Range("NF9")) Then

        Set rngZiel = Range("NF9")

        

    

    ElseIf IsEmpty(Range("NG9")) Then

        Set rngZiel = Range("NG9")

    

    Else

        Set rngZiel = Range("NF9").End(xlToRight).Offset(0, 1)

    

    End If

    rngZiel = TextBox1

    'rngZiel.Value = CDate(TextBox1.Text)

    'rngZiel.FormulaLocal = TextBox1.Text

    rngZiel.Offset(0, 1) = TextBox2

    'rngZiel.Value = CDate(TextBox2.Text)

    'rngZiel.FormulaLocal = TextBox2.Text

    Set rngZiel = Nothing



'iClick = MsgBox(prompt:="Datum eingetragen", Buttons:=vbOKCancel)





End Sub
Anzeige
;

Forumthreads zu verwandten Themen

Zeilenhöhe für mehrere verbundene zellen anpassen
a_ke

Hallo,
das Makro für die Anpassung der Zeilenhöhe für verbundene Zellen habe ich bereits auf der
Excel-CD gefunden. Das funktioniert mit der jeweils markierten Zelle auch wunderbar.
Sub AutoFitMergedCellRowHeight() Dim CurrentRowHeight As Single, MergedCellRgWidth As Single Dim Curr...
17.03.2012 08:12:54
Thread-ID: 1255314
6 Beiträge
Anzeige
Code ändern für mehrere Zellen
MPH

Hallo Leute,
leider meldet sich mein Förderer nicht mehr :-)
Ich habe einen Code bekommen, der eine Zelle beobachtet und Mir in einem anderen Tabellenblatt die geänderten Werte jeweils untereinander schreibt. Private Sub Worksheet_Change(ByVal Target As Range) Dim sZelle As String...
29.11.2012 13:09:49
Thread-ID: 1288573
2 Beiträge
UserForm Hintergrundfarbe für mehrere Zellen
Krisenergy

Hallo zusammen
Ich kenne mich mit userforms nicht aus, ich habe folgendes Problem:
In einer Skillmatrix sollen die Fähigkeiten Ist und Soll eingetragen werden, gelb steht für Soll, grün steht für ist. Je 4 Zellen Ergeben das Fähigkeitsbild eines Mitarbeiters in der jeweiligen Kategorie....
21.02.2013 17:48:20
Thread-ID: 1300486
5 Beiträge
User form für mehrere Zellen inklusive Farbmitgabe
mikey


Hallo
ich würde gerne eine Userform bzw. Liste erstellen, diesmal aber soll sie mit
mit klick auf bestimmte Zellen erscheinen und verschiedene Optionen
beeinhalten. D.h. die Userform soll erscheinen und gleich die Optionen für alle
4 Spalten ermöglichen.
Ich habe hier...
11.08.2013 15:53:30
Thread-ID: 1326419
7 Beiträge
ODER-Funktion für mehrere Zellen
Henny

Hallo zusammen,
ich habe eine WENN Funktion die für eine Vielzahl von Zellen gilt, die aber nicht in einer Range liegen sondern verteilt sind.
Die Formel lautet:
WENN(UND(ODER(C15="Ja";C15="Yes");ODER(R8=0;R8=1;R10=0;R10=1));"Keine Freigabe PI";"")
Die Funktion soll immer ausgef...
09.02.2016 13:42:48
Thread-ID: 1474299
7 Beiträge
VBA - Befehl für mehrere Zellen =
Jörg
Hallo,
ich habe z.B. folgenden VBA Befehl:
Case "A15"
If Rows("22:24").Hidden Then
Rows("22:24").Hidden = False
Else
If Rows("25:28").Hidden Then Rows("22:24").Hidden = True
End If
Dieser Befehl wiederholt sich bei A26, A37, A48,... und der Bereich ist immer gleich...
11.07.2016 06:36:24
Thread-ID: 1503640
9 Beiträge
Makro Worksheet_Calculate für mehrere Zellen
Stefanie

Hallo Zusammen,
ich habe aktuell folgendes Problem:
Ich habe eine Excel-Datei in der in den Zelle D12 bis D52 Formeln enthalten sind.
Ich bin jetzt auf der Suche nach einem Makro das besagt:
Wenn eine der Formeln in D12 bis D52 einen Wert größer 20 ausgibt, dann die MsgBox "...
23.08.2017 15:12:14
Thread-ID: 1576103
6 Beiträge
DropDown mit F2 STRG-ENTER funktioniert nicht
Jens

Guten Abend, liebe Excel-Spezialisten!
Wer kann mir auf die Sprünge helfen bei folgendem Problem:
Habe einen Bereich D3:D15 (Format: 00:00 bzw. [hh]mm), in dem ich Zeiten per Pulldown-Menü eintrage. Die Zeitwerte (01:00 bis 13:00) stehen in einer Gültigkeitsliste (B3:B15).
Wenn man...
03.02.2018 20:25:19
Thread-ID: 1606741
6 Beiträge
per vba F2 + Enter
werner

hallo,
wie kann ich jede zelle eines bestimmten bereiches einer tabelle (A1-AI38) in den editiermodus(F2) setzen und mit enter bestätigen.
frage bezieht sich auf diesen thread: https://www.herber.de/forum/archiv/840to844/t841893.htm
vielen dank
01.02.2007 22:50:42
Thread-ID: 842864
2 Beiträge
Anzeige
UserForm für mehrere Zellen und sheets anwenden
Leon

Hallo Profis,
ich habe eine Userform gebaut, welche aufploppen soll wenn der Wert 1 oder 2 in zb.: Zelle B5 eingetragen wird.
ich möchte jetzt dass dieses UserForm bei allen Zellen in Spalte B angesprochen wird
ich habe diesen Code für das ansprechen der UserForm wenn in Zelle B5 de...
17.11.2019 18:17:42
Thread-ID: 1723898
11 Beiträge
WENN für mehrere Argumente und Zellen
Ozzy

Hallo zusammen,
ich habe hier im Forum schon viel gelernt und schreibe nun meine erste Anfrage, da ich zu meinem Problem keine passende Lösung finden kann.
Ich habe auf einem Tabellenblatt in den Spalten A, B, C und D in den Zeilen 2 bis 30 verschiedene längere Texteinträge je Zelle.
14.12.2020 15:26:22
Thread-ID: 1799578
5 Beiträge
Bedingte Formatierung für mehrere Zellen
Hartmut

Hallo zusammen,
in angehängter Tabelle habe ich folgendes Problem.
https://www.herber.de/bbs/user/144248.xlsx
In der Spalte B sind Namen, Nummern, oder ähnliches enthalten.
In Spalte D der Namen des Moduls, in Spalte F das entsprechende Modul.
in den Spalten H bis BS sind d...
25.02.2021 15:35:48
Thread-ID: 1815872
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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