Mehrere Zeilen in VBA einlesen und ausgeben?

Hallo,

ich habe mich in letzter Zeit in VBA eingearbeitet und bräuchte etwas Hilfestellung. Ich möchte, dass der User mehrere Zeilen untereinander markiert und diese daraufhin auf ein anderes Tabellenblatt genauso untereinander eingefügt werden. Hab es mit der application.InputBox Type 64 schon probiert, aber das klappt nicht ohne manuelle Eingaben.

2 Antworten

Suboptimierer

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

18.01.2022, 11:17

Theoretisch brauchst du dafür keine Oberfläche. Es reicht, wenn der User markiert und einen Button "Kopieren" betätigt.

Hinter dem Button legst du ein aufgezeichnetes Makro. Ist es dir zu starr, baust du ein paar Variablen ein.

___________
Wenn du mit Oberfläche arbeiten willst, fügst du eine Userform ein und dort ein RefEdit Steuerelement (ggf. RefEdit.ctrl einbinden).

Woher ich das weiß:Berufserfahrung – Programmierer

IchMalWiederXY

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel, VBA

29.01.2022, 19:30

Wenn die Zeilen schon markiert sind dann einen Button auf das Sheet1
Selection.Copy
Tabelle2.Range("A1").Paste
Application.CutCopyPaste = False (Oder so ähnlich)

Hallo zusammen!

Wie schaffe ich es in Excel mithilfe von VBA eine bestimmte Zeile, welche in der ersten Spalte mit einem Index (1.1, 1.2 ...) gekennzeichnet wurde, durch die Angabe des Indexes die genaue Zeile in mein anderes Tabellenblatt zu kopieren.

Ich gebe also zum Beispiel im Tabellenblatt 2 in die erste Spalte "1.2" ein und es kopiert automatisch die mit "1.2" gekennzeichnete Zeile aus dem Tabellenblatt 1 in das Tabellenblatt 2.

Vielen Dank schonmal

...zur Frage

Excel - Zeile in anderes Tabellenblatt kopieren...

Hallo,

mein Problem:

Ich habe ein Tabellenblatt mit ca. 400 Zeilen und 14 Spalten. Ich möchte nun, wenn in einer bestimmten Zeile eine "Null" steht, dass die gesamte Zeile in ein neues Tabellenblatt kopiert wird. Steht in dieser Zeile keine "Null" soll die Zeile in ein drittes Tabellenblatt kopiert werden. Ich habe leider noch so gut wie keine Erfahrung mit VBA, wäre super wenn ihr mir helfen könntet.

Danke

...zur Frage

VBA ganze zeile kopieren wenn bedingung gegeben ist?

Hallo ihr lieben, habe mal wieder eine frage mit excel vba.

ich möchte gerne mit einem Makro folgendes erreichen: Es gibt 300 Zeilen die Überprüft werden sollen.

wenn in der Spalte B (Verein) der Verein "Irlbach" drin steht, soll die komplette Zeile in das Tabellenblatt "Irlbach" kopiert werden.
die restlichen Vereine ( hier z.B. Grünthal) sollen dann in das Tabellenblatt "Gastverein" eingetragen werden.

Ein Bild auf was sich das Makro beziehen soll habe ich angefügt.

Vielen dank schonmal :)

...zur Frage

Excel (VBA) farbig Markieren und anschließend kopieren?

Hi liebe Leute, ich benötige bei meiner Excel-Datei eure Hilfe.

Die Datei hat zwei Tabellenblätter "Ermittlung" und "Markierung"

In dem Tabellenblatt "Ermittlung" steht untereinander genaue Zellenpositionen: A4, A1517, A119, A1831 usw. Nun möchte ich, dass dies gerne mittels VBA Makro alle diese Positionen erkennt und auf dem anderen Tabellenblatt "Markierung" farbig markiert.

Dann im nächsten Makro, dass Excel diese farbigen Zeilen kopiert und auf das dritte Tabellenblatt "Prüfung" kopiert. Aber er soll nicht einfach die komplette Zeile kopieren, sondern nur den Bereich Spalte A bis R und genau auch nur in Spalte A bis R diese wieder einfügen.

Gerne seprate in zwei verschiedenen Makros. Ich habe schon gesucht und probiert, aber nichts hat geholfen. Habt Ihr eine Idee? Danke

...zur Frage

Excel VBA: Wie kann ich mehrere Zeilen in einem Bereich ausblenden?

WENN in A3:A1000 "x" steht, sollen diese Zeilen eingeblendet bleiben,

WENN in A3:A1000 " " steht, sollen diese Zeilen ausgeblendet werden.

Vielen Dank

...zur Frage

Mehrere, nicht untereinander-stehende Zeilen bei Excel fixieren?

Hi Leute,

wie der Titel schon sagt, möchte ich mehrere Zeilen in Excel einfrieren. Das Knifflige daran ist, dass es sich dabei nicht um untereinander-stehende Zeilen handelt sondern um die Obersten zwei und eine weiter unten (z.B. Zeile 30). Der Zeilenbereich zwischen A1 und A30 soll quasi ins Endlose gescrollt werden können. Funktioniert das überhaupt?

Grüße an Alle!

...zur Frage

VBA für Excel Verknüpfungen aktualisieren?

Hallo alle zusammen,

ich bin am verzweifeln.. :-(

Ich möchte über VBA Verknüpfungen in einem aktiven Tabellenblatt ändern. Ich finde aber immer nur Antworten wie man Verknüpfungen der gesamten Arbeitsmappe ändert.

Die Verknüpfungen beziehen sich auf ein anderes (nicht aktives) Tabellenblatt in der selben Arbeitsmappe.

In der Zelle steht zum Beispiel =WENN(ISTFEHLER('04.2016'!$C8);"";'04.2016'!$C8) und VBA soll mir aus '04.2016' nun '06.2016' machen.

Bei meiner VBA Idee kommt immer der Fehler 438 (Objekt unterstützt diese Eigenschaft oder Methode nicht) und kennzeichnet Vardat = ActiveSheet.LinkSources(Type:=xlLinkTypeExcelLinks) an

Hier meine VBA Idee. Wer kann mir helfen? Dank Euch im Voraus.... :-)

Sub Verknüpfungenaktualisieren()

Dim Vardat As Variant Dim strNeuerLink As String

strNeuerLink = "'06.2016'" strAlterLink = "'04.2016'"

Vardat = ActiveSheet.LinkSources(Type:=xlLinkTypeExcelLinks)

If IsEmpty(Vardat) Then

MsgBox "Keine Verknüpfungen enthalten!"

Exit Sub

End If

For intz = 1 To UBound(Vardat)

If Vardat(intz) = ActiveSheet.Path & "(" & strAlterLink Then ActiveSheet.ChangeLink ActiveSheet.Path & "(" & strAlterLink, _ ActiveSheet.Path & "(" & strNeuerLink, xlExcelLinks

Exit For

End If

Next intz

End Sub

...zur Frage

Mehrere Zeilen auskommentieren VS Code (JavaScript)?

Zum Beispiel :

alert()
alert()
alert()

alert()
alert()

dann markiere ich alles blau und alles aufeinmal soll ein // bekommen am anfang .

Und ich meine nicht das ich über mehrere Zeilen einen Cursor hab wo ich schreiben kann.

Denn dann würden auch die leeren Zeilen ein // haben weil ich nicht alles direkt untereinander programmiere

...zur Frage

Wie kann man in Python bestimmte Zeilen einer Datei in mehrere Strings einlesen?

Hallo zusammen, ich schreibe im Moment ein Programm, welches eine Datei einliest und nur bestimmte Zeilen wieder ausgibt. Diese Zeilen möchte ich nun in mehreren Strings speichern, da ich später noch was hinzufügen möchte. Wie funktioniert das?

...zur Frage

Excel automatisch wiederholende Zeilen ans Ende einfügen?

Die Zeilen 3 bis 50 sollen kopiert und jeweils am Ende wieder eingefügt werden. Das einzige was jeweils ändert, ist der Inhalt der Spalte B (hier im Beispiel "C00359" bzw. "C00104". Kann man diesen "Kopiervorgang" automatisieren (dieser Kopiervorgang von denselben Zeilen wird mehrere Male wiederholt)?

Danke für Eure Hilfe :-)

...zur Frage

Wie erstelle ich in Excel eine Liste, wo mehrere Zeilen dasselbe Datum aufweisen (und Samstage und Sonntage ausgeblendet sind)?

Ich habe auf mehreren Websites folgende Formeln gefunden, damit mehrere Zeilen dasselbe Datum haben.

http://www.office-loesung.de/ftopic635761_0_0_asc.php
https://microsoft.public.de.excel.narkive.com/FMnso2qE/gleiches-datum-mehrfach-untereinander

Ich habe es nun so gemacht, dass ich die Formel =A1+1 verwendet habe in 3 Zeilen und runtergezogen habe. Somit hat es insgesamt immer 4 Zeilen mit demselben Datum.

Die Samstage und Sonntage möchte ich nun rauslöschen, allerdings fehlt den darauffolgenden Zeilen dann der Bezug.

Hat jemand eine Formel für mich?

...zur Frage

Wie fügt man bei Open Office eine große Klammer ein?

Mit großer Klammer meine ich eine Klammer, die über mehrere Zeilen gehen. Als Beispiel habe ich mal ein Bild eingefügt.

...zur Frage

Excel VBA: Nur eingeblendete Zeilen in ein anderes Tabellenblatt kopieren?

Durch ein anderes Makro wird zuvor der Bereich A5:C400 so gefiltert, das alle leeren A-Zellen die ganze Zeile ausblenden lässt. Im jetzigen Schritt versuche ich, den Bereich A5:C400, in welchem viele Zeilen ausgeblendet sind, auf ein anderes Tabellenball zu kopieren. Das Bild zeigt meine aktuellen Stand, aber irgendwie bin ich da überfragt. Die ausgeblendeten Zeilen sollen NICHT mitkopiert werden.

Könnte jmd mein Programm anpassen, sodass es klappt?

VIelen Dank!

...zur Frage

VBA | Tabellen-PDF auch mit Datum speichern?

Hallo zusammen,

ich speichere mein Tabellenblatt als PDF,

Trotz Recherche und Tests kommt bei mir eine Fehlermeldung, wenn ich ein Datum in den Namen einfügen möchte.

Dim DateiName As String

Sheets("rec").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

DateiName = "Testseite01.pdf"

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen