Thema Datum  Von Nutzer Rating
Antwort
18.05.2020 15:59:30 Erik
NotSolved
18.05.2020 16:58:30 xlKing
*****
NotSolved
Rot Werte in 2 Spalten und 2 Zeilen vergleichen und Zelle einfügen
 19.05.2020 10:11:37 Erik
NotSolved
19.05.2020 17:28:35 xlKing
NotSolved
26.05.2020 09:52:52 Gast49763
NotSolved

Ansicht des Beitrags:
Von:
Erik		 Datum:
19.05.2020 10:11:37		 Views:
825		 Rating:
     
Antwort:
  Ja
Thema:
Werte in 2 Spalten und 2 Zeilen vergleichen und Zelle einfügen

WOW! Super, genau das!

Wenn jetzt noch die Spalten A, B, C von der Zelle darüber kopiert werden sollen und in Spalte F ("100") und G (0,01) fixe Werte eingetragen werden sollen müsste doch der Code nach der obigen Logik so aussehen:

1
2
3
4
5
6
7
8
9
10
11
Sub Teilen()
  i = 3
    Do While Cells(i, 1) <> ""
    If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 2) = Cells(i - 1, 2) Then
      Cells(i, 1).EntireRow.Insert
Cells(i, 1) = Cells(i - 1, 1) 
Cells(i, 2) = Cells(i - 1, 2)   
Cells(i, 3) = Cells(i - 1, 3)
Cells(i, 4) = Cells(i - 1, 5) + 5
      Cells(i, 5) = Cells(i + 1, 4) - 5
Cells(i, 6) = "100"
Cells(i, 7) = "0,01"
    End If
    i = i + 1
    Loop
End Sub
 

 

 

Leider habe ich dann eine Endlosschleife, nichts passiert und excel is not responding.

 

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.05.2020 15:59:30 Erik
NotSolved
18.05.2020 16:58:30 xlKing
*****
NotSolved
Rot Werte in 2 Spalten und 2 Zeilen vergleichen und Zelle einfügen
 19.05.2020 10:11:37 Erik
NotSolved
19.05.2020 17:28:35 xlKing
NotSolved
26.05.2020 09:52:52 Gast49763
NotSolved