Registriert seit: 28.04.2016
Version(en): 2013
Hallo liebe Kollegen,
ich möchte gerne eine Spalte A1 von Blatt1 in Blatt2 A1 kopieren.
Dann Spalte A1 in Blatt1 manuell bearbeiten und dann durch das makro in A2 Blatt2 reinkopieren.
Kann mir da jemand helfen
_______________________
Sub Makro4()
'
' Makro4 Makro
'
'
Range("R14:R128").Select
Range("R128").Activate
Selection.Copy
Sheets("Tabelle1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
______________________________
Registriert seit: 12.04.2014
Version(en): Office 365
Hi
hier beginnt das Makro in Zelle A2
PHP-Code:
Sub test()
Dim lngZiel As Long
With Sheets("Tabelle2")
lngZiel = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(lngZiel, 1).Value = Range("A1").Value
End With
End Sub
MfG Tom
Registriert seit: 28.04.2016
Version(en): 2013
Das funktioniert leider nicht.
gewollt ist:
1. betätigen des Butten
Spalte A1 Blatt1 ---> in spalte A1 Blatt2 kopieren
2. betätigen des Buttens
Spalte A1 Blatt 1 ---> in Spalte A2 Blatt2 kopieren
3. betätigen des Buttens
Spalte A1 Blatt 1 ---> in Spalte A3 Blatt2 kopieren
Also die Werte verändern sich in A1 sollen aber gesichert werden in Blatt 2
Registriert seit: 12.04.2014
Version(en): Office 365
Hallo
was heißt funktioniert nicht?
du schreibst in Zelle A1 einen Wert
klickst auf den Button und der Wert wird in Tabelle2 in Zelle A2 geschrieben
dann änderst du den Wert in Zelle A1 und beim Klick wird der Wert in Zelle A3 geschrieben
und so weiter und so weiter
MfG Tom
Registriert seit: 10.04.2014
Version(en): 2016 + 365
Hi Max,
(23.05.2016, 14:40)Max1710 schrieb: Spalte A1 Blatt1 ---> in spalte A1 Blatt2 kopieren
Spalte A1 Blatt 1 ---> in Spalte A2 Blatt2 kopieren
Spalte A1 Blatt 1 ---> in Spalte A3 Blatt2 kopieren
Als Tipp:
Spaltenbezeichnungen sind immer Buchstaben ohne Zahlen!
Zeilenbezeichnungen sind immer Zahlen ohne Buchstaben!
Kombination von Buchstabe(n) und Zahle(n) sind immer Zellen.
Und das Makro von Tom macht genau das, was Du willst. Du mußt nur das Makro einem Button zuweisen!
Folgende(r) 1 Nutzer sagt Danke an Rabe für diesen Beitrag:1 Nutzer sagt Danke an Rabe für diesen Beitrag 28
• Max1710
Registriert seit: 28.04.2016
Version(en): 2013
23.05.2016, 15:13
(Dieser Beitrag wurde zuletzt bearbeitet: 23.05.2016, 15:14 von Max1710.)
Das ist natürlich mein Fehler!!!
Tut mir leid!
Vielleicht schreibe ich es besser so:
A1:A100 aus Blatt1 soll in A1:A100 Blatt2 kopiert werden.
beim 2. mal soll
A1:A100 aus Blatt 1 in B1:B100 Blatt 2 kopiert werden. und so weiter...
hab wohl mein Anliegen falsch beschrieben. SORRY!!
Registriert seit: 12.04.2014
Version(en): Office 365
Hi
dann probiere das hier mal
Code:
Sub test()
Dim intZiel As Integer
With Sheets("Tabelle2")
Application.ScreenUpdating = False
If .Range("A1").Value = "" Then
intZiel = 1
Else
intZiel = .Cells(1, .Columns.Count).End(xlToLeft).Column + 1
End If
Range("A1:A100").Copy
.Cells(1, intZiel).PasteSpecial Paste:=xlValues
Application.ScreenUpdating = True
Application.CutCopyMode = False
End With
End Sub
MfG Tom
Folgende(r) 1 Nutzer sagt Danke an Crazy Tom für diesen Beitrag:1 Nutzer sagt Danke an Crazy Tom für diesen Beitrag 28
• Max1710
Registriert seit: 28.04.2016
Version(en): 2013
Vielen Dank,
funktioniert!!