Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Makro kopieren und einfügen
#1
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
______________________________
Antworten Top
#2
Hi

hier beginnt das Makro in Zelle A2
PHP-Code:
Sub test()
 
   Dim lngZiel As Long
    With Sheets
("Tabelle2")
 
       lngZiel = .Cells(.Rows.Count1).End(xlUp).Row 1
        
.Cells(lngZiel1).Value Range("A1").Value
    End With
End Sub 
MfG Tom
Antworten Top
#3
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
Antworten Top
#4
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
Antworten Top
#5
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:
  • Max1710
Antworten Top
#6
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!!
Antworten Top
#7
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:
  • Max1710
Antworten Top
#8
Vielen Dank,

funktioniert!!
Antworten Top


Gehe zu:


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