Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 09:31:31
Bild "In Zelle platzieren"
25.04.2024 09:23:47
Spalten in Kreuztabelle hinzufügen/löschen je nach Vorgabe
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
444to448
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
444to448
444to448
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Active Worksheet

Active Worksheet
25.06.2004 13:14:23
Klaus
Guten Tag,
mittels activecell.copy kopiere ich einen Wert von einem der Tabellenblätter KLASSE1 bis z.B. Klasse5 in ein zweites Tabellenblatt namens "MELDUNG". Wie muss ich eine Variable deklarieren, damit VBA nach dem Kopiervorgang wieder auf das ursprüngliche Arbeitsblatt springt. Es heißt ja nicht unbedingt Klasse1.
Ich habe erfolglos zu Beginn des Makros versucht.
ActiveWorksheet="Klasse"
Vielen Dank und Gruß
KlausK

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Active Worksheet
25.06.2004 13:15:48
Annett
Hallo Klaus
Du brauchst das Blatt nicht wechseln schaue mal in die Hilfe unter Copy
Gruß Annett
Falls Code vorhanden wurde der unter Excel 2003 getestet
AW: Active Worksheet
KlausK
Hallo Annett,
vielen Dank für Deine schnelle Reaktion. Das Makro soll aus jedem der Arbeitsblätter KLASSE xy funktionieren. Es müssen auch unterschiedliche Kopiervorgänge ablaufen (Alles und dann NUR-WERTE).

Sub Makro1()
activeworksheet = "klasse" ´hier sollte die variable hin
Rem kopiert uhrzeit
ActiveCell.Copy             ´hier wird aus dem jeweiligen kopiert
Sheets("Meldung").Select
Range("J13").Select
ActiveSheet.Paste
Rem kopiert startnummer
Sheets("klasse").Select
ActiveCell.Offset(0, 1).Copy
Sheets("Meldung").Select
Range("J5").Select
ActiveSheet.Paste
Rem kopiert name
Sheets("klasse").Select
ActiveCell.Offset(0, 2).Copy
Sheets("Meldung").Select
Range("B7").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Rem kopiert posten
Sheets("klasse").Select
ActiveCell.Offset(0, 3).Copy
Sheets("Meldung").Select
Range("B19").Select
ActiveSheet.Paste
Rem kopiert text
Sheets("klasse").Select
ActiveCell.Offset(0, 4).Copy
Sheets("Meldung").Select
Range("F19").Select
ActiveSheet.Paste
Range("A1").Select
Rem setzt x auf Teilnehmer
Range("B11") = "X"
Range("C15") = "X"
Application.CutCopyMode = False
End Sub

Gruss aus Ffm.
KlausK
Anzeige
AW: Active Worksheet
25.06.2004 13:26:14
Annett
Hallo Klaus
meinen ersten Beitrag hast Du schon gelesen?
ActiveCell.Copy Destination:=Sheets("Meldung").Range("J13")
Gruß Annett
Falls Code vorhanden wurde der unter Excel 2003 getestet
AW: Active Worksheet
KlausK
Hallo Annett,
nun habe ich verstanden. 1000 Dank nicht nur für diesen Tipp von Dir, ich habe schon viel aus Deinen Antworten gelernt.
Gruss
KlausK

91 Forumthreads zu ähnlichen Themen

Sheetcode in VBA project schreiben
Dirk

Hallo Forum,
ich habe mal wieder ein Problem und brauche Eure Hilfe.
Ich versuche per VBA Macrocode in ein Sheet zu schreiben. Das funktioniert auch fuer den ersten Schleifendurchlauf meines Programms. Beim zweiten durchlauf stuerzt Excel leider ab :-(
Woran koennte das liegen? Anb...
27.08.2008 14:10:00
Thread-ID: 1005083
5 Beiträge
Anzeige
VBA Befehl in mehreren Sheets ausführen
Tom

Hallo zusammen,
ich habe folgendes Problem:
Ich habe ein Makro aufgezeichnet wo er mir in den Sheets 1 - 24 (so habe ich sie genannt) Spalten ausblenden soll. Wärend der Aufnahme zeigt er mir auch in den Sheets an, das die gewünschten Spalten ausgeblendet sind. Wenn ich das Makro jetzt...
16.03.2009 10:46:16
Thread-ID: 1060630
8 Beiträge
2 VBA Befehle in einem Worksheet
Reinhardt

Liebe Excelgemeinde,
ich habe ein (hoffentlich) einfaches Problem:
Ich habe eine VBA Code, der mir bestimmte Werte anzeigt, Name: Gültigkeitsliste / Filterdropdown
sitzt in "Q5".
Nun soll im selben Tabellenblatt ein zweiter Filter reingesetzt werden (Zelle "S5"), der zusätzlic...
19.08.2009 11:50:28
Thread-ID: 1097047
12 Beiträge
Anzeige
ActiveCell.Copy Sheets("tabelle1").Range("A20")
Karsten

Hallo...
kann mir jemand u.st. Code so ändern, dass nicht nur die aktive Zelle, sondern ein markierter Bereich nach A20 kopiert wird?
Geht es, statt die Zellen ab Zeile 20 zu überschreiben, den kopierten Bereich einzufügen bzw. ab Zeile 20 erst mal die nötige Anzahl Zeilen einzufügen?
15.09.2010 21:10:06
Thread-ID: 1177926
6 Beiträge
activesheet.Pictures.Insert in Excel 2010
Ralf

Hi ihr alle,
in Excel 2010 fügt activesheet.Pictures.Insert(sDatei) das Bild nur noch
als link ein. Die Folge: wird die Bilddatei gelöscht oder verschoben gibts beim nächsten
öffnen der Exceldatei nur noch den leeren Rahmen mit dem schönen Roten X.
Das Bild soll aber auch mit Ex...
02.11.2010 11:01:24
Thread-ID: 1184812
3 Beiträge
pdf-Druck activeSheet plus ein konstantes Sheet
Heinz

Hallo!
Ich möchte gerne mit dem office_pdf_addin aus einer Exel-Datei
das jeweils active sheet (variiert von 1-100) plus ein immer gleiches sheet z.B. sheet 95 eine pdf-datei drucken, also z.B sheet 3 + sheet 95, sheet 23 + sheet 95, sheet xx + sheet 95, usw. Die sheets haben natürlich...
19.02.2011 19:19:00
Thread-ID: 1201887
3 Beiträge
Activesheet.paste updatelink=false
Beffen

Hallo an alle,
ich habe die Codezeile
ActiveSheet.Paste in meinem Code.
Leider fragt er beim Einfügen nach einer Aktualisierung. Diese Abfrage nervt und wird mit "abbrechen" beantwortet.
Updatelinks=false funktioniert an dieser Stelle so nicht. Weder drunter, noch drüber, noch...
14.07.2011 12:22:45
Thread-ID: 1222107
3 Beiträge
ActiveSheet.Pictures.Insert - Laufzeitfehler
Juppdietz

Hallo,
ich passe gerade ein Makro an, dass unter Excel 2003 problemlos lief und nun bei Excel 2010 einen Laufzeitfehler 1004 liefert.
Es geht um das Einfügen von Grafiken an einer bestimmten Stelle.
Der bisherige Quellcode:
Range("C51").Select
ActiveSheet.Pictures.Insert(Th...
06.06.2012 10:11:20
Thread-ID: 1266340
5 Beiträge

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
4
5
7
11
7
5
2
2
2
4
9
12
1
5
4
3
4
8
3
5
1
5
4
2
9