Thema Datum  Von Nutzer Rating
Antwort
21.07.2015 14:39:33 Alwin
NotSolved
Blau Werte vergleich und bei Übereinstimmung Zeile kopieren
 22.07.2015 22:26:56 BigBen
NotSolved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
22.07.2015 22:26:56		 Views:
1145		 Rating:
     
Antwort:
  Ja
Thema:
Werte vergleich und bei Übereinstimmung Zeile kopieren

Hallo,

diese Lösung funktioniert in Excel 2013:

    Dim xlSheet As Worksheet
    Set xlSheet = ActiveWorkbook.Sheets("Tabelle1")
    Dim xlDestSheet As Worksheet
    Set xlDestSheet = ActiveWorkbook.Sheets("Tabelle2")
    With xlSheet
        Dim vt_typ As String
        Dim i As Integer
        For i = 2 To 10
            vt_typ = .Cells(i, 2).Value
            If vt_typ = "K" Then
                xlSheet.Rows(i).Cut xlDestSheet.Rows(i)
                i = i - 1
            End If
        Next i
    End With
 
 
MfG,
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
21.07.2015 14:39:33 Alwin
NotSolved
Blau Werte vergleich und bei Übereinstimmung Zeile kopieren
 22.07.2015 22:26:56 BigBen
NotSolved