Das Archiv des Excel-Forums

Bestimmten Bereich anhand Zeilenabgabe kopieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Betrifft: Bestimmten Bereich anhand Zeilenabgabe kopieren
von: Flip

Geschrieben am: 19.09.2019 07:29:20
Hallo Community!

Ihr könnt mir bestimmt weiter helfen.

Bin kompletter Anfänger was das Code schreiben betrifft. Ich hoffe ihr könnt mir weiter helfen.

Ich habe eine Tabelle in der ab E3-AE... Werte eingetragen sind (nach unten wird stetig erweitert). In A3-A... ist dazu eine fortlaufende Nummer angeführt.
Ich bräuchte jetzt ein Makro welches mir über einen Schaltfläche nach Angabe der fortlaufenden Nummer z.B 0015 nur Bereich E17-P17 in die Zwischenablage kopiert.
Zeile 1-2 sind nur Informationen
Die Frage ist jetzt ob das funktioniert mit der fortlaufenden Nummer? Oder muss man das über die Zeilennummer in Excel abfragen? In dem Beispiel 17. Wäre auch kein Problem für die Handhabung aber ich bekomme das mit der Abfrage einfach nicht hin.
Button und Inputbox ist nicht das Problem, aber mit dem Bereich hab ich meine Probleme

Der Ablauf sollte ungefähr wie folgt aussehen:
1: Button drücken
2: InputBox - "Welche fortlaufende Nummer soll kopiert werden?
3: fortlaufende Nummer der zu kopierenden Zeile aus A angeben
4: Bereich E-P aus der genannten Zeile kopieren.

Könnt ihr mir dabei weiter helfen?
Vielen Dank im Voraus!!

FG Flip


Betrifft: Frage...
von: 1713787.html
Geschrieben am: 19.09.2019 08:52:10
Hallo Flip,

...was willst du anschliessend mit den Daten in der Zwischenablage machen? In ein anderes Programm einfuegen oder weiter in Excel? Ich frage deshalb, weil es 2 verschiedene Zwischenablagen gibt. Die interne fuer Excel und die Windows Zwischenablage. In welcher haettest du die Daten gerne?
Solltest du die Daten in ein anderes Excel Sheet einfuegen wollen, brauchst du auch die Zwischenablage nicht zwingend.

Gruss Torsten

Betrifft: AW: Bestimmten Bereich anhand Zeilenabgabe kopieren
von: 1713791.html

Geschrieben am: 19.09.2019 09:06:53
Hallo Flip,

ungefähr so:
Option Explicit
Private Sub Workbook_Open()
Dim rngZelle As Range
Dim strSuchwort As String
strSuchwort = InputBox("Welches Suchwort?", "Suchwort eingeben")
For Each rngZelle In Worksheets("Tabelle1").Range("A:A")
If rngZelle = strSuchwort Then
rngZelle.Range("E1:P1").Copy _
Sheets("Tabelle2").Range("E" & Sheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp) _
.Row)
Exit Sub
End If
Next rngZelle
End Sub
Es wird In Tabelle 1 Spalte A nach dem Begriff gesucht und in Tabelle 2 wird Bereich E:P auch in E:P eingefügt.
Wenn du willst, dass die erste gefundene Zeile in Tabelle2 Zeile 2 geschrieben wird, dann 'End(xlUp.Row +1)


Gruß Pierre

Betrifft: AW: Bestimmten Bereich anhand Zeilenabgabe kopieren
von: 1713815.html
Geschrieben am: 19.09.2019 09:59:34
Sorry, vergiss das wieder.
Irgendwas habe ich da verbastelt eben...

Betrifft: AW: Bestimmten Bereich anhand Zeilenabgabe kopieren
von: 1713797.html

Geschrieben am: 19.09.2019 09:29:07
Hallo nochmal Flip,
hier mal 2 Moeglichkeiten mit der Inputbox-Abfrage nach Klick auf einen CommandButton.
Da ich nicht weiss, was du nach dem Kopieren machen willst, geht der Code nur bis zum Kopierbefehl.
1. Moeglichkeit: Frage nach der Zeilennummer, die kopiert werden soll.

Option Explicit
Private Sub CommandButton1_Click()
Dim strInput As String
Dim lngLetzte As Long
1: strInput = InputBox("Welche Zeile soll kopiert werden?", "Zeilennummer")
If StrPtr(strInput) = 0 Then Exit Sub
If Not IsNumeric(strInput) Then
MsgBox "Bitte nur Zahlen eingeben!"
GoTo 1
Else
ThisWorkbook.Sheets("Tabelle1").Range("E" & strInput & ":P" & strInput).Copy
End If
End Sub

2. Moeglichkeit: Hier wird der User nur aufgefordert, in die Zeile zu klicken, die kopiert werden soll.

Option Explicit
Private Sub CommandButton1_Click()
Dim rng As Range
Dim Zeile As Long
On Error Resume Next
Set rng = Application.InputBox(Title:="Zeile", Prompt:="Bitte in die zu kopierende Zeile  _
klicken", Type:=8)
On Error GoTo 0
If rng Is Nothing Then Exit Sub
Set rng = rng.Cells(1, 1)
Zeile = rng.Row
ThisWorkbook.Sheets("Tabelle1").Range("E" & Zeile & ":P" & Zeile).Copy
End Sub

Den Tabellennamen musst du jeweils noch anpassen, wenn noetig.
Gruss Torsten

Betrifft: AW: Frage...
von: 1713914.html
Geschrieben am: 19.09.2019 14:41:13
Ja die Daten werden in ein anderes Programm eingefügt (M-Print von Weidmüller)
Dort kann man zwar auch eine Excel Tabelle aufrufen und die Werte eintragen aber ob dazu eine Schnittstelle möglich ist weiß ich nicht. Im Prinzip sollen mit den Werten Leistungsschilder ausgedruckt werden. Die Werte aus E-P sind auf der Vorlage von Seite 1 einzutragen und die Werte von Q-AE auf Seite 2. Ich hätte dann eben 2 Buttons mit erstellt. Denke nicht das es gleich aus dem Excel mit einem Button als Hyperlink funktioniert. Oder doch??

Betrifft: AW: Bestimmten Bereich anhand Zeilenabgabe kopieren
von: 1713919.html

Geschrieben am: 19.09.2019 14:44:59
Was natürlich aus gehen würde. Wenn man über eine Userform und ein Listenfeld die fortlaufende Nummer anwählt und dann entweder auf "Seite 1" oder "Seite 2" kopieren klickt. Aber soweit reicht mein VBA Wissen leider nicht

Betrifft: AW: Bestimmten Bereich anhand Zeilenabgabe kopieren
von: 1713929.html
Geschrieben am: 19.09.2019 15:11:53
was ist mit meinen beiden Vorschlaegen?

Betrifft: AW: Bestimmten Bereich anhand Zeilenabgabe kopieren
von: 1713940.html

Geschrieben am: 19.09.2019 15:48:08
Ohhh Sorry hab die Codes erst jetzt gesehen. Ja so ungefähr hätte ich mir das vorgestellt.
Beim zweiten bekomme ich einen Syntaxfehler bei

müsste bei beiden jetzt dann noch den Code kopieren und einen 2 Button machen für den 2 Bereich.
Vielen Dank schonmal für dein super schnelle Hilfe
Super wäre vl wirklich über die Userform (das bekomm ich alles hin) wenn ich die beiden Buttons dort einbette. Wie würde das nur mit dem Listenfeld aussehen? Da weiß ich nicht wie ich mich auf die fortlaufende Nummer in Spalte A beziehe.
Vielen Vielen Dank Torsten

Excel-Beispiele zum Thema "Bestimmten Bereich anhand Zeilenabgabe kopieren"

Befindet sich die aktive Zelle in einem bestimmten Bereich? download Werte eins bestimmten Monats summieren download
Werte 1 und 0 in einem bestimmten Verhältnis zufällig anordnen download Alle Links zu einer bestimmten Arbeitsmappe löschen download
Anzahl eines bestimmten Wochentages im Monat download Alle Dateien ab einem bestimmten Datum listen download
Daten eines bestimmten Jahres filtern download Zeilen löschen, wenn in bestimmten Spalten keine Werte stehen download
xlSaveAs-Dialog in einem bestimmten Verzeichnis aufrufen download Wert einer bestimmten Zelle merken download
Werte aus UserForm-TextBox in bestimmten Formate übertragen download Anzahl von Zellen mit einer bestimmten Hintergrundfarbe ermitteln download
Zeichenfolgen ändern, wenn ein sie einen bestimmten Text enthalten download Werte eines bestimmten Wochentages und eines Zeitbereiches addieren download
Bei Aktivierung einer bestimmten Tabelle in Vollbildmodus schalten download Anzahl eines Namens in einer bestimmten Schriftfarbe ermitteln download
Anzahl der Einträge zu einer bestimmten Kalenderwoche download Datenmaske mit einem bestimmten Datensatz aufrufen download
Aus Liste Anzahl der Januartage eines bestimmten Jahres listen download Letzte Zeile mit einem bestimmten Anfangsbuchstaben markieren download
Leerzeichen aus einem Bereich löschen download Mehrbereichsauswahl auf eine Seite drucken. download
Spalten einer Mehrbereichsauswahl ausblenden. download Bereich mit Maximalwert markieren download
Benannten Bereich erweitern download Bereich in RefEdit-Element eingeben und auslesen download
Benutzerdefinierte SVERWEIS-Funktion über mehrere Bereiche download Letzter Wert aus einem Bereich download
Bereiche bei Mehrfachauswahl prüfen download Auswahl eines Zellbereiches verhindern download
Bereiche in Abhängigkeit eines Zellinhaltes drucken download Den selben Bereichsnamen in mehreren Tabellenblättern download
Leere Zeilen und Spalten in ausgewähltem Bereich löschen download URLs eines ausgewählten Bereiches in HyperLinks umwandeln download
Werte aus Zellbereich in eine Matrix übernehmen und auslesen download Zellauswahl auf den ausgewählten Bereich beschränken download
Berechnung des ausgewählten Bereiches in der Statusleiste download Bereiche auf Übereinstimmung vergleichen download
Scrollbereich begrenzen download Tabellenblattbereich als Email versenden download
Serie von Bereichsnamenteilen einer Arbeitsmappe ändern download Worte in einem vorgegebenen Bereich zählen download
Bereichsnamen ermitteln und als Kommentare anzeigen download Bereichsnamen in UserForm-ListBox auflisten und editieren download
Einen vorgegebenen Tabellenblattbereich in neue Arbeitsmappe download Werte aus einem nicht zusammenhängendem Bereich auslesen download
Druckbereich variabel gestalten download Tabellenblattbereich sortiert als Zellkontextmenü download
Überschriften aus Spalte C in Spalte D in den relevanten Bereich download Druckbereich bis zum ersten Nullwert festlegen download
Markierten Bereich mit jeweiligem Mwst-Satz multiplizieren download Cursor in bestimmtem Zellbereich in Eieruhr verwandeln download
Maximalwert aus einem Bereich ermitteln und in Spalte A eintragen download Formelbereich in Einzelelemente aufschlüsseln download
Datenreihenbeschriftungs-Quellbereich ausserhalb des Datenbereiches download Diagramm-Datenbereich über Schaltfläche festlegen download
Abfrage zum Kopierbereich von Startzelle, Zeilen- und Spaltenanzahl download Einen von einer Schlüsselziffer abhängigen Bereich kopieren download
Namen eines ausgewählten Bereiches auslesen download Den in einer Zelle genannten Bereich eines Blattes drucken download
Zugriff auf Zellen unter Verwendung eines Bereichsnamens download Bereich aus anderer Tabelle für 2 Sekunden anzeigen download
Nur die sichtbaren Zellen eines AutoFilter-Bereiches einlesen download Aktuellen Bereich in den Spalten A:F als Druckbereich download
Über UserForm-RefEdit-Steuerelement Bereich auswählen download Über InputBox festzulegenden Bereich kopieren download
Anzahl der Übereinstimmungen in zwei Bereichen ermitteln download Verweise anhand einer Kopfzeile erkennen download
Errechnung von Schulnoten anhand einer Punktetabelle download Schulnote anhand einer Punktetabelle errechnen download
Listenzusammenstellung anhand von Schlüsselnummern download Online-Kosten anhand von Start- und Endzeit ermitteln download
Wechseln zwischen Arbeitsblättern anhand mehrerer Schaltflächen download Kopfzeilen anhand von Max/Min-Werten ermitteln download
Blätter in andere Arbeitsmappen kopieren download Module von Mappe zu Mappe kopieren download
Arbeitsblatt 40 mal kopieren download Schriftgröße beim Kopieren verdoppeln download
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen download Tabellencode nach Kopieren des Blattes löschen download
Arbeitsmappe blitzschnell kopieren download VBE-Namen der Blattmodule beim Kopieren festlegen download
Blattinhalt von einer zur anderen Arbeitsmappe kopieren download Formel bis zur letzten Zeile der Nebenspalte kopieren download
Datei kopieren, wenn noch nicht vorhanden download Zeilenweise von Blatt zu Blatt kopieren download
Erste Druckseite in eine neue Arbeitsmappe kopieren download Durch DoppelKlick Spalte in zweites Arbeitsblatt kopieren download
Teilergebnisse einer Serie von Tabellen in anderes Blatt kopieren download Bei Eintrag in Spalte A aktuelle Zeile kopieren download
Filtern und Kopieren download Zeile mit aktiver Zelle in anderes Blatt kopieren download
Zeilen in Abhängigkeit des Wertes in Spalte A kopieren download Vorgegebene Anzahl von Einträgen in 2. Blatt kopieren download
Passwortgeschützte Mappe öffnen, Daten kopieren, schliessen download Tabellenblatt kopieren und dreistellig fortlaufend numerieren download
Jede zweite Zelle kopieren download Werte aus UserForm-ComboBox suchen und Fundstelle kopieren download
Gruppe von Optionsfeldern kopieren und Makro zuweisen download Nicht zusammenhängenden Bereich in nächste Zeile kopieren download
Wert aus UserForm-TextBox suchen und Fundstelle kopieren download Nur sichtbare Zellen in anderes Arbeitsblatt kopieren download
Zeile in Abhängigkeit zur Eingabe in Blätter kopieren download Werte prüfen und kopieren download
Bei Eintrag von X Zeile in andere Tabelle kopieren download Daten kopieren wenn kein Datum oder Datum > Heute download
Blattinhalte dreier Blätter in neues Blatt kopieren download Kopieren und Umbenennen eines Blattes download
Nur Zeilen mit bestimmtem Inhalt kopieren download Artikelnummern nach Kriterien suchen und Datensätze kopieren download
Bild in zweites Blatt an gleiche Position kopieren download Alle Zeilen ohne Wert in vorgegebener Spalte kopieren download
Bei Eintrag Zeile in 2. Blatt kopieren und Tabellen sortieren download Bildergruppe in anderes Blatt kopieren download
Bei Eingabe Formel in der Nebenspalte nach unten kopieren download Auswahl in andere Arbeitsmappe kopieren, speichern, schließen download
Begriff suchen und Fundzeilen in anderes Blatt kopieren download Aktive Zeile kopieren und löschen download
Datensätze, die öfter als 3 mal vorkommen, kopieren download Den jeweils darüberliegenden Wert in Leerzellen kopieren download
Alle Zeilen mit einem Suchbegriff in nächstes Blatt kopieren download Dateien listen und Blätter in neue Arbeitsmappe kopieren download