Zelleninhalt mit Makro/ Vba verschieben

Moin,

ich hab folgendes Problem, und zwar möchte ich eine Makrofunktion erstellen mit der man den Zellinhalt einer markierten Zelle in eine andere frei wählbare Zelle kopieren kann. Bis jetzt sieht meine Funktion so aus:

Sub Makro()

Dim Quellbereich As Range Set Quellbereich = ActiveCell

Quellbereich.Copy Range("C1").Select Selection.PasteSpecial Paste:=x1Values, Operation:=x1None, SkipBlanks:= False, Transpose:=False Application.Cutcopymode = False Quellbereich.Select Quellbereich = "" Range("C1").Select

End Sub

Jetzt ist meine Frage, wie ich "Range("C1") auch über die Auswahl mit der Maus steuern kann. Ich stell mir das mit Pause/Wait und Input neue Zellenauswahl oder so vor. Evnt. auch das man das Makro wie bisher über Strg+y startet und anschließend die Quell und die Zielzelle nach einander markiert.

2 Antworten

Ragnar12983

Nutzer, der sehr aktiv auf gutefrage ist

im Thema Microsoft Excel

10.08.2011, 22:47

Du musst dich im Makro halt nur auf "Selection" beziehen (und im Makro selbst kein "Select" machen), dann wird halt das Selektierte als Ausgangsbereich genommen.

Gruß Ragnar

DeadXDevil

Fragesteller

10.08.2011, 22:56

Ok und das heißt für einen absoluten Neuling in Vba was? :-)

Ragnar12983

11.08.2011, 14:07

@DeadXDevil

Das heißt dann wohl vor allem: Kauf dir ein gutes Buch und arbeite dich in VBA ein - das Excel-Objektmodell lässt sich nicht in 3 Sätzen erklären.

Gruß Ragnar

Iamiam

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

12.08.2011, 12:38

damit Du erst mal weiter üben kannst:
der VBA-Befehl für die Einzelzelle anstatt .Range("..")ist entweder
.ActiveCell
oder
.Selection
Selection kann einen beliebigen Bereich umfassen, activecell kann auch die aktive Zelle in einer größeren Selection sein (wenn Du also einen Bereich markierst, zunächst die erste Zelle, bei jedem Enter verschiebt sich die aber eins nach unten.)

Die Kopie eines Wertes aus der aktiven Zelle nach zwei drunter und eins daneben heißt:

.activecell.offset(2,1).value = Activecell.value

über .value hinaus kannst Du auch .Formula oder .Formulalocal verwenden, aber da musst Du jetzt selbst weiterspielen, sonst wirds endlos. Ich denke, Du hast jetzt erst mal was zum Üben.
Trotzdem: kauf Dir ein gutes Buch, Du wirst nie gut ohne! (ich hab mich mal an Kofler gehalten, aber das war vor über 10 Jahren... Gibt sicher auch was in der Bibliothek! Dann aber Heft führen, nicht nur in Datei notieren, hab ich auch mal gemeint und schlechte Erfahrungen damit gemacht)

Das mit Quell- UND Zielzelle ist im Moment noch etwas schwierig für Dich, geht aber später. Musst nur genau definieren, wohin (relativ?)

Hallo zusammen,

ich suche eine Lösung um eine Schaltfläche mit folgender Funktion in meinen Code zu integrieren.

Klick auf schaltfläche --> Mache X
Klick auf Schaltfläche --> Mache Y

wie geht das am einfachsten?

_________________________________________________________

Anbei mein Code:

Sub NeuePosHinzu()

' NeuePosHinzu Makro

'1. Klick

Range("A1:F4").Select

Selection.Copy

Range("B8").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

' Soll beim 2. Klick auf den Button ausgelöst werden

Range("A1:F4").Select

Selection.Copy

Range("B14").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

' Soll beim 3. Klick auf den Button ausgelöst werden

Range("A1:F4").Select

Selection.Copy

Range("B20").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("A14:G17").Select

Application.CutCopyMode = False

Selection.Copy

Range("A20:G23").Select

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False

Range("A20").Select

ActiveCell.FormulaR1C1 = "Pos. 3"

'Soll beim 4. Klick auf den Button ausgelöst werden

Range("A1:F4").Select

Selection.Copy

Range("B26").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("A20:G23").Select

Application.CutCopyMode = False

Selection.Copy

Range("A26:G29").Select

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False

Range("A26").Select

ActiveCell.FormulaR1C1 = "Pos. 4"

Range("I21").Select

End Sub

...zur Frage

Excel VBA Makro Code?

Guten Tag zusammen,

Undzwar geht es darum das ich ein Makro erstellt habe der sieht so aus :

Sub Makro1()

' Makro1 Makro

Range("D3").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("1M").Select

Range("C6").Select

ActiveSheet.Paste

Sheets("Tabelle1").Select

Range("J3").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("1M").Select

Range("C7").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Sheets("Tabelle1").Select

Range("R3").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("1M").Select

Range("C13").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("D26").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("Tabelle1").Select

Range("H3").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

End Sub

Das Problem ist jetzt das ich möchte das er in der Excel Tabelle jede Zeile mit diesem Makro ausfüllt sprich er soll bei Zeile 3 anfangen und bis 322 weiterführen ich habe 2 Mappen 1. "Tabelle1" und "1M"

Tabelle1 hatt die 322 Zeilen aber er springt nicht zur jeder Zeile und die Zelle "D3" , "J3", "R3", "H3" sollten dann auf die nächste Zeile Springen Sprich "D4", "J4" , "R3" , "H4" wenn er auch in der 4 Zeile ist

die restlichen Zellen sollen festbleiben zugehörig zu Mappe "1M"

ich hoffe es ist verständlich was ich meinte :'D

...zur Frage

Kopieren und auf andere Tabelle einfügen per VBA

Hei Leute, habe in Tabelle 3 im Bereich B5:C30 Texte stehen die ich ab der ersten freien Zelle in der Tabelle 1 der Spalte A einfügen muss. Dies muss ich ca. 100 mal machen, daher möchte ich es nicht von Hand machen. Habe schon selber probiert aber irgend etwas ist falsch, das Makro kopiert geht in die freie Zelle Tabelle1 Spalte A , aber fügt nicht ein. Kommt der Fehler Laufzeitfehler.

Sub umwechseln()

' umwechseln Makro

Dim s As String Dim i As Long

Range("A5:A29").Select
Application.CutCopyMode = False
Selection.Copy
Range("C5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B5:C30").Select
 Sheets("Tabelle1").Select
    With ActiveSheet
i = 0
Do
    i = i + 1
    s = Cells(i, "A")
    If Len(s) = 0 Then
        Cells(i, "A").Select
        
        Exit Do
    End If
Loop While i < 65535End With   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False Sheets("Tabelle3").Select
Range("E10").Select

End Sub

Sorry wenn das nicht gut dargestellt ist...weis nicht wie man aus VBA kopiert und hier in welchen Format einfügt.

Gruß Monkee

...zur Frage

Werte aus Tabelle mit Makro archivieren?

Hallo Zusammen, ich habe mir ein Makro aufgezeichnet, welches Werte aus einer Tabelle in ein anderes Tabellenblatt kopiert. Die Werte in der Ursprungstabelle ändere ich aber ständig und ich will, dass beim aktivieren des Makros, die zuvor kopierten Werte nicht überschrieben werden sondern neben den bereits "archivierten" Werten eingefügt wird. So sieht das Makro bis jetzt aus:

Sub test() ' test Makro Range("C5:D19").Select Selection.Copy Sheets("Tabelle1").Select Range("A2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Tabelle2").Select Range("A7:B8").Select Application.CutCopyMode = False Selection.Copy Sheets("Tabelle1").Select Range("A18").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Tabelle2").Select Application.CutCopyMode = False Range("C7:C19").Select Selection.ClearContents Range("C7").Select Sheets("Tabelle1").Select Range("D2").Select Sheets("Tabelle2").Select End Sub

Problem ist, dass die alten Werte in dem neuen Tabellenblatt immer überschrieben werden. Könnt Ihr mir eine Funktion nennen, damit die Werte nicht überschrieben werden, sondern bei jedem mal ausführen des Makros die Werte in eine neue Spalte kopiert werden.

Vielen Dank im Voraus. Grüße Stephan

...zur Frage

Wie erstelle ich eine variable intelligente Tabelle?

Eine Bestandsauswertung wird in Excel(2010) ausgegeben und tägl. in meine zu analysierende Tabelle in einem Blatt (Abl.Schleifpuffer) abgelegt bzw. überschrieben. In diesem Blatt soll mittels VBA eine intelligente Tabelle erstellt werden.

Per Aufzeichnung klappt das ganz gut, nur gibt es da paar Haken:

sollte sich die Auswertung (Quelle) ändern aufgrund Programmanpassungen, verschieben sich auch die Zellen. So beginnt sie nicht von A11 sondern evtl. von B12
erstelle ich eine intelligente Tabelle, so gibt mir das Makro immer die Größe von der zuerst erstellten Tabelle "$A$11:$N$853" wieder, sodass bei der nächsten Auswertung die Zeilen ab 854 gar nicht mit einfließen. D.h. die Auswertung wird tägl. gemacht und die Länge ist definitiv variabel.

Wie bekomme ich Excel dazu das er automatisch erkennt "Ab Spalte A und Zeile 11 beginnt die Tabelle" und endet bei Spalte A und Zeile 999.

Derzeit ist die Aufzeichnung so verlaufen:

    Sub konvertiere_Abl_als_Tabelle()
'
' konvertiere_Abl_als_Tabelle Makro
'

'
    Sheets("Abl. Schleifpuffer").Select
    Range("A11").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$11:$N$853"), , xlYes).Name = _
        "Abl.Schleifpuffer"
    Range("Abl.Schleifpuffer[#All]").Select
End Sub

Für eure Unterstützung wäre ich sehr dankbar.

...zur Frage

Brauche einen Excel Makro zum wechseln von Tabellen?

Kurzgefasst brauche ich einen Makro mit folgender Logik:

Wenn irgendeine Zelle angeklickt wird, worin die ersten drei Zeichen identisch sind wie mit einem Tabellenblatt, dann soll zu dem Tabellenblatt gewechselt werden.

Also Zelle A1 heißt zum Beispiel "AAA_Tabelle1".
Klickt man nun auf A1, soll Excel zum Tabellenblatt mit dem Namen "AAA" springen.
Und dies bitte automatisiert. Denn manuell könnte ich es auch machen, aber dann wären halt alle Werte fest und nicht variabel. Mein manueller/nicht flexibler Code lautet:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If ActiveCell Like "AAA*" Then
Sheets("AAA").Select
End If
End Sub

Vielen Dank im Voraus

...zur Frage

VBA Code: Zeilen mit Inhalt "leer" löschen?

Hallo an Alle,

kurz zur Erklärung: Ich füge Daten (immer 4 Zeilen) in eine "Datenbank" ein, allerdings, wenn nicht alles ausgefüllt wird, erscheint als Platzhalter "leer". Diese möchte ich gleich im Anschluss löschen, dass es keine weiteren Formeln durcheinander bringt bzw. weil er mir dann bei der nächsten Suche von einer leeren Zeile immer unterhalb der 4 Zeilen springt (wenn ich nicht mit "leer" fülle). :(

Ich habe jetzt schon mehreres probiert, aber entweder es löscht mir die Zeilen nicht oder es löscht auch Zeilen die eingefügt bleiben sollen... Bitte um fachmännische Hilfe. Bitte, DANKE!

Gerne umgehe ich auch "leer", wenn ich dann zumindest wirklich immer in der letzten freien Zeile bin...

Hier der momentan Code:

Range("N3:AE6").Select

Selection.Copy

Sheets("Datenbank").Select

Range("A520").Select

Cells(65000, 1).End(xlUp).Offset(1, 0).Select

Dim last As Integer

last = Cells(Rows.Count, 1).End(xlUp).Row + 1

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

If Cells(last).Value = "leer" Then

Rows(last).Delete Shift:=xlUp

End If

Sheets("BestandsKunde").Select

Range("H43").Select

End Sub

Lg, B

...zur Frage

Excel VBA Einträge als Liste untereinander kopieren?

Hay zusammen,

meine Frage ist wie kann ich die Werte Links in der Tabelle rechts untereinander einfügen? Es muss eine Abfrage erfolgen ob die Zeile leer ist und wenn nicht, dann darunter einfügen.

Habe da ein Makro gefunden aber vielleicht kann mir jemand sagen wie der funktioniert. Kenne mich damit nicht aus. Habe die Werte geändert (Zellenangaben) und trotzdem fügt er die Daten untereinander ein.

Sub Makro2()
'
' Makro2 Makro
'
' Tastenkombination: Strg+e
'
Dim Zelle As Range
Dim Bereich As Range
Set Bereich = Range("J3:N3")
For Each Zelle In Bereich
    If IsEmpty(Zelle) Then Exit For
Next Zelle
With ActiveSheet
    .Range("A3:E3").Copy
    Zelle.PasteSpecial Paste:=xlPasteAll, Transpose:=True
    .Range("A3:E3").ClearContents
End With
Application.CutCopyMode = False
End Sub

Verstehe das System nicht ganz.

Kurz: Durch Klick auf Buchen sollen die Werte rechts eingefügt werde. Untereinander bei jeder weiteren Buchung.

...zur Frage

Wie der Makro soll bestimmte Zellen ignorieren, wie mache ich das

Hallo an alle klugen Köpfe,

ich habe ein Makro erstellt, dass von einer Tabelle die Daten in die ne andere Tabele exportiert. was auch ganz gut klappt!

ich möchte aber das ausgeblendete und durhchgestrichene Zellen ignoriert werden oder besser gesagt nicht in die neue Tabelle mit-exportiert werden.

Hat da jemande eine schlaue Lösung?

Hier (ein Teil vom Makro) :

Range("C14").Select Selection.Copy Sheets("Tabelle2").Select

Range("N6:O6").Select
ActiveSheet.Paste    -----------> außer es ist ausgeblendet/durchges
Range("N7:O7").Select
Sheets("aktuell").Select
Range("G14").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle2").Select
ActiveSheet.Paste
Sheets("aktuell").Select
Range("C15").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle2").Se

Gruß Newb

...zur Frage

Excel Makro! Wenn Zeile beschrieben, dann nächste Zeile... Wer kann mir bei diesem Problemchen behilflich sein?

Hallo,

ich möchte eine Exceltabelle für Artikel herstellen. Die Daten, die ich einfügen möchte, sind in Spaltenform gelistet ( von oben nach unten. Ich brauche die Daten jedoch in der Zeilenform. Um den Vorgang zu automatisieren habe ich ein Makro erstellt. Jedoch schreibt er mir die Daten immer in die gleiche Zeilen. Ich habe es leider, mit meinem Laienwissen, nicht hinbekommen eine "wenn, dann" Funktion einzufügen.

Meine Formel lautet folgendermaßen:

Sub Makro2()
'
' Makro2 Makro
'
' Tastenkombination: Strg+e
'
    Range("D23:D29").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("E9:K9").Select
    ActiveSheet.Paste
    Range("D23:D29").Select
    Application.CutCopyMode = False
    Selection.ClearContents
End Sub

Bei "Range("E9:K9").Select" brauche ich eine Funktion, die wenn der Wert zwischen E9:K9 besetzt/beschrieben sein sollte es dann auf E10:K10 die Daten einfügt.

Ich würde mich sehr freuen, wenn mir jemand mit meinem Problemchen behilflich sein könnte.

Vielen Dank

...zur Frage

Excel VBA automatisch nächste freie Spalte nehmen?

hi hab mir mit Makros in VBA was zum übertragen von Daten in eine andere Arbeitsblatt zusammengebastelt. Dort soll es in eine Tabelle eingefügt werden die sich automatisch um eine Spalte nach rechts erweitern soll mit jedem Eintrag.

Sub inauftragplus()
   Range("D11:D22").Select
   Selection.Copy
   Sheets("Datenbank").Select
   ActiveWindow.SmallScroll Down:=-81
   Range("B9").Select
   ActiveSheet.Paste
   Sheets("Eingabe").Select
   Application.CutCopyMode = False
   Selection.ClearContents
End Sub

...zur Frage

Beim ändern einer bestimmten Zelle Makro erneut ausführen?

Hallo,

ich habe folgendes Anliegen: Ich möchte in Excel mit VBA etwas machen. Hier einmal der Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("j10")) Is Nothing Then
    Select Case Range("j10").Value
        Case "manuell"
            Range("s7:u7").ClearContents
        Case "Anfang & Ende"
            Range("s7").Value = Worksheets("PEPStauchung").Range("d2").Value
    End Select
End If
End Sub

Ich möchte, dass, wenn ich in Zelle S6 einen Wert ändere, das ganze erneut durchgeführt wird.

Wie binde ich das ein? Vielen Dank!!!

Syrena

...zur Frage

VBA mehrere Tabellen zur PDF zusammenfügen?

Hallo,

ich habe ein kleines Problem mit dem Erstellen von mehreren PFD-Seiten aus unterschiedlichen Tabellenblätter. Je nach Erfüllung der Bedingung (If-Abfrage) wird eine PDF erstellt.

Sofern nur ein eine Tabelle angesprochen wird, gibt es keine Probleme mit der Erstellung. Dabei ist es egal, ob die Tabelle oder zwei Seiten hat. Die Formatierung/Range ist korrekt und das Makro läuft durch.


Sheets("DUZ").Select
Range("A1:Y52").Select
Selection.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\DUZ.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Aber soweit ich auf zwei oder mehr Tabellenblätter zugreife, gibt es Probleme:

Sheets(Array("Deckblatt", "Übersicht", "Tagebuch", "Ges", "Reisekosten", "DUZ")).Select
Selection.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\Tagebuch_RZ_DUZ.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Wie kann ich entsprechend die Range unterbringen, sodass es evtl. problemlos klappt?

'Sheets("Deckblatt").Select --> Hochformat (1 Seite)
'Range("A1:H43").Select
                    
'Sheets("Übersicht").Select --> Querformat (1 Seite)
'Range("A1:R35").Select
                    
'Sheets("Tagebuch").Select --> Hochformat (6 Seiten)
'Range("A1:V146").Select
                    
'Sheets("Ges").Select --> Hochformat (1 Seite)
'Range("A1:G43").Select
                    
'Sheets("DUZ").Select --> Querformat (2 Seiten)
'Range("A1:Y52").Select
                    
'Sheets("Reisekosten").Select --> Hochformat (1 Seite)
'Range("A1:N57").Select

Aktueller Fehlerhinweis: Anwendungs- oder objektdefinierter Fehler.

Ich hatte es auch mal wie folgt versucht, aber dann stimmt die Formatierung nicht (wenn es einzeln gespeichert wird, ist sie aber richtig). Außerdem wird dann beim Schreibschutz rumgemeckert (am Ende werden die Blätter wieder mit Schreibschutz versehen). Jedenfalls gibt es diese Probleme beim einzelnen nicht.

Sheets("DUZ").Select
Range("A1:Y52").Select
                    
Sheets("Reisekosten").Select
Range("A1:N57").Select

Sheets(Array("Reisekosten", "DUZ")).Select
Selection.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\Reisekosten_DUZ.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Hat jemand eine Idee?
Gruß

...zur Frage

Excel nur Zelleninhalt in Zwischenspeicher. Profis gefragt?

Hallo,

Ich lasse in Excel (Excel 2019) auf Knopfdruck ein Makro laufen.

Es ist eigentlich ganz simple: Es schreibt "ok" in die aktive Zelle, kopiert die linke Zelle und springt dann wieder ein runter und ein nach rechts.

Private Sub CommandButton3_Click()

Range(ActiveCell, ActiveCell.Offset(2, 0)) = "ok"

ActiveCell.Offset(0, -1).Select

Range(ActiveCell, ActiveCell.Offset(2, 0)).Copy

ActiveCell.Offset(3, 1).Select

End Sub

Das was ich nicht hinkriege:

Es wird leider die gesamte Zelle kopiert. Wenn ich die Zelle irgendwo anders einfüge wird die gesamte Zelle mit Rahmen und anderen Formatierungen eingefügt.

Nun die Frage: Kann ich anstatt die gesamte Zelle auch nur den Zelleninhalt, also nur die Schrift ohne jegliche Formatierungen kopieren lassen? Ich brauche es in den Zwischenspeicher, sodass ich es wo anders in einem Browser mit STRG+V einfügen kann.

Vielen Dank im Voraus

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen