Thema Datum  Von Nutzer Rating
Antwort
22.01.2016 18:00:01 Katrin
NotSolved
23.01.2016 11:00:50 Gast38919
NotSolved
23.01.2016 14:51:47 Gast77230
NotSolved
23.01.2016 16:44:15 Gast66165
NotSolved
23.01.2016 17:43:51 Gast84609
NotSolved
25.01.2016 18:15:04 Gast37699
NotSolved
Rot Vergleich von zwei Werten in unterschiedlichen Tabellenblättern
 25.01.2016 19:29:49 Gast34120
NotSolved
25.01.2016 21:30:28 Gast38381
Solved

Ansicht des Beitrags:
Von:
Gast34120		 Datum:
25.01.2016 19:29:49		 Views:
1101		 Rating:
     
Antwort:
  Ja
Thema:
Vergleich von zwei Werten in unterschiedlichen Tabellenblättern

Hallo Katrin!

Hier eine Version die fehlerfrei laufen sollte. Hatte da einmal zuviel gsucht. Jetzt sucht er nur so oft, wie der Wert auch vorkommt. VG

 

Option Explicit
  
Sub Daten_übernehmen()
 
Dim i As Long
Dim j As Long
Dim eins As Object
Dim zwei As Object
Dim anzahl As Long
Dim zeile As Long
Dim ende As Long
Dim ende2 As Long
Dim suche
 
Application.ScreenUpdating = False
 
Set eins = Worksheets(1)        'da wo alles rein soll
Set zwei = Worksheets(2)        'da wo gesucht wird
 
ende = eins.Cells(Rows.Count, 3).End(xlUp).Row
 
For i = ende To 1 Step -1
 
suche = eins.Cells(i, 3)
 
If suche <> "" Then
anzahl = Application.WorksheetFunction.CountIf(zwei.Columns(9), suche)
 
    If anzahl > 0 Then
        zeile = 0
        ende2 = zwei.Cells(Rows.Count, 9).End(xlUp).Row
         
        For j = 1 To anzahl
        zeile = zeile + Application.WorksheetFunction.Match(suche, zwei.Range(zwei.Cells(zeile + 1, 9), zwei.Cells(ende2, 9)), 0)
        eins.Rows(i + 1).Insert shift:=xlDown
        zwei.Rows(zeile).Copy eins.Rows(i + 1)
        Next j
     
    End If
End If
Next i
 
Set eins = Nothing
Set zwei = Nothing
  
Application.ScreenUpdating = True
  
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.01.2016 18:00:01 Katrin
NotSolved
23.01.2016 11:00:50 Gast38919
NotSolved
23.01.2016 14:51:47 Gast77230
NotSolved
23.01.2016 16:44:15 Gast66165
NotSolved
23.01.2016 17:43:51 Gast84609
NotSolved
25.01.2016 18:15:04 Gast37699
NotSolved
Rot Vergleich von zwei Werten in unterschiedlichen Tabellenblättern
 25.01.2016 19:29:49 Gast34120
NotSolved
25.01.2016 21:30:28 Gast38381
Solved