Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
696to700
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
696to700
696to700
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblatt ansprechen, aber nicht anzeigen

Tabellenblatt ansprechen, aber nicht anzeigen
20.11.2005 19:38:57
angela
Hallo,
möchte gern von Tab1 die Daten auf Tab2 kopieren, dann soll Tab2 in einer anderen Mappe abgespeichert werden. Das geht auch solange ich Tab2 nicht verstecke. Nun habe ich im Sevicebereich nachgeschaut, aber keine Lösung gefunden. Das Problem ist wohl "Select".
Sheets("Tab2").Select
Eine andere Möglichkeit ist wohl das Blatt kurzfristig einzublenden und nach de Aktion wieder auszublenden. Möchte aber gern das es nicht auf dem Bildschirm erscheint.
Vielleicht habt Ihr einen Rat für mich, würde mich freuen.
Mfg. Angela

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt ansprechen, aber nicht anzeigen
20.11.2005 19:54:39
Hajo_Zi
Hallo Angela,
verzichte auf select. Die Tabelle muß nur zum Drucken eingeblendet werden.


Tab kopieren
20.11.2005 20:11:40
Angela
Hallo Hajo
vielen Dank für Deine Antwort.
Drucken wollte ich nicht.
Es geht immoment darum, das versteckte Tab2 zu kopieren in einer anderen Mappe.
Was ja auch geht, solange ich Tab2 nicht versteckt hatte.
Ich drücke nun von Tab1 auf ein Button und es wird das Makro ausgeführt.
Das Makro will nun mit Sheets("Tab2").Select auf das Blatt zugreifen, geht nicht da es versteckt ist. Gelesen hatte ich in der Hilfe das kein SELECT im Makro sein darf.
Hier stopt das Makro auch mit Laufzeitfehler 1004 Select Mehtode konnte nicht ausgeführt werden.
Wie kann ich das Blatt anders ansprechen, ohne Sheets("Tab2").Select
Mfg. Angela
Anzeige
AW: Tab kopieren
20.11.2005 20:15:26
DieterB
Hallo Angela,
der Laufzeitfehler 1004 resultiert daraus, dass das Blatt versteckt (für das Makro "nicht da") ist.
Gruß DieterB
AW: Tab kopieren
20.11.2005 20:20:17
angela
Hallo DieterB
danke für die Antwort. Habe mir das schon gedacht, aber wie kann ich es umgehen?
Mfg. Angela
AW: Tab kopieren
20.11.2005 20:27:09
Hajo_Zi
Hallo Angela,
es haben nur wenige hier eine Glaskugel, da wäre de Code schon nicht schlecht.
Sheets("Tabelle2").Copy After:=Sheets(Worksheets.Count)
Gruß Hajo
AW: Tabellenblatt ansprechen, aber nicht anzeigen
20.11.2005 19:55:26
DieterB
Hallo Angela,
Application.ScreenUpdating = False
Baltt einblenden
Application.ScreenUpdating = True
Gruß DieterB
Anzeige
AW: Tabellenblatt ansprechen, aber nicht anzeigen
20.11.2005 20:14:50
angela
Hallo DieterB
vielen Dank für Deine Antwort.
Es geht immoment darum, das versteckte Tab2 zu kopieren in einer anderen Mappe.
Was ja auch geht, solange ich Tab2 nicht versteckt hatte.
Ich drücke nun von Tab1 auf ein Button und es wird das Makro ausgeführt.
Das Makro will nun mit Sheets("Tab2").Select auf das Blatt zugreifen, geht nicht da es versteckt ist. Gelesen hatte ich in der Hilfe das kein SELECT im Makro sein darf.
Hier stopt das Makro auch mit Laufzeitfehler 1004 Select Mehtode konnte nicht ausgeführt werden.
Wie kann ich das Blatt anders ansprechen, ohne Sheets("Tab2").Select
Ich möchte gern erreichen, das Tab2 nicht sichtbar auf dem Bildschirm erscheint.
Mfg. Angela
Anzeige
AW: Tabellenblatt ansprechen, aber nicht anzeigen
20.11.2005 19:57:45
Leo
Sheets("Tab1").[a1:C20].copy Sheets("Tab2").[a1]
mfg Leo
AW: Tabellenblatt ansprechen, aber nicht anzeigen
20.11.2005 20:18:12
angela
Hallo Leo
Danke für die schnelle Antwort.
Es geht mir um das versteckte kopieren des Tab2.
Ich denke da stört das SELECT
Sheets("Tab2").Select
So fängt das Makro an, und hier bekomme ich auch die Fehlermeldung 1004 Laufzeitfehler.
Mfg. Angela
AW: Tabellenblatt ansprechen, aber nicht anzeigen
20.11.2005 20:25:35
Leo
Hi,
wie du da was reinkopieren kannst, hab ich in der anderen Antwort gepostet.
Willst du etwas aus dem Blatt kopiern? Falls ja, wohin?
mfg Leo
@ an Hajo, DieterB und Leo
20.11.2005 20:35:35
angela
Hallo Hajo, DieterB und Leo
erstmal vielen Dank für Eure Mühe mit mir.
Natürlich könnt Ihr nicht aus der Glaskugel lesen, wäre aber nicht schlecht.
Das Makro sieht so aus
Public 

Sub Sicherung()
Application.ScreenUpdating = False    ' Anzeige am Bildschirm deaktivieren
Worksheets("Tab2").Visible = True
Sheets("Tab2").Select
' Application.ScreenUpdating = False    ' Anzeige am Bildschirm deaktivieren
Dim sName As String
Dim sDatum As String
Dim sFolder As String
Dim lSheetsCount As Long
lSheetsCount = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 1
With ActiveSheet
sName = Cells(5, 3)
sDatum = Day(Cells(7, 14).Value) & ".-" & Cells(7, 19).Value
' sDatum = Cells(9, 10)
Range("A1:W54").Copy
Workbooks.Add
With ActiveSheet.Cells(1, 1)
.PasteSpecial Paste:=xlPasteColumnWidths ' Spaltenbreite
.PasteSpecial Paste:=xlPasteValues ' Werte
.PasteSpecial Paste:=xlFormats ' Formate
'.Select
End With
End With
Columns("X:IV").Select
Selection.EntireColumn.Hidden = True
ActiveWindow.SmallScroll Down:=36
Rows("55:170").Select
'Range("C55").Activate
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
Range("C10").Activate
End With
'ActiveWindow.SmallScroll Down:=-36
Application.SheetsInNewWorkbook = lSheetsCount
sFolder = Trim$(fncGetFolder(, , "C:\"))
If sFolder <> "" Then
ActiveWorkbook.SaveAs sFolder & "\" & sName & "-" & sDatum & ".xls"
ActiveWindow.Close
End If
Sheets("Tab2").Visible = xlSheetVeryHidden
Application.ScreenUpdating = True    ' Anzeige am Bildschirm aktivieren
End Sub

mit lieben Grüßen Angela
Anzeige
AW: Tabelle2
20.11.2005 20:51:20
Hajo_Zi
Hallo Angela,
das ist ja nur ein Teil des Codes. Es fehlt fncGetFolder
Option Explicit

Sub Sicherung()
Dim sName As String
Dim sDatum As String
Dim sFolder As String
Dim lSheetsCount As Long
With Sheets("Tab2").Select
lSheetsCount = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 1
With ActiveSheet
sName = .Cells(5, 3)
sDatum = Day(.Cells(7, 14).Value) & ".-" & .Cells(7, 19).Value
' sDatum = Cells(9, 10)
.Range("A1:W54").Copy
Workbooks.Add
With ActiveSheet.Cells(1, 1)
.PasteSpecial Paste:=xlPasteColumnWidths ' Spaltenbreite
.PasteSpecial Paste:=xlPasteValues ' Werte
.PasteSpecial Paste:=xlFormats ' Formate
End With
End With
Columns("X:IV").EntireColumn.Hidden = True
With Rows("55:170").Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
Application.SheetsInNewWorkbook = lSheetsCount
sFolder = Trim$(fncGetFolder(, , "C:\"))
If sFolder <> "" Then
ActiveWorkbook.SaveAs sFolder & "\" & sName & "-" & sDatum & ".xls"
ActiveWindow.Close
End If
End With
End Sub

Gruß Hajo
Anzeige
AW: @ an Hajo, DieterB und Leo
20.11.2005 20:51:55
Leo
Hi,
Option Explicit

Sub Sicherung()
Dim sName As String
Dim sDatum As String
Dim sFolder As String
Dim lSheetsCount As Long
Dim ws As Worksheet
Set ws = Sheets("Tab2")
Application.ScreenUpdating = False    ' Anzeige am Bildschirm deaktivieren
With ws
sName = .Cells(5, 3)
sDatum = Day(.Cells(7, 14).Value) & ".-" & .Cells(7, 19).Value
.Range("A1:W54").Copy
Workbooks.Add (1)
With ActiveSheet.Cells(1, 1)
.PasteSpecial Paste:=xlPasteColumnWidths ' Spaltenbreite
.PasteSpecial Paste:=xlPasteValues ' Werte
.PasteSpecial Paste:=xlFormats ' Formate
End With
End With
Columns("X:IV").Hidden = True
Rows("55:170").Interior.ColorIndex = 15
sFolder = Trim$(fncGetFolder(, , "C:\"))
If sFolder <> "" Then
ActiveWorkbook.SaveAs sFolder & "\" & sName & "-" & sDatum & ".xls"
ActiveWindow.Close
End If
Application.ScreenUpdating = True    ' Anzeige am Bildschirm aktivieren
End Sub

mfg Leo
Anzeige
DANKE, DANKE es klappt
20.11.2005 21:01:51
angela
Hallo,
es klappt endlich mit Eurer Hilfe.
Vielen Dank an Hajo, Leo und DieterB, ihr habt mich auf den richtigen Weg gebracht.
liebe Grüße Angela

11 Forumthreads zu ähnlichen Themen

VBA variables Tabellenblatt ansprechen
Stefan

Hallo zusammen,
ich möchte über Eingabe in Zelle A1 bestimmen aus welchem externen Tabellenblatt Daten eingelesen werden sollen. Leider schaffe ich es nicht die Zelle als Variable zu gestalten:
Public Sub data()
Dim objWB As Workbook, objWS As Worksheet, objWSImport As Worksheet, ob...
16.11.2009 16:14:31
Thread-ID: 1117681
8 Beiträge
Anzeige
VBA Zelle auf anderes Tabellenblatt kopieren
Timonski

Servus...
ich hätte gern beim aktivieren einer Tabelle einen bestimmten Teil eines Zellenwert auf einer anderen Tabelle stehen.
Quellezelle auf Tabellenblatt ABRECHNUNG H6
Ziel auf Tabellenblatt INDEX AY1
meine nicht funktionierende Formel :-)
Sheets("Index").Cells(1, 51) =...
20.03.2012 08:03:41
Thread-ID: 1255689
3 Beiträge
Mittels VBA Werte in anderes Tabellenblatt kopiere
Dominic

Hi zusammen,
Ich benötige eine Übergabe meiner Werte aus dem Tabellenblatt "Überblick" ins Tabellenblatt "Export". Der zu kopierende Bereich ist abhängig von folgenden Zellen:
B1
B2
I1
und B6.
1)
Wenn B1=1 und B2=1 und I2=1
Dann sollen die Werte aus B31 - O31 und...
30.01.2013 11:03:50
Thread-ID: 1296660
11 Beiträge
Anzeige
VBA - Bereiche in anderes Tabellenblatt kopieren
Fred

Hallo VBA Experten,
ich bin mit vba noch nicht soweit, so das ich z.B. mehrere benannte Bereiche in ein anderes Tabellenblatt kopiere, mit der Bedingung, das die Bereiche nebeneinander eingefügt werden, beginnend ab der 2. Zeile.
Also, mal gelistet:
Ich bin in Tabelle „Center“
E...
19.11.2016 23:18:39
Thread-ID: 1525833
13 Beiträge
VBA Formeln in anderes Tabellenblatt schreiben und
Gesa

Hallo zusammen!
Ich benötige mal wieder euer Rudelwissen.
Ich habe eine Datei, in der in Tabelleblatt "Pivot" in den Feldern I4 bis N Zahlen per Formel rauskommen. Nun möchte ich diese Ergebnisse gerne in das Tabellenblatt "Ergebnis S. 1" ab B22 bis G kopieren. Allerdings nur, wenn in d...
21.08.2018 15:06:57
Thread-ID: 1640779
2 Beiträge
VBA - auf anderes Tabellenblatt beziehen
Andy1980

Hallo,
Ich habe eine Ampel mit Hilfe aus diesem Forum gebstalt und würde nun gerne ein Rechteck (auf dem die Farben angezeigt werden), das sich in Tabelle 2 befindet, auf Werte beziehen die sich in Tabelle 1 befinden.
Der VBA Code sieht folgendermaßen aus:
Private Sub Worksheet_Cha...
23.11.2004 17:42:01
Thread-ID: 522019
4 Beiträge
VBA Mehrere Worksheets ansprechen
Karl

Hi,
Ich bin noch nicht solange am VBA programmieren und hätte eine Frage brzüglich des Ansprechens von Worksheets. Im Moment funktioniert die Scleife nur wenn ich mich in dem besagten Worksheet befinde (Comp1). Da ich aber mehrere Worksheets (Comp1, Comp2 , comp & m) ansprechen möchte...
12.03.2005 17:02:35
Thread-ID: 584297
8 Beiträge
VBA Daten in ein anderes Tabellenblatt k
Laura

Hallo Zusammen,
ich bin gerade dabei ein Excel-Planungstool für unser Team zu entwerfen. Die Idee ist, dass man aus einer Liste die Projekte ankreuzen kann (dazu hat jeder Mitarbeiter seine/ihre eigene Spalte mit eigenem Kürzel), an denen man arbeiten, dann sein Kürzel in ein Feld eingibt u...
16.07.2020 09:44:13
Thread-ID: 1771886
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
8
2
10
5
12
1
3
7
3
2