Mit vba wert in anderes Dokument übertra

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo, vielen Dank für die Antwort.
Wenn bei einer WE Kontrolle ein z.b Kritischer Fehler gefunden wird, wird der in A12 eingetragen. Also Fehler1 in A12 Fehler2 in A13 usw. Wenn die Prüfung abgeschlossen ist sollen nun die Fehler, die gefunden wurden den Lieferanten in der anderen Arbeitsmappe übertragen werden. Es soll unter dem Arbeitsblatt des Lieferanten (Lieferant1, Lieferant2..) den richtigen raussuchen und dann die Anzahl der Fehler in der richtigen Spalte reinschreiben.
Also wenn im Prüfbericht in B3 "Lieferant3" steht und in A12 "Fehler2" soll in der Wert von D12 in die Mappe Reklamationsübersicht in das Arbeitsblatt Lieferant3, unter Fehler2 aufgelistet werden. Also in diesem Fall C2. Da aber nicht bei jeder Prüfung die gleichen Fehler auftreten, muss man iwie eine Abfrage machen, damit vba weiß unter welchem Fehler die Stückzahl eingeschrieben werden.

Hallo Christiabn
hier ein Bsp für den Export des "Fehlers1" laut "A12" und der entspr. Anzahl aus "D12" in die zweite Arbeitsmappe
zum passenden Lieferanten und dort unter die passenden Fehlerspalte (also wieder Fehler1).


Sub exportierenFehler()
'hier mal nur der Fehler1 mit der Anzahl aus D12
'Damit solltest Du doch wohl weiterkommen?
With Sheets("Prüfbericht")
varL = .Range("B3")
KF = .Range("A12")
AnzKF = .Range("D12")
End With
Workbooks.Open Filename:="C:\Users\joche\Desktop\VBA Übungen\Christian 15112021\149147.xlsx"   'ANPASSEN
With Sheets(varL)
lz = .Cells(Rows.Count, 2).End(xlUp).Row
sp = .Cells.Find(What:=KF, After:=.Range("A1"), LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Column
.Cells(lz + 1, sp) = AnzKF
End With
ActiveWorkbook.Close savechanges:=True
End Sub

Gruß
Jochen

Sub exportierenFehler() Dim mySource As Worksheet Set mySource = ThisWorkbook.Sheets("Prüfbericht") varL = mySource.Range("B3") Workbooks.Open "C:\VBA_temp\149147.xlsx" 'ANPASSEN For ze = 12 To 23 'anhand Deiner Tabelle1 im Sheet Prüfbericht With Sheets(varL) If Left(mySource.Cells(ze, 1), 6) = "Fehler" Then sp = .Cells.Find(mySource.Cells(ze, 1), .Range("A1")).Column .Cells(.Cells(Rows.Count, sp).End(xlUp).Row + 1, sp) = mySource.Cells(ze, 4) End If End With Next ActiveWorkbook.Close savechanges:=True End Sub

Beliebteste Forumthreads (12 Monate)

Mit vba wert in anderes Dokument übertra

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mit vba wert in anderes Dokument übertra

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread