Feld auf Blatt2 anwählen per Makro -> "Range("B5").Select auf Blatt2"

[o0Julia0o]

hi,

ein Feld auf dem aktivem Blatt anwählen ist einfach:

Code:

Range("B5").Select

Aber wie wähle ich nun ein Feld auf einem bestimmtem Blatt an, z.B. Blatt2?

lieben Dank

Julia :)

[Steffl]

Hallo Julia,

Du brauchst nicht Aktivieren und Selektieren: Siehe hier.

[o0Julia0o]

danke, dann erhalte ich allerdings eine Fehlermeldung -> debuggen.

Mein Versuch sieht so aus:

Code:

Sub Makro5()
'
' Makro5 Makro
'

'
    Sheets("Namen").Range("B5").Selection.Copy
    Sheets("Namen").Range("A5").Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

-es soll nur der Wert kopiert werden, nicht das Format.

[Basisa]

Hi.... versuche es mal so:

ThisWorkbook.Worksheets("Blatt1").Range("A1").Value = ThisWorkbook.Worksheets("Blatt2").Range("C23").Value

oder in kurz

sheets("Blatt1").Range("A1").Value = sheets("Blatt2").Range("C23").Value

----------------------------

Wenn du wirtlich nur eine Zelle anwählen willst dann so:
sheets("Blatt1").Range("A1").select

[o0Julia0o]

Danke! Das funktioniert bestens & ist viel kürzer als mein inwzsichen erarbeitetes:

Code:

Sub Makro5()
'
' Makro5 Makro
'

'
Sheets("Namen").Select
Range("B5").Select
Selection.Copy
Range("A5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

..wo ja wieder das überflüssige Select mit drin ist.

[Steffl]

Hallo,

..wo ja wieder das überflüssige Select mit drin ist.

und so geht es ohne

Code:

Sub Makro_ohne_Select()
'
' Makro ohne Select
'

'
Worksheets("Namen").Range("B5").Copy
Worksheets("Namen").Range("A5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Sub Makro_ohne_Select_mit_With()
'
' Makro mit With
'

'
With Worksheets("Namen")
   .Range("B5").Copy
   .Range("A5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
           :=False, Transpose:=False
End With
End Sub

[o0Julia0o]

viel einfacher, so geht ohne:

Code:

sheets("Namen").Range("A5").Value = sheets("Namen").Range("B5").Value

[snb]

Code:

Sub M_snb()
   [b5]=[A5].value
end sub

[o0Julia0o]

...dann fehlt aber die korrekte Blattangabe!

[snb]

Nicht wenn es im korrekten Codemodule gespeichert ist.


Schau mal:
http://www.amazon.de/Excel-VBA-f%C3%BCr-...3527709282