Thema Datum  Von Nutzer Rating
Antwort
07.08.2015 10:02:43 Sonicl337
NotSolved
Blau Makro für jede zweite Zelle beziehen
08.08.2015 15:43:32 Gast90260
NotSolved
10.08.2015 12:50:58 Sonicl337
NotSolved

Ansicht des Beitrags:
Von:
Gast90260
Datum:
08.08.2015 15:43:32
Views:
1455
Rating: Antwort:
  Ja
Thema:
Makro für jede zweite Zelle beziehen

Hallo,

wenn ich es richtig interpretiert habe, wird folgende Lösung gesucht:

In den Tabellen mit dn Wochentagsnamen "Mo" - "So" stehen in einem fest gelegtem Bereich Daten, auf die mit einer Formel in einer Übersicht verwiesen werden soll:

1. Generieren von Beispieldaten (Voraussierung: In der Arbeitsmappe existieren Tabellen mit der Bezeichnung "Mo", "Di", "Mi", "Do", "Fr" und "Sa"):

Sub GenerateRandomizeData()
    Dim sh As Worksheet
    Dim iRw As Integer
    For Each sh In ActiveWorkbook.Sheets
        If Len(sh.Name) = 2 Then
            For iRw = 1 To 200
                sh.Cells(iRw + 15, 29).FormulaR1C1 = Rnd(1) * 50
            Next
        End If
    Next
End Sub

2. Übersicht füllen:

Sub CopyDataInMain()
    Dim shMain As Worksheet
    Dim sh As Worksheet
    Dim iRwMain As Integer
    Dim iClMain As Integer
    Dim iRw As Integer
    Set shMain = ActiveWorkbook.Worksheets("Übersicht")
    For Each sh In ActiveWorkbook.Sheets
        If Len(sh.Name) = 2 Then
            iRwMain = 1
            iClMain = iClMain + 1
            For iRw = 16 To 200 Step 2
                shMain.Cells(iRwMain, iClMain).Formula = "= " & sh.Name & "!" & sh.Cells(iRw, 29).Address
                iRwMain = iRwMain + 1
            Next
        End If
    Next

End Sub

 

Diese Routine generiert in der Übersicht im Bereich beginnend von A1 Verweise auf die anderen Tabellen:

z.B.:

A1: =Mo!$A$16
A2: =Mo!$A$18
A3: =Mo!$A$20

B1: =Di!$A$16
B2: =Di!$A$18
B3: =Di!$A$20

VG, BigBen

 


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:



  • 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
07.08.2015 10:02:43 Sonicl337
NotSolved
Blau Makro für jede zweite Zelle beziehen
08.08.2015 15:43:32 Gast90260
NotSolved
10.08.2015 12:50:58 Sonicl337
NotSolved