Makro - Vollständigkeit einer Tabelle

Hallo, erstmal zum Upload:
https://www.herber.de/bbs/user/93775.xlsx
Ich habe in Tabelle 2 und Tabelle 3 Stammdaten, welche hier gepflegt werden.
Im Overview soll nun ein Makro prüfen, welche Projekte in Tabelle 2 das Kriterium "yes" haben und noch nicht in C13-C35 enthalten sind. Das gleiche soll mit Tabelle 3 passieren für Cost Center, welche im Overview in C52-C66 stehen sollen.
!!!Achtung!!!
1) Ich brauche für Projekte ein Makro und für die Cost Center ein Makro.
2) Es ist wichtig das die im Overview bereits stehenden Projekte oder Cost center nicht aus tabelle 2 und Tabelle 3 überschrieben werden, sondern nur ans Ende angehängt werden.
Beispiel:
Projekte: Aus Tabelle 2 muss noch Projekt 16-28 eingefügt in den Overview aufgenommen werden (Kriterium "ja")
Cost Center: Aus Tabelle 3 muss Cost Center 15-20 eingefügt werden.
Ich hoffe Ihr könnt mir helfen. Vielen Dank im vorraus!
Danke und Gruß, Rene

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
kannst mal so testen.
Hinweis: Die Datei nicht als xlms, xlsb oder xls speichern, xlsx kann kein VBA!

Option Explicit

Sub Check_PROJECT_NAME()
Dim ArData, ArAusgabe
Dim rngAusgabe As Range
Dim n&, nn&

With Tabelle1
    Set rngAusgabe = .Range("C13:C35")
End With

With Tabelle2
    ArData = .Range("A3", .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 10).Value2
End With

nn = 1
 
ArAusgabe = rngAusgabe.Value

With Application.WorksheetFunction
    For n = 1 To Ubound(ArData)
        If ArData(n, 10) = "ja" Then
            If .CountIf(rngAusgabe, ArData(n, 1)) = 0 Then
                For nn = nn To Ubound(ArAusgabe)
                    If ArAusgabe(nn, 1) = "" Then
                        ArAusgabe(nn, 1) = ArData(n, 1)
                        Exit For
                    End If
                Next nn
                If nn > Ubound(ArAusgabe) Then Exit For
            End If
        End If
    Next n
End With

rngAusgabe.Value = ArAusgabe
End Sub

Sub Check_Cost_Center_NAME()
Dim ArData, ArAusgabe
Dim rngAusgabe As Range
Dim n&, nn&

With Tabelle1
    Set rngAusgabe = .Range("C52:C66")
End With

With Tabelle3
    ArData = .Range("W2", .Cells(.Rows.Count, 23).End(xlUp)).Resize(, 2).Value2
End With

nn = 1
 
ArAusgabe = rngAusgabe.Value

With Application.WorksheetFunction
    For n = 1 To Ubound(ArData)
        If ArData(n, 2) = "ja" Then
            If .CountIf(rngAusgabe, ArData(n, 1)) = 0 Then
                For nn = nn To Ubound(ArAusgabe)
                    If ArAusgabe(nn, 1) = "" Then
                        ArAusgabe(nn, 1) = ArData(n, 1)
                        Exit For
                    End If
                Next nn
                If nn > Ubound(ArAusgabe) Then Exit For
            End If
        End If
    Next n
End With

rngAusgabe.Value = ArAusgabe
End Sub

Gruß Tino

Beliebteste Forumthreads (12 Monate)

Makro - Vollständigkeit einer Tabelle

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread