Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1344to1348
1344to1348
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform - VBA

Forumthread: Userform - VBA

Userform - VBA
20.01.2014 12:59:46
Thomas
Hallo zusammen,
https://www.herber.de/bbs/user/88894.xlsm
ich bräuchte Hilfe zu meiner Userform "Erfassen" siehe anhängende Datei.
In Spalte C und D wird ein Datum eingetragen.
Wie bekommt man das hin, dass in dem Kalender Tabellenblatt "Terminübersicht"(Spalte I:NJ) in die jeweilige Zelle der Wert aus der Spalte G eingefügt wird.
Beispiel:
In Spalte C steht: 01.01.2014
In Spalte D steht: 05.01.2014
In Spalte G steht: PB
So soll in dem Kalender vom 01.01 bis 05.01 "PB" stehen.
Vielen Dank für eure Hilfe
Gruß
Thomas

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Userform - VBA
20.01.2014 13:12:01
Rudi
Hallo, 
With Sheets("Terminübersicht")
.Cells(i, 9).Offset(, DTbeginn - .Range("A4")).Resize(, dtende - DTbeginn + 1) = .Cells(i, 7)
End With
Gruß
Rudi

AW: Userform - VBA
20.01.2014 13:28:41
Thomas
Perfekt!
Vielen Dank!

AW: Userform - VBA
20.01.2014 13:38:15
Thomas
Hallo Rudi,
jetzt habe ich festgestellt, dass der Wert nicht in die richtige Datumsspanne geschrieben wird. Der Code schreibt den Wert immer in 01.01.
Gruß
Thomas

Anzeige
AW: Userform - VBA
20.01.2014 13:44:24
Rudi
Hallo,
evtl so:
With Sheets("Terminübersicht")
.Cells(i, 9).Offset(, CDate(DTbeginn) - .Range("A4")).Resize(, CDate(dtende) - CDate(DTbeginn) + 1) = .Cells(i, 7)
End With
Gruß
Rudi

AW: Userform - VBA
20.01.2014 13:56:55
Thomas
Hallo,
statt, "A4" musste es "I5" heißen. So funktioniert es.
Vielen Dank nochmal!
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige