Hi hab folgendes Problem:
Ich habe einen Excel-Tabellle und alles steht in der Spalte A ich möchte nun herausfinden welcher User welches Programm benutzt und diese sollen ausgegeben werden. Z.B. wenn ich nach Hans suche soll er mir ausgeben [Prog1] und [Prog3]. Ich habe nun 2 Schleifen programmiert die mir jeweils alle Programme und alle hans ausgeben mit zugehöriger Zeilen Nr. Jetzt war meine überlegung das ich die Zeilennr vergleiche so das man am schluss die User zu den Programmen zuordnen kann allerdings habe ich keine Ahnung wie ich die Werte aus der Tabelle wieder auslese.
Die bedingung wäre dann User Nr > Prog1nr und Usernr
Public Sub verknüpfung()
Dim intwort, intbereich, intergebnis, intgef As Integer
Dim loletzte As Long
Dim bereich, ergebnis, gef As Integer
Dim programm As String
Dim loletzte1 As Long
Range(„C1:C2000“).ClearContents
Range(„D1:smiley:2000“).ClearContents
Range(„E1:E2000“).ClearContents
Range(„F1:F2000“).ClearContents
intgef = 2
loletzte = IIf(IsEmpty(Range(„A65536“)), Range(„A65536“).End(xlUp).Row + 1, 65536)
intwort = InputBox(„Was soll gesucht werden?“)
gef = 2
loletzte1 = IIf(IsEmpty(Range(„A65536“)), Range(„A65536“).End(xlUp).Row + 1, 65536)
programm = „[“
For intbereich = 1 To loletzte
If InStr(1, Cells(intbereich, 1), intwort, vbTextCompare) Then
Cells(intgef, 3) = Cells(intbereich, 1)
intergebnis = intbereich
Cells(intgef, 4) = intergebnis
intgef = intgef + 1
End If
Next
For bereich = 1 To loletzte1
If InStr(1, Cells(bereich, 1), programm, vbTextCompare) Then
Cells(gef, 5) = Cells(bereich, 1)
ergebnis = bereich
Cells(gef, 6) = ergebnis
gef = gef + 1
End If
Next
End Sub