Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
332to336
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
332to336
332to336
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelle markieren

Zelle markieren
07.11.2003 10:12:19
Tobias
Hallo @all

wieso kann ich so keine Zelle markieren (sub steht in einem module)? ich muss immer das sheet vorher selektieren (mit Sheets("sheet1").Select)..

Sheets("sheet1").Cells(namez, names).Select

danke fürs lesenund antworten!

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

Betreff
Datum
Anwender
Anzeige
AW: Zelle markieren
07.11.2003 10:17:14
Hajo_Zi
Hallo Tobias

in VBA is zu 99% select, activate usw. sinnlos.

Selektieren kannst Du nur auf dem aktiven Blatt.

Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


wieso sinnos - wie dann?
07.11.2003 10:34:30
Tobias
hi!

du sagst: in VBA is zu 99% select, activate usw. sinnlos.

wie kopiere ich dann eine Zelle von einem sheet in ein anderes?

danke fürs lesen und antworten!
Anzeige
AW: wieso sinnos - wie dann? z.B. So:
07.11.2003 10:41:11
Galenzo
Sheets("Tabelle1").Cells(1, 1).Copy Destination:=Sheets("Tabelle2").Cells(10, 10)
Pastespecial
07.11.2003 11:08:46
Tobias
Danke!

wie schreibe ich das jetzt mit dem PasteSpecial befehl?

ich habe folgende Zeilen:

Sheets("Sheet1").Cells(1001, 1).Select
Selection.Copy
Sheets("Sheet1").Cells(tmpzneu + 1, tmpsneu + 19).Select
Selection.PasteSpecial Paste:=xlPasteValues

danke fürs lesen und antworten!!
AW: Pastespecial
07.11.2003 11:21:42
Hajo_Zi
Hallo Tobias


Sub Werte_Format()
'   Formeln ersetzen durch Werte mit Formate
Workbooks("Datei1.xls").Worksheets("Tabelle1").Range(Sheets("Tabelle1").UsedRange.Address).Copy
With Workbooks("Datei2.xls").Worksheets("Tabelle1").Range("A1")
.PasteSpecial Paste:=xlValues           ' Werte
.PasteSpecial Paste:=xlFormats      ' Formate
End With
Application.CutCopyMode = False
End Sub


Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


Anzeige
AW:
07.11.2003 11:54:22
Tobias
Hi!

ich dachte eher an sowas:
Sheets("Sheet1").Cells(1001, 1).Copy Sheets("Sheet1").Cells(tmpzneu + 1, tmpsneu + 19).PasteSpecial Paste:=xlPasteValues

aber das geht nicht...

danke fürs lesen und antworten
Ohne Select und Copy/PasteSpecial
07.11.2003 15:31:26
Martin Beck
Hallo Tobias,

so geht's auch:


Sub Kopieren_ohne_Select_und_Copy()
Worksheets("Tabelle2").Cells(4, 6) = Worksheets("Tabelle1").Cells(14, 2).Value
End Sub


Gruß
Martin Beck
AW: Zelle markieren - sollte geh'n..
07.11.2003 10:18:00
Galenzo
Hallo,
das geht:
Sheets("Tabelle1").Cells(1, 1).Select
oder ein Bereich:
Sheets("Tabelle1").Range(Cells(1, 1), Cells(10, 10)).Select

mfg
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige