Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1224to1228
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
werte aus zellen in einem DEckblatt sammeln
mirko
Hallo ich habe ein kleines Problem...
ich habe in einem Excel Workbook sich ständig im namen ändernde Sheets einen Wert in Zelle T10 + T11
Diese werte möchte auf einem "deckblatt" untereinander ausgewiesen haben
bsp
in Sheet"Deckblattt"
a1 ='Sheet1!T10 a2='Sheet1!T11
b1 ='Sheet3!T10 b2='Sheet3!T11
(sheet2 ist schon wieder gelöscht worden oder trägt jetzt einen anderen namen.... Wie kann ich das mit mit einer formel mit einen Button belegen) Weil per hand immer die formeln umzubennen ist etwas lästig ;o)
vielen dank

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: werte aus zellen in einem DEckblatt sammeln
16.08.2011 16:14:52
Mag
Hallo,
Ansatz:

Option Explicit
Private Sub CommandButton1_Click()
Dim Tabelle As Object, Spalte As Long
Spalte = 1
For Each Tabelle In ThisWorkbook.Sheets
If Tabelle.Name  "Deckblatt" Then
ThisWorkbook.Sheets("Deckblatt").Cells(1, Spalte).Value = Tabelle.Range("T10").Value
ThisWorkbook.Sheets("Deckblatt").Cells(2, Spalte).Value = Tabelle.Range("T11").Value
Spalte = Spalte + 1
End If
Next Tabelle
End Sub
Gruß
AW: werte aus zellen in einem DEckblatt sammeln
16.08.2011 16:28:28
Mag
... mit Anzeigebereich löschen:

Option Explicit
Private Sub CommandButton1_Click()
Dim Tabelle As Object, Spalte As Long
'Anzeigebereich in Tabelle Deckblatt löschen
Spalte = LetzteSpalte(ThisWorkbook.Sheets("Deckblatt"), 1)
If Spalte > 0 Then
ThisWorkbook.Sheets("Deckblatt").Range(Cells(1, 1), Cells(2, Spalte)).Clear
End If
'Anzeigen der Zellwerte T10, T11 aus allen Tabellen (ohne Tabelle Deckblatt)
Spalte = 1
For Each Tabelle In ThisWorkbook.Sheets
If Tabelle.Name  "Deckblatt" Then
ThisWorkbook.Sheets("Deckblatt").Cells(1, Spalte).Value = Tabelle.Range("A1").Value
ThisWorkbook.Sheets("Deckblatt").Cells(2, Spalte).Value = Tabelle.Range("A2").Value
Spalte = Spalte + 1
End If
Next Tabelle
End Sub
Public Function LetzteSpalte(Tabelle As Worksheet, zeile As Long) As Long
If Application.WorksheetFunction. _
CountA(Tabelle.Rows(zeile).EntireRow) = 0 Then
LetzteSpalte = 0
Else
If Tabelle.Cells(zeile, 256).End(xlToLeft).Column = 1 And _
Tabelle.Cells(zeile, 2)  "" Then
LetzteSpalte = 256
Else
LetzteSpalte = Tabelle.Cells(zeile, 256).End(xlToLeft).Column
End If
End If
End Function

Anzeige

333 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige