Hilfe bei Code variable
16.12.2016 10:30:20
Peter
Ihr habt mir bereits sehr viel geholfen. Dafür besten Dank.
Auch heute habe ich ein Problem. Ich habe eine Datei in welcher Daten in eine Tabelle eingefügt wird. Auf dem Arbeitsblatt "Konten" befinden sich 60 verschiedene Konten.
Diese sind angeordnet von Spalte A=1 bis RL=480. Jedes Konto besteht aus 8 Spalten.
Somit ist jede 8. Spalte der Suchbegriff "sSuchbegr_1" = Spalte 1 und sSuchbegr_2 = Spalte 2.
In meinem konkreten Beispiel habe ich eine Änderung auf 9 und 10 vorgenommen.
Dieses Makro funktioniert einwandfrei. Einziges Problem. Mir fehlt die Variable für die 60 Konten.
Public Sub SuchenListBox2_ändern_test()
Dim WkSh As Worksheet
Dim rZelle As Range
Dim sFundst1 As String
Dim sFundst2 As String
Dim sSuchbegr_1 As String
Dim sSuchbegr_2 As String
Dim sSuchbegr_3 As String
Dim sSuchbegr_4 As String
Dim bGefunden As Boolean
Dim sBereichSp As String
sSuchbegr_1 = "02.01.2016"
sSuchbegr_2 = "3"
sBereichSp = "9"
Worksheets("Konten").Activate
Set WkSh = Worksheets("Konten") ' sFundst1
Else
MsgBox "Der Suchbegriff """ & sSuchbegr_1 & """ wurde nicht gefunden.", _
48, " Hinweis für " & Application.UserName
Exit Sub
End If
End With
If bGefunden = True Then
Cells(rZelle.Row, 9) = "02.01.2016"
Cells(rZelle.Row, 10) = "3"
Cells(rZelle.Row, 11) = "test23"
Cells(rZelle.Row, 12) = "2,00"
Cells(rZelle.Row, 13) = ""
End If
End Sub
bzw. in Zeile: If sSuchbegr_2 = WkSh.Cells(rZelle.Row, 10).Value Then ' 2. Begriff
statt 10 eine Variable?
Im Normalfall ist die Zahl jeweils in einer UF TextBox.
Besten Dank für Eure Hilfe.
Gruss
Peter
Anzeige