rowCount = Variable fuer Zeile
colCount = Variable fuer Spalte
Hoffe es hilft Dir :-)
Andreas
anbei ein DemoCode. Eventuelle kannst du diesen umschreiben udn für Deinen Zweck einsetzen.
Sub DatenSpeichern()
Dim zähler As Integer
Dim suchsting As String
Worksheets("Wareneingang").Activate
' Prozedur zeigt die Erfassungsmaske an
Anfang:
Set dlg1 = Application.DialogSheets("Warendialog")
suchstring = dlg1.EditBoxes("WE_NUMMER").Text
'ISt Satz schin erfaßt / Einfügeposition suchen
Columns("A:A").Select
On Error GoTo weiterN
Selection.Find(What:=suchstring, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
MsgBox "Dieser Satz existiert schon !": Exit Sub
weiterN:
Selection.Find(What:="EOF", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False).Activate
ActiveCell.Offset(0, 0).Range("A1").Select
' Prüfen, ob alle wichtigen Felder ausgefüllt sind
For zähler = 1 To 6
If dlg1.EditBoxes(zähler).Text = "" Then
MsgBox dlg1.EditBoxes(zähler).Name & " fehlt"
dlg1.Focus = dlg1.EditBoxes(zähler).Name
Exit Sub
End If
Next zähler
With Application.Selection
.Offset(0, 0).Value = dlg1.EditBoxes("WE_NUMMER").Text
.Offset(0, 1).Value = dlg1.EditBoxes("WARENEINGANGSDATUM").Text
.Offset(0, 2).Value = dlg1.EditBoxes("LIEFERSCHEIN_NUMMER").Text
.Offset(0, 3).Value = dlg1.EditBoxes("LIEFERANT").Text
.Offset(0, 4).Value = dlg1.EditBoxes("SPEDITION").Text
.Offset(0, 5).Value = dlg1.EditBoxes("ANNEHMER").Text
End Sub
Wenn Du magst kann ich Dir auch die komplette Datei schicken,. Wenn ja, dann mail mich einfach an.
Viele Grüße
Bernd
MVP für Microsoft Excel
Excel Know-How und Office-Publikationen unter: http://held-office.de
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen