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

2 Antworten

IchMalWiederXY

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel, VBA

22.09.2023, 17:17

for i = 1 to 322
'Ziel Sheet Quell Sheet
Worksheets("1M").Range("C" & i+4).value = Worksheets("Tabelle1").Range("D" & i).value
next i

'Beim Start der Schleife würde nun "D3" nach "C7" kopiert werden.
Im 2ten Durchlauf von "D4" nach "C8" was aber NICHT mit deinem aufgezeichneten Makro übereinstimmt.

"Warum" welche Zelle aus "Tabelle1" auf welche Zelle in "1M" muss ist mir nicht klar. Sofern es eine Regel gibt, dann muss diese entsprechend verwendet und programmiert werden, damit die Schleife alles korrekt platziert.

TapRoot2021

22.09.2023, 14:35

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

Du brauchst eine for Schleife:

for i = 1 to 322
‘ mach was du tun willst , zb
Range("R" & i).value = Range("M" & i).value

next i

Woher ich das weiß:Berufserfahrung – Wissenschaftliche Auswertungen

Ahmad93

Beitragsersteller

22.09.2023, 14:40

Ich bin leider nicht so in Makros drinnen könntest du mir vllt das aufschreiben was genau ich da zu tun hab das wäre mega hilfreich :'D

Ähnliche Beiträge

Excel VBA: Schaltfläche die je nach 1., 2., 3. Klick verschiedene Funktionen ausführt?

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

...zum Beitrag

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

...zum Beitrag

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.

...zum Beitrag

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

...zum Beitrag

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

...zum Beitrag

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

...zum Beitrag

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

...zum Beitrag

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

...zum Beitrag

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ß

...zum Beitrag

VBA zeilen kopieren mit relativem Zellbezug

Hallo, ich habe in mein Excel Dokument einen Button eingebaut, den ich mit einem Makro verbinden möchte, der eine neue Zeile einfügt und eine darüberliegende vorhandene Zeile Kopiert bzw. nach unten zieht, um in dieser neue Werte eintragen zu können. Funktioniert soweit auch ....

ABER natürlich verschieben sich die Bezüge durch das einfügen neuer Zeilen und die Makros, welche sich auf Zeilen unter dem ersten Makro beziehen, funktionieren nicht mehr an gewünschter Stelle...

In Visual Basic habe ich versucht die "Range" Bezüge zu ändern, habe aber nur den ansatz für einzelne zellen gefunden z.b. "ActiveCell.Offset(1,0).Range("A1").Select"

Auf dem Bild soll jeweils das blaue kreuzchen eine neue Zeile einfügen, siehe Zeile Opex. Folgendes ist mein VB Quelltext bei dem sich immer alles verschiebt: Sub add_cost_netrent() ' ' dada Makro '

' Rows("9:9").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("D8:H8").Select Selection.Copy Range("D9").Select ActiveSheet.Paste ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 4 ActiveWindow.ScrollColumn = 5 ActiveWindow.ScrollColumn = 6 ActiveWindow.ScrollColumn = 7 ActiveWindow.ScrollColumn = 8 Range("U8:Y8").Select Application.CutCopyMode = False Selection.Copy Range("U9").Select ActiveSheet.Paste End Sub

...zum Beitrag

Excel VBA range ignoriert anderes Sheet?

Hey, im Bild ist der ausgeschnittene Code. Rot unterstrichen ist die Zeile die Probleme macht. Der Code sollte von dem Sheet "hidden" die Range F5:F&lastRow haben. Beim ausführen ignoriert er aber das "hidden" und nimmt stattdessen das Sheet "dashboard".

Ablauf des Codes:

Letzte Reihe im sheet hidden herausfinden

dropdownRange definieren (Von wo welche Daten?)

dropdownCell definieren (Wo soll dropdown Menü aufrufbar sein?)

Löschen von Dateneinschränkung in dropdowncell

Dateineinschränkung einfügen (Einschränkung nur Inhalte der dropdownRange von Spalte hidden)

Das Programm arbeitet wie gesagt als wäre statt dem rot markierten dieser Code:

Set dropdownRange = dashboard.Range("F5:F" & lastRow)

...zum Beitrag

Excel VBA Formel zum Speichern als PDF funktioniert nicht immer. Wie beheben?

Hey. Ich habe einen Code zum Speichern von Tabellenblättern als PDF in Ordnern und Unterordnern, die erstellt werden. Ich habe noch ein paar mal daran herum gebaut, also sieht der Code möglicherweise nicht sehr clean aus.

Ich füge den Code Stückweise ein, weil er zu viele Zeichen hat.

Mein Problem ist nun: Auf meinem PC funktioniert der Code super, ohne zwischenfälle. Ich habe nun die Excel-Datei schon mehrmals per USB auf einen anderen Rechner gezogen und den Dateipfad angepasst. Dennoch funktioniert er hier nur teilweise, da nur Oberordner und Unterordner erstellt werden. Der zweite Unterordner und die PDF Dokumente bleiben weg. Vielleicht kann mir hierbei jemand helfen. Einen schönen 4. Advent euch noch!

...zum Beitrag

Problem mit VBA Excel: Wert Finden und Zeilen daneben ersetzen.

Hallo zusammen,

Ich versuch mich grade mit VBA und stoß so langsam an meine Grenzen.

Ich möchte mit mit einem Formular einen Wert aus Tabelle1 nehmen, diesen in Tabelle2 suchen und markieren. Außerdem soll zusätzlich in den Zeilen daneben Werte aus Tabelle1 eingetragen werden.

Das switchen zwischen den Tabellen, das Finden und Markieren klappt soweit, nur funktioniert das Kopieren aus den Zellen in Tabelle1 in die neben den gefundenen Wert aus Tabelle2 befindlichen Zellen nicht. Anscheinend selektiert mein Makro die Markierte Zelle nicht, weshalb ich mit "ActiveCell" nicht weiter komme.

Wäre cool wenn jemand mir da weiterhelfen könnte :)

Sheets("Tabelle2").Select
Cells.Find(What:=Worksheets("Tabelle1").Cells(1, 1), LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Interior.Color = vbRed                 

    If ActiveSheet.Name = "Tabelle2" Then                             Sheets("Tabelle1").Select                                           Else                                                                Sheets("Tabelle2").Select                                             End If

...zum Beitrag

Mailversand über Excel - Bestimmte Zeilen/Bereiche durch VBA?

Hallo zusammen,

ich benötige Eure Unterstützung, ich komme nämlich nicht weiter.

Wenn in der Zelle C10 z. B. Erstes-Interview steht, dann sollen, nachdem auf eine Schaltfläche geklickt wird, entsprechende Bereiche/Zellen als E-Mail versendet werden. Leider kann ich aber nicht mehrere Bereiche (die von einander getrennt sind, als eine E-Mail versenden.

Was mach ich falsch?

Vielen Dank vorab.

Mein Code:

Sub Mail_Versand()

Sheets("Template").Select

If Range("C10").Value = "Kaffee-Date" Then

ActiveSheet.Range("B12:D21").Select

End If

If Range("C10").Value = "Erstes-Interview" Then

ActiveSheet.Range("B23:D23,B26:D33").Select

End If

ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope

.Item.To = "xxx"

'.Item.cc =

'.Item.bcc =

.Item.Subject = Range("C10").Value & " / Bitte um weitere Bearbeitung"

.Item.Send

End With

End Sub

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen