Range().Value Problem
06.08.2015 10:59:19
Dennis
ich habe folgenden Code:
Private Sub CommandButton1_Click()
Dim a As String
Dim b As Integer
Dim c As Integer
Dim d As String
Dim e As Integer
Dim f As Integer
Dim Index As Integer
a = Mid(TextBox1.Text, 1, 1)
b = Mid(TextBox1.Text, 2, 2)
c = Asc(a) - 64
d = Mid(TextBox2.Text, 1, 1)
e = Mid(TextBox2.Text, 2, 2)
f = Asc(d) - 64
With Range(Cells(b, c), (Cells(e, f)))
If Range(Cells(b, c), (Cells(e, f))).Value = "" Then
If Range(Cells(b, c), (Cells(e, f))).Rows.Count = 5 Or _
Range(Cells(b, c), (Cells(e, f))).Columns.Count = 5 Then
.Value = "#"
.Font.Bold = True
.Interior.Color = vbYellow
Else
MsgBox "Bitte Abstand von 5 Zeilen/Spalten wählen", vbOKOnly & vbInformation, " _
Hinweis"
Exit Sub
End If
Else
MsgBox "Diese Zelle ist bereits belegt", vbOKOnly & vbInformation, "Hinweis"
Exit Sub
End If
End With
Range(Cells(b, c), (Cells(e, f))).Select
For Index = xlEdgeLeft To xlEdgeRight
With Selection.Borders(Index)
.LineStyle = xlDouble
.Weight = xlThick
End With
Next Index
End Sub
Ich lese aus einer Userform dort eigegebene Zellen aus und wähle sie über diese Funktion dann an und fülle sie. Funktioniert soweit super.Jetzt möchte ich aber noch die Probe einfügen, ob eine der Zellen bereits einen Wert hat. Falls ja, soll eine Fehlermeldung kommen.
Dass der Code so nicht funktioniert, ist mir bewusst, leider finde ich keine Lösung. Ich habe die nicht funktionierenden Schnipsel fett markiert, ohne sie läuft der Code (aber eben ohne die zusätzliche Abfrage).
Vielen Dank,
Dennis