Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 16:47:14
Wörter in verschiedenen Zellen suchen und Wert zurückgeben
16.04.2024 16:22:58
Pivot
16.04.2024 15:29:29
Notizen einheitliche Position, Formatierung per Bezugsspalte
16.04.2024 15:16:53
Summen mit verschiedenen Variablen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1356to1360
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
1356to1360
1356to1360
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige