Thema Datum  Von Nutzer Rating
Antwort
08.02.2022 11:24:34 Tin
NotSolved
08.02.2022 17:38:32 Gast80011
NotSolved
08.02.2022 17:55:00 ralf_b
NotSolved
08.02.2022 18:10:32 Gast67774
NotSolved
08.02.2022 18:18:31 ralf_b
NotSolved
Blau Automatisch übertragen
 08.02.2022 18:20:15 Gast43388
NotSolved
08.02.2022 18:25:02 ralf_b
NotSolved
10.02.2022 08:42:12 Gast70888
NotSolved
10.02.2022 10:19:59 ralf_b
NotSolved
10.02.2022 21:30:25 ralf_b
NotSolved
10.02.2022 21:46:19 Gast3621
NotSolved

Ansicht des Beitrags:
Von:
Gast43388		 Datum:
08.02.2022 18:20:15		 Views:
599		 Rating:
     
Antwort:
  Ja
Thema:
Automatisch übertragen		 
Sub BedingteKopieZeilen()
    Dim Zeile  As Long
    Dim n      As Long
 
    Application.ScreenUpdating = False
    
    With Tabelle1
        n = 4
        For Zeile = .UsedRange.Row To .UsedRange.SpecialCells(xlCellTypeLastCell).Row
            If .Cells(Zeile, 3).Value = "Zusage" Then
              If Tabelle4.Cells(n, 3) = "" Then
                Tabelle4.Cells(n, 1).Resize(1, .UsedRange.Rows.Count).Value = Intersect(.UsedRange, .Rows(Zeile)).Value
              End If
              n = n + 1
            End If
        Next Zeile
    End With
    Application.ScreenUpdating = True
End Sub

So funktioniert es.

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
08.02.2022 11:24:34 Tin
NotSolved
08.02.2022 17:38:32 Gast80011
NotSolved
08.02.2022 17:55:00 ralf_b
NotSolved
08.02.2022 18:10:32 Gast67774
NotSolved
08.02.2022 18:18:31 ralf_b
NotSolved
Blau Automatisch übertragen
 08.02.2022 18:20:15 Gast43388
NotSolved
08.02.2022 18:25:02 ralf_b
NotSolved
10.02.2022 08:42:12 Gast70888
NotSolved
10.02.2022 10:19:59 ralf_b
NotSolved
10.02.2022 21:30:25 ralf_b
NotSolved
10.02.2022 21:46:19 Gast3621
NotSolved