Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1856to1860
1856to1860
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mit vba wert in anderes Dokument übertra

Forumthread: Mit vba wert in anderes Dokument übertra

Mit vba wert in anderes Dokument übertra
15.11.2021 12:53:49
Christian
Hallo, ich möchte aus einem wareneinkaufsbericht, wenn fehler vorhanden sind, die Anzahl dieser in ein anderes Dokument übertragen. In dem Dokument wo es übertragen werden soll, sind mehrere Lieferanten. Jetzt müsste man das richtige Arbeitsblatt auswählen, dann überprüfen mit welcher zelle der fehler aus dem prüfbericht A12 aus der liste a1 bis v1 übereinstimmt und dann die Anzahl der Fehler D12 in diese Spalte übertragen.
Ich weiß das ist jetzt viel aber ich kenne mich nicht so gut aus und meistens tüftle ich solange rum bis es funktioniert aber das ist mir zu kompliziert.
Vg und danke im voraus
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Bitte lade Quell- u. Zielarbeitsmappe hoch
15.11.2021 13:05:28
JoWE
AW: Mit vba wert in anderes Dokument übertra
15.11.2021 14:38:59
JoWE
in A12 sehe ich nichts, was irgendwie mit irgendetwas zu überprüfen wäre?
Den Lieferanten gibt nicht in der zweiten Arbeitsmappe, Sondern nur "Lieferant1", "Lieferant2" usw. ?
Anzeige
AW: Mit vba wert in anderes Dokument übertra
15.11.2021 15:00:54
Christian
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.
Anzeige
AW: Mit vba wert in anderes Dokument übertra
15.11.2021 19:32:16
JoWE
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
Anzeige
AW: Mit vba wert in anderes Dokument übertra
16.11.2021 07:50:58
Christian
Hallo Jochen,
funktionier wunderbar, vielen Dank. Ich wäre nie drauf gekommen. Den Rest kann ich mir mit etwas Geduld schon selber zusammenbasteln.
VG
Chris
AW: Gerne, danke für die Rückmeldung
16.11.2021 09:34:02
JoWE
AW: Gerne, danke für die Rückmeldung
18.11.2021 13:23:25
JoWE
hier ein weiterer Versuch:

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

Anzeige

Forumthreads zu verwandten Themen

Do Until - Schleife verlassen funktioniert nicht.
Stefan

Hallo Excelfreunde, bitte um Hilfe.
Do Until - Schleife mit Exit Do verlassen funktioniert nicht.
Abbruchbedingung: If TPFehlt = 1 Then Exit Do
Trotz längerem Suchen habe ich nicht herausgefunden, warum die Fehlermeldung kommt.
Sub Zuordnen() Dim letzteZeile As Integer, Nr As...
22.09.2008 20:53:34
Thread-ID: 1011569
3 Beiträge
wert aus dropdown in vba übernehmen
reich

hallo,
könnt ihr mir bitte helfen? wie schaff ich es von einer drop down liste den ausgewählten wert in vba zu übernehmen ...
dim varWert as variant
worksheets("formular").activate
'dropdown 1 liste ansteuern und aktuell ausgewählten wert in vba übernehmen
varWert = 'wert au...
23.09.2008 15:34:00
Thread-ID: 1011776
4 Beiträge
Anzeige
VBA: String+TAB an inaktives Windowsfenster senden
Melanie

Hallo allerseits,
ich moechte aus Excel heraus mit VBA code einen String (z.b "Hallo") + TAB (oder ENTER) an ein 'fremdes' WindowsapplicationFenster schicken (keine Officeanwendung), wobei das Fensterhandle (oder auch das entsprechende TextFeldHandle bekannt sind).
Allerdings soll die...
09.12.2008 08:37:52
Thread-ID: 1031241
9 Beiträge
Anzeige
Do loop Schleife mit hoher CPU Last
Steffen44


Hallo,
ich habe ein kleines Programm wo ich Daten von der RS232 Schnittstelle in Excel einlese.
Das einlesen geschieht per Do loop Schleife wo die Daten direkt in die Zellen von Excel geschrieben werden.
Was mir permanent negativ auffällt ist das egal welche Schleifenart man ve...
21.02.2009 17:37:29
Thread-ID: 1052648
16 Beiträge
Drop-Down Feld in VBA
Jens

