zellenverlinkung bei neuem Tabellenblatt

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Dim ws As Worksheet, i as long i = WorksheetFunction.Max(45, Worksheets("All Events").Cells(Rows.Count, 1).End(xlUp).Row) For Each ws In ThisWorkbook.Worksheets If ws.Name <> "All Events" Then If IsNumeric(ws.Cells(28, 13).Value) Then Worksheets("All Events").Range(Cells(i, 1), Cells(i, 12)).Value = _ ws.Range(Cells(28, 2), Cells(28, 13)).Value i = i + 1 End If End If Next End Sub

Private Sub CommandButton1_Click() Dim ws As Worksheet, i As Long i = WorksheetFunction.Max(45, Me.Cells(Rows.Count, 1).End(xlUp).Row) Me.Range(Me.Cells(45, 1), Me.Cells(i, 13)).ClearContents i = 45 For Each ws In ThisWorkbook.Worksheets If ws.Name <> Me.Name Then If IsNumeric(ws.Cells(28, 13).Value) Then Me.Range(Me.Cells(i, 1), Me.Cells(i, 12)).Value = _ ws.Range(ws.Cells(28, 2), ws.Cells(28, 13)).Value i = i + 1 End If End If Next End Sub

Hallo Chris,
nach dem Anlegen des Sheets hast Du noch keine Daten drin, also auch noch keinen Mittelwert. Gerd prüft, ob dort 'ne Zahl drin steht. Wenn Du die Prüfung weglässt (If Isnumeric ... und drunter das erste End If) dann klappt es auch im Gerd's code. Allerdings verstehe ich nicht, wieso Gerd den Bereich von Spalte B bis Spalte M übernimmt. Zum einen steht in Spalte A schon was drin, zum anderen geht Dein gelber Bereich nur bis Spalte I.
Gerd übernimmt die Werte auch statisch. Du wolltest ja eine Formel. Wenn Dir die Formel lieber ist dann lösche den Teil von Gerd ('statisch ...) und nimm meinen Teil ('dynamisch ... ).
Übrigens werden die Formeln bei Betätigung des Buttons immer wieder neu erzeugt.
Dann fehlt mir noch die Angabe des Blattes wo die Daten her sind, aber vielleicht benötigst Du das nicht.
Hier der codeabschnitt:
If ws.Name <> Me.Name Then
If IsNumeric(ws.Cells(28, 13).Value) Then 'muss weg
'statisch
Me.Range(Me.Cells(i, 1), Me.Cells(i, 13)).Value = _
ws.Range(ws.Cells(28, 1), ws.Cells(28, 13)).Value
'dynamisch
'Me.Range(Me.Cells(i, 1), Me.Cells(i, 13)).FormulaR1C1 = "=" & ws.name & "!R28C"
i = i + 1
End If 'muss weg
End If
Hoffe geholfen zu haben Grüße von André aus Gera - Excel-97-2003

Beliebteste Forumthreads (12 Monate)

zellenverlinkung bei neuem Tabellenblatt

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

zellenverlinkung bei neuem Tabellenblatt

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread