Feld auf Blatt2 anwählen per Makro -> "Range("B5").Select auf Blatt2"
#1
Question 
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 :)
Top
#2
Hallo Julia,

Du brauchst nicht Aktivieren und Selektieren: Siehe hier.
Gruß Stefan
Win 10 / Office 2016
Top
#3
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.
Top
#4
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
Top
#5
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.
Top
#6
Hallo,

(14.02.2017, 19: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
Gruß Stefan
Win 10 / Office 2016
Top
#7
viel einfacher, so geht ohne:

Code:
sheets("Namen").Range("A5").Value = sheets("Namen").Range("B5").Value
Top
#8
Code:
Sub M_snb()
   [b5]=[A5].value
end sub
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Top
#9
...dann fehlt aber die korrekte Blattangabe!
Top
#10
Nicht wenn es im korrekten Codemodule gespeichert ist.


Schau mal:
http://www.amazon.de/Excel-VBA-f%C3%BCr-...3527709282
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 2 Gast/Gäste