Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1612to1616
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Werte in Zeile aktualisieren oder komplette Zeile

Werte in Zeile aktualisieren oder komplette Zeile
08.03.2018 14:48:05
mike
Hallo Zusammen,
ich hoffe auch diesmal wieder hier fündig zu werden.
Super Forum. Hat mir schon einige Male geholfen.
Zu meinem Problem:
mit dem u.g. Code in Datei1 öffne ich eine aus zu wählende Datei (variabel , hier mal Datei2), suche die nächste freie Zeile, kopiere dort ein bestimmte Zeile aus Datei1 mit den Werten rein, speichere und schließe diese wieder.
So sieht das Format aus.
Spalte | Spalte B | Spalte C | Spalte D
1234 | test | gut | schlecht
Nun soll aber vor dem einfügen in Datei2 geschaut werden, ob in Spalte A bereits der Wert aus Spalte A der zu kopierenden Zeile aus Datei1 vorhanden ist.
Wenn JA, aktualisiere alle anderen Zellen der Zeile,
Wenn NEIN, finde die nächste freie Zeile und ...wie bisher.
Der Code müsste ja vor dem Hinweis 'nächste frei Zeile suchen' eingebaut werden.

Sub export()
Dim strDatei, wks As Worksheet, wb As Workbook
Dim lastrow As Long
'Reportzeile kopieren
ActiveWorkbook.Unprotect Password:="xxx"
Worksheets("assumptions").Rows(110).Copy
'Datei auswählen und öffnen
strDatei = Application.GetOpenFilename
If strDatei  False Then
Set wks = Workbooks.Open(strDatei).Sheets(1)
Else
Exit Sub
End If
'nächste freie zeile suchen
lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
'MsgBox "Lastrow is " & lastrow
Application.EnableEvents = False
Application.ScreenUpdating = False
'Daten kopieren
Cells(lastrow + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
'Datei speichern und schliessen
wks.Parent.Close saveChanges:=True
Set wks = Nothing
ActiveWorkbook.Protect Password:="xxx"
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte in Zeile aktualisieren oder komplette Zeile
08.03.2018 18:04:15
Richard
Ich würde die kopierte Zeile in ein leeres Tabellenblatt der Zieldatei einfügen und dann über eine for-schleife das Zieltabelleblatt durchsuchen:
Dim wks As Worksheet
lastC = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
ActiveSheet.Range(Cells(1, 1), Cells(1, lastC)).Copy
strDatei = Application.GetOpenFilename
Set wks = Workbooks.Open(strDatei).Sheets(2)
wks.Range("A1").PasteSpecial Paste:=xlPasteValues
lastrow = Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lastrow
If Cells(i, 1).Value = Worksheets("Tabelle2").Range("A1").Value Then
Worksheets("Tabelle2").UsedRange.Copy Destination:=Worksheets("Tabelle1").Cells(i, 1)
Else: Exit For
End If
Next
Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige