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
______________________________
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
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
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
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!
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!!
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
Vielen Dank,
funktioniert!!