Makro im Hintergrund
04.05.2006 08:58:22
daniel
also heute mal ein schönheitsproblem:
habe da 'ne datei wo auf dem ersten sheet mehrere Textboxen auszufüllen sind.
dabei soll sich das eingegebene automatisch in bestimmte zellen auf sheet 2 und sheet 3 übertragen. soweit eigentlich ganz easy. wenn ich aber die key_press variante benutze zappelt das ganze bei jedem buchstaben. mit der lost_focus,
immer wenn ich die nächste TB auswähle.
kann man das so einstellen, dass der übertrag im hintegrund abläuft, ohne das blitzschnelle springen in die andren sheets?
wenn ja verratet mir doch bitte wie?
hier mein aktueller code:
Private Sub TextBox1_LostFocus()
ActiveWorkbook.Sheets("Sheet2").cells(7, 2).Value = TextBox1.Value
ActiveWorkbook.Sheets("sheet3").cells(7, 2).Value = TextBox1.Value
ActiveWorkbook.Sheets("Sheet3").cells(81, 2).Value = TextBox1.Value
End Sub
Private Sub TextBox2_LostFocus()
ActiveWorkbook.Sheets("sheet2").cells(7, 14).Value = TextBox2.Value
ActiveWorkbook.Sheets("sheet3").cells(7, 14).Value = TextBox2.Value
ActiveWorkbook.Sheets("sheet3").cells(81, 14).Value = TextBox2.Value
End Sub
vielen dank schonmal im vorraus
gruß
daniel
Anzeige