Hallo,
ich versuche nochmal mal mein Problem zu erklären vllt kannst du mir Nepumuk oder auch gerne jemand anders weiterhelfen.
In der Textbox1 steht folgendes untereinander
anrede
Name
Straße
mit klick auf speichern werden die daten aus textbox1 in das sheet Kunden mit der split funktion reingeschrieben. so steht dann in zeile c2 anrede, d2 name, e2 straße. das klappt auch prima.
will ich jetzt jedoch ein makro starten mit "if sheets("kunden").range("c2") = "Anrede" then sheets("Kunden").range("a10") = "xx" end if" springt er direkt zu end if. heist er erkennt den text "anrede" in zeile c2 nicht. ich verstehe nicht warum, da der code eig richtig ist. somit kann nur bei der split funktion ein fehler sein.
In der angehängten datei steht der code auf der userform1 , speichern button, sowie der if befehl unter modul 2
Private Sub CommandButton5_Click()
Dim rng As Range
Dim lngZeile As Long
Dim arr As Variant
'Spalte A na1ch Wert durchsuchen
Set rng = Sheets("Kunden").Range("a:a").Find(what:=TextBox17.Value, lookat:=xlWhole, LookIn:=xlValues)
'Wenn Wert gefunden
If Not rng Is Nothing Then
lngZeile = rng.Row
arr = Split(TextBox1, vbLf)
Sheets("Kunden").Range(Sheets("Kunden").Cells(lngZeile, 3), Sheets("Kunden").Cells(lngZeile, 3 + UBound(arr, 1))) = arr
If Not rng Is Nothing Then
lngZeile = rng.Row
Sheets("Kunden").Cells(lngZeile, 13) = TextBox16
Sheets("Kunden").Cells(lngZeile, 10) = TextBox15
Sheets("Kunden").Cells(lngZeile, 1) = TextBox17.Value
Sheets("Kunden").Cells(lngZeile, 17) = TextBox18
If IsNumeric(TextBox19) Then
Sheets("Kunden").Cells(lngZeile, 18).Value = TextBox19 * 1
Else
Sheets("Kunden").Cells(lngZeile, 18).Value = TextBox19.Value * 1
End If
Sheets("Kunden").Cells(lngZeile, 9) = TextBox11
Sheets("Kunden").Cells(lngZeile, 8) = TextBox13
Sheets("Kunden").Cells(lngZeile, 15) = ComboBox1
Sheets("Kunden").Cells(lngZeile, 16) = ComboBox2
Sheets("Kunden").Cells(lngZeile, 26) = TextBox26
End If
End Sub
https://www.herber.de/bbs/user/142530.xlsm
gruß dominik
|