Seit geraumer Zeit lese ich Eure Beiträge und habe es nun endlich geschafft mich zu registrieren.
Ich versuche in einer Userform in einem Drop-down-Feld einen Zellbereich einer Tabelle anzuzeigen, bisher ohne Erfolg.
Kann mir da jemand helfen.
Vielen Dank im Vorraus
Jens
28.02.2009 13:06:18
Thread-ID: 1055056
2 Beiträge
VBA Progr. Schleife- Doppelklick in Zelle
Jeebee

Guten Morgen,
Habe in Excel folgendes Problem: Ich übernehme eine Tabelle aus SAP. Leider Sind die Zahlen dort nicht als Zahl definiert sondern als Text. Jede Zahl zB. 33,01- hat einen Bindestrich hinten dran. Dass ich den wegkriege konnte ich bereits mit "Makro aufzeichnen" lösen.
Dies...
07.03.2009 09:56:05
Thread-ID: 1057531
3 Beiträge
VBA Schleife - elimieren von doppelten Werten
doppelten

Hallo Forum,
ich möchte doppelte Werte (siehe Anhang) aus Spalte A inhaltlich löschen (sind vorher sortiert).
Leider funktioniert meine Schleife nicht.
Kann mir jemand helfen?
Vielen Dank im voraus.
https://www.herber.de/bbs/user/68477.xls
Grüße
Karen
09.03.2010 11:06:49
Thread-ID: 1144532
9 Beiträge
Mit VBA Zugriff auf ein pdf-Dokument
Gregor

Hallo zusammen
Ich möchte in einer Excel Tabelle aus einem pdf Vornamen und Namen kopieren. Dabei muss ich in einem e-Book (pdf) nach dem Begriff "Erstellerautor" suchen, und dann die jeweiligen Namen NACH diesem Suchgegriff kopieren und in einer Excel-Tabelle einfügen. Das e-Book ist alpha...
18.08.2010 16:48:01
Thread-ID: 1172920
3 Beiträge
per vba hyperlink von excel in worddokument
excel

Hallo,
ich öffne in einem makro ein word-dokument und füge dort zellinhalte in textmarken ein.
in einer der zellen steht ein hyperlink. wie bekomme ich es hin, dass ich in word dann auch einen hyperlink habe und nicht nur den text der zelle
Gruß
effha
25.10.2010 19:58:40
Thread-ID: 1183824
3 Beiträge
Anzeige
DOS PRINT aus VBA auf eine Liste von Dateien
Dateien

Hallo alle miteinand,
ich habe eine Excel-Liste in der ich verschiedene Word-Document Namen stehen habe, mit Verzeichnisinfo und Dateitypinfo.
A HORSE WITH NO NAME 2.3.2011 28.160 SOLOPFADE DOC 1 9.3.2011
Das sind eine ganze Menge Dateien untereinander und von sagen wir 250 in ein...
25.03.2011 09:50:05
Thread-ID: 1207404
3 Beiträge
Mit VBA eine Windowsanmeldung nachstellen
Speedpilot

Hallo Leute,
Ich zerbreche mir nun schon eine Weile den Kopf über folgendes Problem:
Prinzipiell möchte ich ein Stempelfeld auf dem Papier "digitalisieren".
Es soll also ein Feld in den Excel Arbeitsblättern geben, welches auf klick, den Benutzername und das Passwort abfragt, und b...
21.07.2011 14:49:18
Thread-ID: 1223045
3 Beiträge
Tipp schnell doppelte finden in VBA
Heiti

Moin,
ich brauche einemal eine Beratung bzw. Tipps wie ich meine Funktion verbessere.
Derzeit öffne ich mehrere Dateien und schreibe in eine Excel Liste die Eintragungen. Weil in den Dateien doppelte Einträge stehen können durchlaufe ich für jeden Beitrag die Liste und schreibe diese nu...
23.04.2012 13:04:13
Thread-ID: 1260618
11 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige