Wenn Nummer dann komplette Zeile kopieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
dachte ich hätte alle beantwortet - Entschuldigung.
1.
- zwei verschiedene Mappen, welche im gleichen Ordner liegen
- ja, es sind beide offen
- wenn es sich vermeiden lässt, würde ich es vermeiden wollen, die Aufträge in das "Konto" zu integrieren, da es mehrere Konten gibt und ich nicht in allen alles aktualisieren möchte
2.
- das ist korrekt, in der Tabelle sind alle Aufträge so aufgelistet, wie sie in der hochgeladenen Tabelle sind
- das Konto sieht genanuso aus wie die Aufträge und die gleichen Zeilen sollen dort eingefügt werden, wenn die Auftragsnummer - welche ich in der Spalte B manuell eintragen wollte -, mit der in den Aufträgen übereinstimmt. Die Aufträge müssen sich sogenommen im Konto wiederspiegeln...
Ich hoffe, dass es so verständlich ist...

Private Sub Worksheet_Change(ByVal Target As Range) Dim strSuch As String, raFund As Range If Target.Column 2 Or Target.Row 1 Then Exit Sub strSuch = Target 'Name der Datei und del Blattes anpassen With Workbooks("Aufträge").Worksheets("Aufträge").Columns(2) Set raFund = .Find(what:=strSuch, LookIn:=xlValues, lookat:=xlWhole) If Not raFund Is Nothing Then raFund.Offset(, -1).Resize(, 15).Copy _ Target.Offset(, -1) Else MsgBox "Die Auftragsnummer " & Target & " ist nicht vorhanden." End If End With Set raFund = Nothing End Sub

Hallo Marion,
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt nur in dieser Tabelle.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaFound As Range
If Target.Column = 2 And Target  "" Then
With Worksheets("Aufträge")
Set RaFound = .Columns(2).Find(Target, .Range("B" & Rows.Count), xlFormulas, _
xlWhole, , xlNext)
If Not RaFound Is Nothing Then
Range(Cells(Target.Row, 1), Cells(Target.Row, 15)).Copy .Cells(RaFound.Row, 1)
End If
End With
End If
End Sub

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.

Beliebteste Forumthreads (12 Monate)

Wenn Nummer dann komplette Zeile kopieren

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

335 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wenn Nummer dann komplette Zeile kopieren

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

335 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread