Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 09:22:48
VBA Filter in intelligenter Tabelle funktioniert nicht
18.04.2024 08:54:52
automatisches übertragen von Daten
18.04.2024 08:16:13
Dynamische Positionsnummerierung
18.04.2024 08:15:33
Seitwärts scrollen - Fenster fixiert
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1176to1180
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1176to1180
1176to1180
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle kopieren

Tabelle kopieren
Werner
Hallo nochmal,
ich habe zu dem Tema zwar schon einen Beitrag geschrieben, der war aber leiter sehr unübersichtlich.
Deshalb möchte ich mein Problem nochmal erleutern:
Ich möchte eine Tabelle "Jahresvergleich" kopieren und vor "Tabelle180" wieder Einfügen (aber nur die Werte, d.h. keine Formeln ,Verknüpfungen) und dann soll das Blatt umbenannt werden in einen Namen der in Zelle A1 der kopierten Blattes steht.
Über eine Lösung würde ich mich sehr freuen.
Gruß Werner

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

Betreff
Benutzer
Anzeige
Tabelle kopieren - Formeln als Wert
14.09.2010 23:56:22
Matthias
Hallo Werner
mal als Grundgerüst evtl. so:
Sub Inhalte()
Sheets("Jahresvergleich").Copy Before:=Sheets("Tabelle180")
With ActiveSheet
.Name = .Cells(1, 1).Value
.UsedRange.Value = .UsedRange.Value
End With
End Sub

ob das funzt ist abhängig von der Größe des UsedRange bzw. dem Speicher
Ich habe hier mal ein kleines Beispiel erstellt ( nur die Formeln als Werte )
https://www.herber.de/bbs/user/71542.xls
allerdings noch ohne Fehlerbehandlung, nur als Grund-Idee

Wie Du Verknüpfungen löschst, findest Du im Archiv
Gruß Matthias
Anzeige
AW: Tabelle kopieren - Formeln als Wert
15.09.2010 10:38:07
Werner
Hallo Matthias,
Danke für deine Antwort.
Im Archiv bin ich fündig geworten, das Nachfolgende Makro löst genau mein Problem:
Sub BlattKopieren()
Dim NeuerName As String, liSuche As Integer, lboShName As Boolean
Do Until lboShName = True
NeuerName = InputBox("Bitte geben Sie den neuen Namen des Blattes ein!")
If NeuerName = "" Then Exit Sub
lboShName = True
For liSuche = 1 To Sheets.Count
If LCase(NeuerName) = LCase(Sheets(liSuche).Name) Then
MsgBox "Blattname schon vorhanden"
lboShName = False
Exit For
End If
Next
Loop
ActiveWorkbook.ActiveSheet.Copy after:=Sheets(Sheets.Count)
'Sheets ("Eingabe") .Copy After:=Sheets(i)
ActiveSheet.Name = NeuerName
With ActiveSheet.UsedRange
.Value = .Value
End With
End Sub
Gruß Werner
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige