Registriert seit: 08.07.2016
Version(en): 2016
14.02.2017, 14:20
hi,
ein Feld auf dem aktivem Blatt anwählen ist einfach:
Aber wie wähle ich nun ein Feld auf einem bestimmtem Blatt an, z.B. Blatt2?
lieben Dank
Julia :)
Registriert seit: 11.04.2014
Version(en): Office 2007
Hallo Julia,
Du brauchst nicht Aktivieren und Selektieren: Siehe
hier.
Gruß Stefan
Win 10 / Office 2016
Registriert seit: 08.07.2016
Version(en): 2016
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.
Registriert seit: 14.02.2017
Version(en): Office 365
14.02.2017, 18:06
(Dieser Beitrag wurde zuletzt bearbeitet: 14.02.2017, 18:06 von 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
Registriert seit: 08.07.2016
Version(en): 2016
14.02.2017, 19:06
(Dieser Beitrag wurde zuletzt bearbeitet: 14.02.2017, 19:07 von 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.
Registriert seit: 11.04.2014
Version(en): Office 2007
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
Registriert seit: 08.07.2016
Version(en): 2016
14.02.2017, 19:51
(Dieser Beitrag wurde zuletzt bearbeitet: 14.02.2017, 19:52 von o0Julia0o.)
viel einfacher, so geht ohne:
Code:
sheets("Namen").Range("A5").Value = sheets("Namen").Range("B5").Value
Registriert seit: 29.09.2015
Version(en): 2030,5
14.02.2017, 21:59
(Dieser Beitrag wurde zuletzt bearbeitet: 14.02.2017, 21:59 von snb.)
Code:
Sub M_snb()
[b5]=[A5].value
end sub
Registriert seit: 08.07.2016
Version(en): 2016
...dann fehlt aber die korrekte Blattangabe!
Registriert seit: 29.09.2015
Version(en): 2030,5
16.02.2017, 00:25
(Dieser Beitrag wurde zuletzt bearbeitet: 16.02.2017, 00:26 von snb.)
Nicht wenn es im korrekten Codemodule gespeichert ist.
Schau mal:
http://www.amazon.de/Excel-VBA-f%C3%BCr-...3527709282