Thema Datum  Von Nutzer Rating
Antwort
Rot Ausschneiden statt kopieren
 12.08.2015 09:30:50 Fab
NotSolved

Ansicht des Beitrags:
Von:
Fab		 Datum:
12.08.2015 09:30:50		 Views:
1365		 Rating:
     
Antwort:
  Ja
Thema:
Ausschneiden statt kopieren

Hi!

Der folgende Code funktioniert soweit so gut, allerdings möchte ich das er die entsprechenden Werte nicht nur in Tabelle 3 kopiert sondern ausschneidet - also in Tabelle 1 löscht quasi. Wie muss ich den Code verändern?

2. Frage: der Wert "Eric Mix" ist ein Name. Kann ich mehrere Namen angeben nach denen der Makro sucht und ausschneidet? Wenn ja wie?

3. Frage: kann ich den Tabellenblättern per Makro ein Namen verpassen?

Vielen Dank!! Gruß Fab

    Sheets.Add After:=ActiveSheet
    Dim i As Long, tLR As Long
    Dim tarWks As Worksheet, srcWks As Worksheet
    Set srcWks = Worksheets("Tabelle1")
    Set tarWks = Worksheets("Tabelle3")
    With srcWks
    For i = 1 To .Cells(.Rows.Count, 8).End(xlUp).Row
        If .Cells(i, 5).Value = "Eric Mix" Then
            tLR = tarWks.Cells(Rows.Count, 1).End(xlUp).Row + 1
            Debug.Print tLR
            With tarWks
                .Range(.Cells(tLR, 1), .Cells(tLR, 8)).Value = srcWks.Range(srcWks.Cells(i, 1), _
    srcWks.Cells(i, 10)).Value
                End With
            End If
        Next i
    End With

 

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
Rot Ausschneiden statt kopieren
 12.08.2015 09:30:50 Fab
NotSolved