Thema Datum  Von Nutzer Rating
Antwort
27.01.2016 09:53:15 Jonas
NotSolved
27.01.2016 14:51:23 Jan
NotSolved
Rot 2Tabellen
30.01.2016 19:16:42 BigBen
NotSolved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
30.01.2016 19:16:42		 Views:
697		 Rating:
     
Antwort:
  Ja
Thema:
2Tabellen

Hallo,

falls das Problem noch besteht, würde ich es wie folgt lösen:

Sub CompareWith(ServerNumber As String)
    Dim shSrc As Worksheet
    Dim rngSrc As Range, rngSrcFound As Range
    Dim shDest As Worksheet
    Dim rngDest As Range, rngDestFound As Range
    Set shSrc = ActiveWorkbook.Worksheets("Tabelle1")
    Set shDest = ActiveWorkbook.Worksheets("Tabelle2")
    Set rngSrc = Intersect(shSrc.UsedRange, shSrc.Columns(4))
    Set rngDest = Intersect(shDest.UsedRange, shDest.Columns(3))
    
    Set rngSrcFound = rngSrc.Find(what:=ServerNumber)
    If Not rngSrcFound Is Nothing Then
        Set rngDestFound = rngDest.Find(what:=ServerNumber)
        If rngDestFound Is Nothing Then
            ' Nicht vorhanden, Neuen Eintrag hinzufügen!
            shDest.Activate
            shDest.Cells(rngDest.Rows.Count + 1, rngDest.Column).Value = "Private Pinur Machi (Pripi" & ServerNumber & ".ab.cd.efg / 3344)"
        End If
    End If
End Sub

Dieser Befehl sucht mit Hilfe des Find-Befehls alle Eintragungen jeweils in beiden Tabellen durch.

Falls in der Tabelle 1 ein Eintrag gefunden wurde, wird dieser Eintrag auch in der Tabelle 2 gesucht und bei Bedarf angehängt.

VG, BigBen

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
27.01.2016 09:53:15 Jonas
NotSolved
27.01.2016 14:51:23 Jan
NotSolved
Rot 2Tabellen
30.01.2016 19:16:42 BigBen
NotSolved