Supportnet / Forum / Tabellenkalkulation
Auslesen von Tabellennamen und kopieren
Frage
Hallo,
hoffentlich hat einer von euch eine Idee.
Ich hab mehrere sichtbare und ausgeblendete Blätter, es sollen die Namen von bestimmten (nicht von allen)sichtbaren Blätter ausgelesen und auf ein anderes Blatt in eine Zelle geschrieben werden. Außerdem sollen noch Werte bzw. Ergebnisse dieser Blätter ausgelesen und in die Zellen unterhalb des Namen auf dem anderen Blatt geschrieben werden.
Wie mach ich das ? Hat jemand von euch eine Idee ?
Gruß
Fossi
Antwort 1 von nighty
hi alle
vb kenntnisse werden bei deinem problem unerlaesslich sein,daher ein auszug aus der vbhilfe,die alle namen der sheets in der spalte a des aktiven sheets wiedergibt,zur weiteren verarbeitung leicht zu verstehen.
oder nicht ,was meinen die anderen dazu !?
gruss nighty
Sub Makro1()
Set NewSheet = Sheets.Add(Type:=xlWorksheet)
For i = 1 To Sheets.Count
NewSheet.Cells(i, 1).Value = Sheets(i).Name
Next i
End Sub
vb kenntnisse werden bei deinem problem unerlaesslich sein,daher ein auszug aus der vbhilfe,die alle namen der sheets in der spalte a des aktiven sheets wiedergibt,zur weiteren verarbeitung leicht zu verstehen.
oder nicht ,was meinen die anderen dazu !?
gruss nighty
Sub Makro1()
Set NewSheet = Sheets.Add(Type:=xlWorksheet)
For i = 1 To Sheets.Count
NewSheet.Cells(i, 1).Value = Sheets(i).Name
Next i
End Sub
Antwort 2 von shrike
Korrektur:
Listet die Namen in einem NEUEN Blatt auf, nicht im aktiven!
Für eine Liste im aktiven Blatt müßte es ungefähr so aussehen:
Sub Tabellennamen()
Dim i As Integer
For i = 1 To Sheets.Count
Cells(i, 1).Value = Sheets(i).Name
Next i
End Sub
shrike
Listet die Namen in einem NEUEN Blatt auf, nicht im aktiven!
Für eine Liste im aktiven Blatt müßte es ungefähr so aussehen:
Sub Tabellennamen()
Dim i As Integer
For i = 1 To Sheets.Count
Cells(i, 1).Value = Sheets(i).Name
Next i
End Sub
shrike
Antwort 3 von nighty
hi shrike
oops
danke
gruss nighty
oops
danke
gruss nighty