Zelle markieren

Forumthread: 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

AW: Zelle markieren

07.11.2003 10:17:14

Hajo_Zi
wieso sinnos - wie dann?

07.11.2003 10:34:30

Tobias
AW: wieso sinnos - wie dann? z.B. So:

07.11.2003 10:41:11

Galenzo
Pastespecial

07.11.2003 11:08:46

Tobias
AW: Pastespecial

07.11.2003 11:21:42

Hajo_Zi
AW:

07.11.2003 11:54:22

Tobias
Ohne Select und Copy/PasteSpecial

07.11.2003 15:31:26

Martin Beck
AW: Zelle markieren - sollte geh'n..

07.11.2003 10:18:00

Galenzo

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!

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

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

Beliebteste Forumthreads (12 Monate)

Forumthread: Zelle markieren

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

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread