|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
18.01.2020 18:42:14 |
Jana |
|
|
|
18.01.2020 19:20:07 |
Mase |
|
|
|
25.01.2020 19:07:52 |
Jana |
|
|
|
25.01.2020 19:16:19 |
Mase |
|
|
|
25.01.2020 19:49:53 |
Jana |
|
|
|
25.01.2020 20:08:38 |
Mase |
|
|
 Verschachtelte Schleifen |
26.01.2020 13:52:16 |
Jana |
|
|
|
19.01.2020 15:42:40 |
Jana |
|
|
|
26.01.2020 12:46:15 |
Gast52795 |
|
|
|
26.01.2020 12:58:20 |
Gast81966 |
|
|
|
26.01.2020 14:10:51 |
Jana |
|
|
|
26.01.2020 16:48:44 |
Gast8113 |
|
|
Von:
Jana |
Datum:
26.01.2020 13:52:16 |
Views:
515 |
Rating:
|
Antwort:
|
Thema:
Verschachtelte Schleifen |
|
Hi Mase,
ich verstehe nicht so ganz, wie ich die innere Schleife umkehren soll. Ich habe jetzt ein Flag implementiert, dass auf True gesetzt wird, sobald zwei Zellen in dem Abgleich ungleich sind. Ich habe es debuggt und obwohl die ersten beiden Tabellen die verglichen werden sind ungleich. Das heißt ich komme gar nicht mehr zu dem "Exit For". Trotzdem wird auch die äußere Schleife nach dem ersten Durchlauf schon beendet.
Sub Abgleich_mit_bereits_Importierten()
Dim ActiveWS As Worksheet, y As Integer, UngleichFlag As Boolean
Dim wks As Worksheet
Set ActiveWS = ActiveSheet
UngleichFlag = False
For Each wks In ThisWorkbook.Worksheets
If Not wks.Name = ActiveWS.Name Then
UngleichFlag = False
For y = 1 To 256
If ActiveWS.Cells(1, y) <> wks.Cells(1, y) Then
UngleichFlag = True
End If
If y = 256 And UngleichFlag = False Then
ActiveWS.Rows(5).Copy
wks.UsedRange.SpecialCells(xlCellTypeLastCell).Paste
ActiveWS.Delete
Exit For
End If
Next y
End If
Next
End Sub
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
18.01.2020 19:20:07 |
Mase |
|
|
|
25.01.2020 19:07:52 |
Jana |
|
|
|
25.01.2020 19:16:19 |
Mase |
|
|
|
25.01.2020 19:49:53 |
Jana |
|
|
|
25.01.2020 20:08:38 |
Mase |
|
|
Verschachtelte Schleifen |
26.01.2020 13:52:16 |
Jana |
|
|
|
19.01.2020 15:42:40 |
Jana |
|
|
|
26.01.2020 12:46:15 |
Gast52795 |
|
|
|
26.01.2020 12:58:20 |
Gast81966 |
|
|
|
26.01.2020 14:10:51 |
Jana |
|
|
|
26.01.2020 16:48:44 |
Gast8113 |
|
|