Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
772to776
772to776
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA: Tabelle kopieren ud nach Zelleintrag benennen

VBA: Tabelle kopieren ud nach Zelleintrag benennen
18.06.2006 17:28:09
Fritz
Hallo Forumsbesucher,
ich bitte um eure Unterstützung.
In meiner Exceldatei befindet sich u.a. das Tabellenblatt "Ergebnisse".
Ich möchte nun folgendes erreichen: Immer wenn ich in die Tabelle "Ergebnisse" wechsle, soll geprüft werden, ob in der Datei bereits eine Tabelle mit der Tabellenbezeichnung existiert, der als Wert in der Tabelle "Ergebnisse" in der Zelle "B1" steht. Ist dies nicht der Fall, so sollte die Tabelle "Ergebnisse" kopiert und diese Kopie mit der Bezeichnung des Eintrags in der Zelle "B1" versehen werden.
Allen Helfern bereits an dieser Stelle vielen Dank.
Gruß
Fritz

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Tabelle kopieren ud nach Zelleintrag benennen
18.06.2006 17:53:28
chris b
Hallo ich hoffe ich habe dich richtig verstanden.Dann sollte dir dieser Code helfenFüge in ein das Codemodul "DieseArbeitsmappe" ein.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Ergebnisse" Then
Dim mysheet As Worksheet
Dim x As Boolean
cb = Cells(1, 2)
x = False
For Each mysheet In ActiveWorkbook.Worksheets
If mysheet.Name = cb Then
x = True
Else
End If
Next
If x = True Then
Else
Application.EnableEvents = False
Application.ScreenUpdating = False
Sheets("Ergebnisse").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = cb
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
Else
End If
End Sub

Rückmeldung wäre nett.
Anzeige
AW: VBA: Tabelle kopieren ud nach Zelleintrag benennen
18.06.2006 18:15:17
Fritz
Hallo Chris,
es kommt folgende Fehlermeldung:
Fehler beim Kompilieren: Variable nicht definiert
Bezieht sich (wohl) auf folgende Zeile im Code:
cb = Cells(1, 2)
Gruß
Fritz
AW: VBA: Tabelle kopieren ud nach Zelleintrag bene
18.06.2006 18:21:29
Peter W
Servus,
das kommt davon wenn der Antworter kein Option Explicit verwendet, aber der Frager ;-))).
Schreib nach den Dim Zeilen Dim cb as String, dann gehts.

"Man muß Gott für alles danken, sogar für Ober- ,Mittel- und Unterfranken"


AW: VBA: Tabelle kopieren ud nach Zelleintrag bene
18.06.2006 19:00:39
Fritz
Hallo Peter,
danke für den Hinweis. Auch als VBA-Anfänger hätte ich das bereits wissen müssen.
Gruß
Fritz
Anzeige
da gibts schlimmere Vergehen ;-) passt scho o.w.t.
18.06.2006 19:31:50
Peter W

"Man muß Gott für alles danken, sogar für Ober- ,Mittel- und Unterfranken"


AW: VBA: Tabelle kopieren ud nach Zelleintrag benennen
18.06.2006 18:23:46
Fritz
Hallo Chris,
mit dem Code, den mir Daniel eben gepostet hat, klappts wunderbar.
Falls Du weißt, wodurch die Fehlermeldung bei deinem Code bedingt ist, kannst Du mir das noch mitteilen.
Ansonsten danke ich Dir für deine Unterstützung.
Viele Grüße
Fritz
AW: VBA: Tabelle kopieren ud nach Zelleintrag benennen
18.06.2006 18:13:53
Daniel Eisert
Hallo,
den Code in Klassenmodul des Sheets "Ergebnisse" eintragen.

Private Sub Worksheet_Activate()
If ActiveSheet.Name <> "Ergebnisse" Then Exit Sub
Application.EnableEvents = False
Dim shErgebnisse, shSheet As Worksheet
Dim strNeuerName As String
Set shErgebnisse = ActiveSheet
strNeuerName = Left(shErgebnisse.Range("B1").Value, 30)
If strNeuerName = "" Then strNeuerName = "neue Daten"
For Each shSheet In ThisWorkbook.Sheets
If shSheet.Name = strNeuerName Then
Application.EnableEvents = True
Exit Sub
End If
Next
shErgebnisse.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = strNeuerName
Application.EnableEvents = True
End Sub

Gruß, Daniel
Anzeige
Funkioniert prima
18.06.2006 18:21:03
Fritz
Hallo Daniel,
so klappts wie gewünscht.
Vielen Dank für Deine Hilfe!
Gruß
Fritz

337 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige