Thema Datum  Von Nutzer Rating
Antwort
20.11.2023 18:06:10 Angelo
Solved
20.11.2023 18:54:52 ralf_b
NotSolved
22.11.2023 08:39:24 Angelo
NotSolved
Blau Anfänger benötigt Hilfe
 23.11.2023 00:27:36 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
ralf_b		 Datum:
23.11.2023 00:27:36		 Views:
376		 Rating:
     
Antwort:
  Ja
Thema:
Anfänger benötigt Hilfe

ohne deinen Exakten Tabellenaufbau zu kennen habe ich mal etwas geraten. der Code ist ungetestet und dient nur mal zum ansehen. bzgl der Schleifen.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Sub Main()
 
    Dim lrowcnt&, lcolcnt&, cnt&
    Dim sDay$, dtDate As Date
    Dim doc    As Document
    Dim bkmrk  As Bookmark
     
    Set doc = getWordatei
     
    With Tabelle2
         
        For lrowcnt = 2 To .Cells(Rows.Count, 8).End(xlUp).Row
            'zeilenweise (tage)
             
            If .Cells(lrowcnt, 8).Value <> "" Then 'Zelle mit datum
                 
                dtDate = .Cells(lrowcnt, 8).Value
                 
                If Weekday(dtDate, vbMonday) < 6 Then 'Wochentageingrenzung evtl unötig
                     
                    sDay = Format(.Cells(lrowcnt, 8).Value, "dddd")
                    doc.Bookmarks(sDay & "Datum").Range.Text = .Cells(lrowcnt, 8).Value
                    doc.Bookmarks(sDay & "Temp").Range.Text = .Cells(lrowcnt, 9).Value
                    doc.Bookmarks(sDay & "Wetter").Range.Text = .Cells(lrowcnt, 10).Value
                     
                     
                    For lcolcnt = 11 To .Cells(.Columns.Count, 1).End(xlToLeft).Column Step 2
                        'spaltenweise (Firma)
                         
                        If .Cells(1, lcolcnt) <> "" Then 'Zelle mit Firma
                             
                            cnt = cnt + 1         'firmazähler
                            doc.Bookmarks(sDay & "Firma" & cnt).Range.Text = .Cells(lrowcnt, lcolcnt).Value
                            doc.Bookmarks(sDay & "Firma" & cnt & "MA").Range.Text = .Cells(lrowcnt + 1, lcolcnt).Value
                             
                        End If
                    Next
                End If
            End If
        Next
    End With
     
    For Each bkmrk In doc.Bookmarks
        If bkmrk.Empty Then bkmrk.Delete
    Next
     
    Set doc = Nothing
     
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
20.11.2023 18:06:10 Angelo
Solved
20.11.2023 18:54:52 ralf_b
NotSolved
22.11.2023 08:39:24 Angelo
NotSolved
Blau Anfänger benötigt Hilfe
 23.11.2023 00:27:36 ralf_b
NotSolved