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
1356to1360
1356to1360
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Termine variabel eintragen

Forumthread: Termine variabel eintragen

Termine variabel eintragen
03.04.2014 19:48:55
robert
Guten Abend,
in einem Saunaplan sollen Termine eingetragen werden.
zB. Maier beginnt am 2.1.2014 und geht alle 14 Tage von 16-18 Uhr
in die Sauna-siehe auch Beispieldatei.
VBA Lösung erwünscht, bitte um Hilfestellung.
Gruß
robert
https://www.herber.de/bbs/user/89979.xlsx

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Termine variabel eintragen
03.04.2014 20:17:58
Spenski
hi robert
ist das immer in wochenabständen?
oder kann auch alle 5 tage vorkommen?
mfg
christian

der Wochetag ist fix-zB. immer Dienstag-owT
04.04.2014 07:47:09
robert

AW: der Wochetag ist fix-zB. immer Dienstag-owT
04.04.2014 08:23:04
hary
Moin Robert
Wenn du SpalteS so formatierst.



Tabelle1
 S
514

Zahlenformate
Zelle Format Wert
S5 '"alle" 00 "Tage"14
Zellen mit Format Standard werden nicht dargestellt

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip
http://hajo-excel.de/tools.htm
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 14.02 einschl 64 Bit

Dann ginge es am Bsp. Müller so. Falls du eine Schleife fuer die Namen brauchst, dass bekommst du ja hin. 
Dim a As Variant
Dim i As Long
Dim suche As String
Dim spalte As Long
a = Application.Match(Cells(5, 18), Columns(1), 0) 'datum finden
If IsNumeric(a) Then
suche = Left(Cells(5, 20), Len(Cells(5, 20)) - 4) 'Uhrzeit aus StalteT
spalte = Rows(1).Find(What:=suche, Lookat:=xlPart).Column 'Uhrzeitspalte
For i = a To Cells(Rows.Count, 1).End(xlUp).Row Step Cells(5, 19) 'Step alle xx Tage
Cells(i, spalte) = Cells(5, 16)
Next
End If

Vlt. hilft es dir.
gruss hary

Anzeige
Danke hary,die Lösung mit Step....
04.04.2014 10:44:34
robert
Hi hary,
..ist gut und einfach-wenn man daran denkt ;-)
ich bin davon ausgegangen, immer das Datum+Tage finden zu müssen.
Das mit den Namen bring ich hin :-)
Danke und Gruß
robert

AW: Null Problem. gruss owT.
04.04.2014 13:14:59
hary
.

;

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