Thema Datum  Von Nutzer Rating
Antwort
18.01.2020 18:42:14 Jana
NotSolved
18.01.2020 19:20:07 Mase
NotSolved
25.01.2020 19:07:52 Jana
NotSolved
25.01.2020 19:16:19 Mase
NotSolved
Rot Verschachtelte Schleifen
 25.01.2020 19:49:53 Jana
NotSolved
25.01.2020 20:08:38 Mase
NotSolved
26.01.2020 13:52:16 Jana
NotSolved
19.01.2020 15:42:40 Jana
NotSolved
26.01.2020 12:46:15 Gast52795
*****
Solved
26.01.2020 12:58:20 Gast81966
Solved
26.01.2020 14:10:51 Jana
NotSolved
26.01.2020 16:48:44 Gast8113
NotSolved

Ansicht des Beitrags:
Von:
Jana		 Datum:
25.01.2020 19:49:53		 Views:
553		 Rating:
     
Antwort:
  Ja
Thema:
Verschachtelte Schleifen		 
Sub Abgleich_mit_bereits_Importierten()

Dim ActiveWS As Worksheet, x As Integer, y As Integer
Dim wks As Worksheet

Set ActiveWS = ActiveSheet

 For Each wks In ThisWorkbook.Worksheets
    If Not wks.Name = ActiveWS.Name Then
     For y = 1 To 256
      If ActiveWS.Cells(1, y) <> wks.Cells(1, y) Then
        y = 1
        Exit For
      End If
      If y = 256 Then
        ActiveWS.Rows(5).Copy
        wks.UsedRange.SpecialCells(xlCellTypeLastCell).Paste
        ActiveWS.Delete
      End If
    Next y
   End If
    
    
 Next

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
18.01.2020 18:42:14 Jana
NotSolved
18.01.2020 19:20:07 Mase
NotSolved
25.01.2020 19:07:52 Jana
NotSolved
25.01.2020 19:16:19 Mase
NotSolved
Rot Verschachtelte Schleifen
 25.01.2020 19:49:53 Jana
NotSolved
25.01.2020 20:08:38 Mase
NotSolved
26.01.2020 13:52:16 Jana
NotSolved
19.01.2020 15:42:40 Jana
NotSolved
26.01.2020 12:46:15 Gast52795
*****
Solved
26.01.2020 12:58:20 Gast81966
Solved
26.01.2020 14:10:51 Jana
NotSolved
26.01.2020 16:48:44 Gast8113
NotSolved