Code funktioniert nur einmal!

Private Sub CommandButton3_Click() Dim suchid As Long Dim b As Integer Dim neuer_wert As String suchid = Sheets("Std").Range("C2") ScreenUpdating = False For j = 1 To 167 '167 = Spalte HM For i = 1 To 100 If Sheets("DB K1").Range(j & i) = suchid Then Sheets("1!").Range(j & i) = neuer_wert Sheets("DB K1").Range(j & i) = neuer_wert End If Next i Next j ScreenUpdating = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton3_Click() Dim suchid As Long Dim b As Integer Dim neuer_wert As String Dim Bereich As Range suchid = Sheets("Std").Range("C2") For Each Bereich In Sheets("DB K1").Range("A1:HM100") If Bereich = suchid Then Sheets("1!").Range(Bereich.Address) = neuer_wert Sheets("DB K1").Range(Bereich.Address) = neuer_wert End If Next Bereich End Sub

Private Sub CommandButton3_Click() Dim suchid As Long Dim b As Integer Dim neuer_wert As String Dim Bereich As Range, DatenBereich As Range suchid = Sheets("Std").Range("C2") For Each Bereich In Sheets("DB K1").Range("A1:HM100") If Bereich = suchid Then neuer_wert = Sheets("1").Range(Bereich.Address) Sheets("DB K1").Range(Bereich.Address) = neuer_wert End If Next Bereich End Sub

Hallo,
na sollte ich es jetzt richtig verstanden haben, müsste es so gehen.
Also in (DB K1!A1:AH100) wird nach beiden Bedingungen (1!A2 und StD!C2) gesucht bei Übereinstimmung
wird die Zeile in (DB K1!) mit der Zeile (1!A2:AH100) überschrieben.


Private Sub CommandButton3_Click()
Dim suchid1 As String, suchid2 As String
Dim b As Integer
Dim neuer_wert As String, SuchAddresse As String
Dim SuchDaten As Byte
Dim Bereich As Range, DatenBereich As Range
suchid1 = Sheets("StD").Range("C2") '1. Suchwert
suchid2 = Sheets("1").Range("A2") '2. Suchwert
For Each Bereich In Sheets("DB K1").Range("A1:AH100")
If Bereich = suchid1 Or Bereich = suchid2 Then
SuchAddresse = Range(Cells(Bereich.Row, 1).Address & ":" & Cells(Bereich.Row, 100). _
Address).Address
For Each DatenBereich In Sheets("1").Range(SuchAddresse)
Sheets("DB K1").Range(DatenBereich.Address) = _
Sheets("1").Cells(2, DatenBereich.Column) 'Bereich mit 1!A2:AH2 Überschreiben
Next DatenBereich
End If
Next BereichEnd Sub

Gruss
Tino

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Code funktioniert nur einmal!

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread