Clever-Excel-Forum

Normale Version: Feld auf Blatt2 anwählen per Makro -> "Range("B5").Select auf Blatt2"
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Seiten: 1 2
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 :)
Hallo Julia,

Du brauchst nicht Aktivieren und Selektieren: Siehe hier.
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.
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
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.
Hallo,

(14.02.2017, 18:06)o0Julia0o schrieb: [ -> ]..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
viel einfacher, so geht ohne:

Code:
sheets("Namen").Range("A5").Value = sheets("Namen").Range("B5").Value
Code:
Sub M_snb()
   [b5]=[A5].value
end sub
...dann fehlt aber die korrekte Blattangabe!
Nicht wenn es im korrekten Codemodule gespeichert ist.


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