Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Eingabe mit VBA erzwingen





Frage

Hi, hab folgende probl. habe 5 felder im SUbUSerformular wie kann ich jemanden erzwingen in den SubUSerformular die felder zu eingabe erzwingen. falls einer der felder Überspungen wird Ihn darauf aufmerksam machen. Der Curser soll in den feld springen wo noch keine eingabe gemacht worden ist. Vielen dank im Vorraus

Antwort 1 von nighty

hi dudu :)

hier ein makro was einen bereich eingrenzt und zur letzten freien vorgegebenen zelle springt bei falschem ansprung.:)

zur zeit ist B3-F3 als bereich eingestellt,den forderungen anzupassen.

ich hoffe doch fehlerfrei :)

gruss nighty

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Call Makro01
End Sub

Sub Makro01()
bereich1$ = "B3"
bereich2$ = "F3"
GoSub adresse
b1 = 0
If zeile1 >= Val(Mid$(bereich1$, 2, Len(bereich1$))) And zeile1 <= Val(Mid$(bereich2$, 2, Len(bereich2$))) Then
b1 = b1 + 1
End If
If Asc(spalte$) >= Asc(Mid$(bereich1$, 1, 1)) And Asc(spalte$) <= Asc(Mid$(bereich2$, 1, 1)) Then
b1 = b1 + 1
End If
If b1 <> 2 Then
For t = Asc(Mid$(bereich1$, 1, 1)) To Asc(Mid$(bereich2$, 1, 1))
For t1 = Val(Mid$(bereich1$, 2, Len(bereich1$))) To Val(Mid$(bereich2$, 2, Len(bereich2$)))
If Range(Chr$(t) & t1) = "" And g0 < 1 Then
zaehler = 1
g0 = 1
g1 = t
g2 = t1
End If
Next t1
Next t
If zaehler = 1 Then Range(Chr$(g1) & g2).Select
End If
End
adresse:
adress$ = ActiveWindow.RangeSelection.Address
adress1 = Len(adress$)
For mo = 1 To adress1
If Mid$(adress, mo, 1) = "$" Then
llp = llp + 1
Else
If llp = 1 Then
spalte$ = spalte$ + Mid$(adress, mo, 1)
End If
If llp = 2 Then
zeile$ = zeile$ + Mid$(adress, mo, 1)
zeile1 = Val(zeile$)
End If
End If
Next mo
Return
End Sub





Antwort 2 von nighty

hi dudu

wenn ich ueberhaupt richtig liege ,was ist denn ein subuserfomular ?
falls du eine tabelle meinst funzt das makro :)

gruss nighty

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: