Suchergebnisse in ein neues Worksheet übertragenn
19.01.2019 13:04:12
Marc
ich bin ein VBA Anfänger und weis mir leider nicht mehr zu helfen.
Ich habe folgendes Problem. Ich möchte die Deputatsplanung in einer Tabelle darstellen.
In Tabelle 1 trage ich die Namen der Dozenten zu den entsprechenden Modulen ein. Mit Hilfe von VBA möchte ich in Tabelle 2 eine Ansicht erstllen, in der alle Module eines Dozenten sortiert angezeigt werden. Dies habe ich anhand des folgenden Programmcodes mit Hilfe einer Suche nach Dozent ,,A" versucht.
Sub Suchen()
Dim finden As Range 'Durchsucht Spalte nach Suchbegriff
Dim treffer As String 'Angabe der TRefferzeile
Dim Module() 'array Speichert die gewünschten Einträge
Dim size As Integer 'Größe d. Arrays
Set finden = Columns(5).Find(what:="A")
If Not finden Is Nothing Then
treffer = finden.Address 'Speichert erste Adresse
Do
ReDim Preserve Module(100, size)
If finden.Value = "A" Then
Module(0, size) = finden.Offset(0, -3).Value
Module(0, size) = finden
finden.Copy Destination:=Worksheets("Tabelle2").Columns("B:B")
size = size + 1
End If Set finden = Columns(5).FindNext(finden)
Loop While Not finden Is Nothing And treffer finden.Address
End If
End Sub
Ich weis dass mein aktueller Code sofrn er funktioniert nur Dozent A übertagen würde
Über ein Feedback was ich falsch mache oder welcher Lösungsansatz besser funktionieren , würde ich mich sehr freuen.
Mit freundlichen Grüßen
Marc