Thema Datum  Von Nutzer Rating
Antwort
Rot Bei bestimter Bedingung kopieren
04.06.2021 12:37:16 Ilker
Solved
04.06.2021 12:39:43 Gast9128
NotSolved
04.06.2021 12:41:21 Ilker
NotSolved
04.06.2021 12:43:01 Gast32838
NotSolved
04.06.2021 12:48:42 Ilker
NotSolved
04.06.2021 12:51:23 Mase
NotSolved
04.06.2021 12:59:15 Ilker
NotSolved
04.06.2021 13:47:03 Mase
NotSolved
04.06.2021 13:53:12 Ilker
NotSolved
04.06.2021 14:16:18 Mase
NotSolved
04.06.2021 14:29:39 Ilker
NotSolved

Ansicht des Beitrags:
Von:
Ilker
Datum:
04.06.2021 12:37:16
Views:
137
Rating: Antwort:
 Nein
Thema:
Bei bestimter Bedingung kopieren

Hallo zusammen,
ich habe wieder mal ein Problem und hoffe, dass hier weitergeholfen werden kann.
Ich möchte 2 Spalten auf verschiedene Tabellen vergleichen und wenn Werte gleich sind, soll kopiert werden, ansonsten ein Messagebox und kopieren abbrechen.
Vergleich funktioniert und Messagebox kommt aber es kopiert trotztdem. Und die Schleife dauert ewig, wenn es passt und kopiert wird.

Was mache ich denn falsch?
Vielen Dank schon mal.

Sub TransferDetailedEstimate()
Dim clave As String

clave = "test"

If MsgBox("This command will owerwrite everything in this Sheet." & "Do you really want to transfer?", vbYesNo + vbQuestion) = vbYes Then
    
    For i = 4 To 2000
    If Sheets("Detailed Estimate").Range("C" & i).Value <> Sheets("Detailed Forecast").Range("C" & i).Value Then
    MsgBox "Number of lines is not the same. Please check and correct the number of lines.", vbCritical
    Exit Sub
    Else:
    Application.ScreenUpdating = False
    Sheets("Detailed Forecast").Unprotect clave
    Sheets("Detailed Estimate").Range("D4:D2000").Copy
    Sheets("Detailed Forecast").Range("D4").PasteSpecial Paste:=xlPasteValues
    Sheets("Detailed Estimate").Range("L4:L2000").Copy
    Sheets("Detailed Forecast").Range("E4").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
       
    End If
    
    Next
    
    Sheets("Detailed Forecast").Range("D4").Select
    Sheets("Detailed Forecast").Protect clave, AllowDeletingRows:=True, AllowFormattingColumns:=True, AllowFormattingCells:=True, AllowFiltering:=True, UserInterfaceOnly:=True
  
   
End If

Application.ScreenUpdating = True
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
Rot Bei bestimter Bedingung kopieren
04.06.2021 12:37:16 Ilker
Solved
04.06.2021 12:39:43 Gast9128
NotSolved
04.06.2021 12:41:21 Ilker
NotSolved
04.06.2021 12:43:01 Gast32838
NotSolved
04.06.2021 12:48:42 Ilker
NotSolved
04.06.2021 12:51:23 Mase
NotSolved
04.06.2021 12:59:15 Ilker
NotSolved
04.06.2021 13:47:03 Mase
NotSolved
04.06.2021 13:53:12 Ilker
NotSolved
04.06.2021 14:16:18 Mase
NotSolved
04.06.2021 14:29:39 Ilker
NotSolved