Geänderte Filterzeilen zurückschreiben

Hallo Forum,
über den Advanced Filter erhalte ich aus der Datenbank eines Archivs einen 6-spaltigen Datenauszug.
Die Filterdaten werden nun zum Teil geändert und mit einem X vor der Zeile gekennzeichnet.
Jetzt möchte ich die veränderten Daten wieder zurück schreiben.
Die Schwierigkeit dabei ist, dass die Zeilen durch die Advanced Filterung nicht als ganze Archiv-Zeile vorliegen
(also nach dem jeweiligen Spaltenkopf aufgeteilt werden müssen) und die Spaltenköpfe der Filterdaten über
Dropdownfelder frei wählbar sind, also keine Festwerte darstellen
Hat da jemand von euch eine Idee zu? War das überhaupt verständlich? Beispielmappe anbei.
Für Antworten ein Dankeschön im voraus.
https://www.herber.de/bbs/user/60889.xls
Klaus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Klaus,
über die Leitzahl und die Spaltentitel im Blatt Daten kann man mit der Suchfunktion (Find) die entsprechende Zeile und Spalte im Blatt "Archiv" ermitteln in die geänderte Werte eingetragen werden müssen.
Gruß
Franz
Entsprechendes Makro schaut wie folgt aus:


Sub DatenZurueckschreiben()
Dim wksDaten As Worksheet, wksArchiv As Worksheet
Dim ZeiDaten As Long
Dim SpalteDaten As Long
Dim rngSpalte As Range, rngZeile As Range
Dim varLeitzahl, varSpalte
'Objektvariablen die Tabellenblätter zuweisen
Set wksDaten = Worksheets("Daten")
Set wksArchiv = Worksheets("Archiv")
With wksDaten
'Zeilen im Blatt Daten in Spalte 10(J) abarbeiten
For ZeiDaten = 11 To .Cells(.Rows.Count, 10).End(xlUp).Row
If UCase(.Cells(ZeiDaten, 10)) = "X" Then
'Leitzahl aus Spalte 11 (K) auslesen
varLeitzahl = .Cells(ZeiDaten, 11).Text '.Text muss wegen Zahlenformat!!
'Leitzahl in Spalte 12 (L) ab Zeile 11 im Archiv suchen
With wksArchiv
Set rngZeile = Range(.Cells(11, 12), .Cells(.Rows.Count, 12).End(xlUp)).Find( _
What:=varLeitzahl, LookIn:=xlValues, lookat:=xlWhole)
End With
If rngZeile Is Nothing Then
MsgBox "Leitzahl " & varLeitzahl & " im Archiv nicht gefunden!"
Else
'Spaltentitel in Daten abarbeiten
For SpalteDaten = 12 To 16 'Spalten L bis P
'Spaltentitel in Variable einlesen
varSpalte = .Cells(10, SpalteDaten)
'Spaltentitel in Zeile 10 ab Spalte 13 (M) im Archiv suchen
With wksArchiv
Set rngSpalte = Range(.Cells(10, 13), .Cells(10, .Columns.Count).End(xlToLeft)) _
.Find(What:=varSpalte, LookIn:=xlValues, lookat:=xlWhole)
End With
If rngSpalte Is Nothing Then
MsgBox "Spaltentitel " & varSpalte & " im Archiv Zeile 10 nicht gefunden!"
Else
'Eintrag überschreiben, wenn geändert
If wksArchiv.Cells(rngZeile.Row, rngSpalte.Column).Value  _
.Cells(ZeiDaten, SpalteDaten).Value Then
wksArchiv.Cells(rngZeile.Row, rngSpalte.Column).Value = _
.Cells(ZeiDaten, SpalteDaten).Value
End If
End If
Next
End If
End If
Next
End With
End Sub

Beliebteste Forumthreads (12 Monate)

Geänderte Filterzeilen zurückschreiben

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Geänderte Filterzeilen zurückschreiben

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread