ich benötige Eure Hilfe bei folgendem Code:
--> Der Code ist in einem allgemeinen Modul gespeichert
--> Er sucht eine bestimmte Spaltennummer in der Tabelle wsQB
--> Er wir gestartet aus der Tabelle wsNB
Er funktioniert soweit, allerdings nimmt er zur Bestimmung der gesuchten Spaltennummer nicht die Tabelle wsQB sondern die aktive Tabelle wsNB.
Was muss ich ändern, damit der Code auf die Tabelle wsQB zugreift?
Option Explicit
Sub Spaltennummer()
Dim wsQB As Worksheet
Dim wsNB As Worksheet
Dim lCol As Integer, b As Integer, c As Integer, Wert As Integer
Set wsNB = Worksheets("Namensbearbeitungstabelle")
Set wsQB = Worksheets(Worksheets("Namensbearbeitungstabelle").Range("B16").Value)
lCol = wsQB.UsedRange.SpecialCells(xlCellTypeLastCell).Column
Dim LCol8 As Integer
With wsQB
For b = 1 To lCol
For c = 1 To lCol
If c = b Then c = c + 1
If Cells(2, b) = Cells(2, c) And Cells(2, c + 1) = "" Then
Wert = c + 1
MsgBox Wert
' LCol8 = Wert
' wsNB.Range("F1") = LCol8
Exit Sub
End If
Next c
Next b
End With
End Sub
Besten Dank für Eure Hilfe und Servus, Walter