Zelle markieren

Bild

Betrifft: Zelle markieren
von: Tobias
Geschrieben am: 07.11.2003 10:12:19

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!

Bild


Betrifft: AW: Zelle markieren
von: Hajo_Zi
Geschrieben am: 07.11.2003 10:17:14

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




Bild


Betrifft: wieso sinnos - wie dann?
von: Tobias
Geschrieben am: 07.11.2003 10:34:30

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!


Bild


Betrifft: AW: wieso sinnos - wie dann? z.B. So:
von: Galenzo
Geschrieben am: 07.11.2003 10:41:11

Sheets("Tabelle1").Cells(1, 1).Copy Destination:=Sheets("Tabelle2").Cells(10, 10)


Bild


Betrifft: Pastespecial
von: Tobias
Geschrieben am: 07.11.2003 11:08:46

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!!


Bild


Betrifft: AW: Pastespecial
von: Hajo_Zi
Geschrieben am: 07.11.2003 11:21:42

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




Bild


Betrifft: AW:
von: Tobias
Geschrieben am: 07.11.2003 11:54:22

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


Bild


Betrifft: Ohne Select und Copy/PasteSpecial
von: Martin Beck
Geschrieben am: 07.11.2003 15:31:26

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


Bild


Betrifft: AW: Zelle markieren - sollte geh'n..
von: Galenzo
Geschrieben am: 07.11.2003 10:18:00

Hallo,
das geht:
Sheets("Tabelle1").Cells(1, 1).Select
oder ein Bereich:
Sheets("Tabelle1").Range(Cells(1, 1), Cells(10, 10)).Select

mfg


Bild

Beiträge aus den Excel-Beispielen zum Thema " Zelle markieren"