---

ExcelHandle.JPG

Hallo VBA'ler,

In einer Exceltabelle sind zeilenweise Bauteile mit ihren Betongüten gespeichert. Die Identifizierung der Bauteile erfolgt durch die Bauteil-Handle in der 1. Spalte.
In der Exceltabelle sollen weitere Bauteile gespeichert werden. Dazu soll das Programm die Handle-Einträge in der 1.Spalte durchsuchen und mit dem Handle des aktuellen Bauteils vergleichen. Gibt es eine Übereinstimmung, dann soll in der gleichen Zeile, 2.Spalte die Betongüte eingetragen werden. Ansonsten soll in einer neuen Zeile nach dem letzten Eintrag ein weiterer Eintrag mit Bauteil-Handle und Betongüte hinzugefügt werden.(siehe auch Anhang)

Mein erfolgloser Versuch:

....
Worksheets("Tabelle1").Activate
LetzteBeschrReihe = ActiveSheet.Range("A65536").End(xlUp).Row
  For Each UZBauteil In UZBauteilListe
  j = 4
    For i = 4 To LetzteBeschrReihe
    If ActiveSheet.Cells(j, 1) = UZBauteil.BauteilHandle Then
      ActiveSheet.Cells(j, 2) = UZBauteil.Betongüte
      Exit For
    ElseIf ActiveSheet.Cells(j, 1) <> UZBauteil.BauteilHandle And j > ActiveSheet.Range("A65536").End(xlUp).Row Then
        LetzteBeschrReihe = ActiveSheet.Range("A65536").End(xlUp).Row
        ActiveSheet.Cells(LetzteBeschrReihe + 1, 1) = UZBauteil.BauteilHandle
        ActiveSheet.Cells(LetzteBeschrReihe + 1, 2) = UZBauteil.Betongüte
        Exit For
    End If
    j = j + 1
    Next
  Next
....

Hat jemand eine Idee, wie es funktionieren könnte?
Schon mal Vielen Dank im Voraus!

Viele Grüße Michel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

hat IMHO nichts mit AutoCAD zu tun, oder kommt die Liste 'UZBauTeilListe' aus AutoCAD (Architecture? ADT? ==> damit hab ich's nicht), aber:

wenn ich mir Deine Schleifen ansehe, dann führst Du 'j' und 'i' als 2 Zähler, um einen Wert (Reihe in Excel) zu zählen.

Probier mal:

Code:

---

Worksheets("Tabelle1").Activate
LetzteBeschrReihe = ActiveSheet.Range("A65536").End(xlUp).Row
  For Each UZBauteil In UZBauteilListe
    For i = 4 To LetzteBeschrReihe
      If ActiveSheet.Cells(i, 1) = UZBauteil.BauteilHandle Then
        ActiveSheet.Cells(i, 2) = UZBauteil.Betongüte
        Exit For
      ElseIf i = LetzteBeschrReihe Then
        ActiveSheet.Cells(LetzteBeschrReihe + 1, 1) = UZBauteil.BauteilHandle
        ActiveSheet.Cells(LetzteBeschrReihe + 1, 2) = UZBauteil.Betongüte
        LetzteBeschrReihe = LetzteBeschrReihe + 1
        Exit For
      End If
    Next
  Next

---

- alfred -

---

Hallo Alfred!

Vielen Dank (wiedermal) für deine Hilfe! Dein Code hat funktioniert!
Du hast völlig Recht. Im Grunde war es ein Excel Problem. Dieses trat im Zusammenhang bei der Programmierung einer Architecture (ADT) Anwendung auf.

Viele Grüße Michel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP