|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 MsgBox zeigt falsch zeile an |
31.03.2008 09:07:50 |
Daniel |
|
|
|
31.03.2008 09:57:41 |
jh |
|
|
|
31.03.2008 10:59:22 |
daniel |
|
|
|
31.03.2008 12:38:23 |
daniel |
|
|
Von:
Daniel |
Datum:
31.03.2008 09:07:50 |
Views:
2248 |
Rating:
|
Antwort:
|
Thema:
MsgBox zeigt falsch zeile an |
Hi ich habe hier wahrscheinlich ein recht simples Problem, aber muss mich leider immer noch zu den Anfängern zählen :-(
Das folgende Skript kopiert über ein button "Auf erledigt setzen" ein komplette Zelle in eine anderes Worksheet. Es funktioniert auch super nur die MsgBox gibt den falschen Wert aus. Die MsgBox gibt zurück das die Zeile eins unter der wirklichen kopiert wurde.
Also die richtige Zeile wurde kopiert passt aber die MsgBox zeigt an das eine Zeile weiter drunter kopiert worden is :-(
Für nen Denkanstoß oder sonstige Hilfen wäre ich sehr dankbar:
Sub RadsaetzeUmtragen()
Dim intRow As Integer
If IsEmpty(Selection.Cells(1, 5)) Then
MsgBox "Fehler - Keine Zeile ausgewaehlt!"
Exit Sub
End If
intRow = 15
Do
If IsEmpty(Worksheets("erledigte Radsätze 2008").Cells(intRow, 4)) Then
Selection.Cells(1, 3).Copy Worksheets("erledigte Radsätze 2008").Cells(intRow, 2) ' Stk. ist
Selection.Cells(1, 4).Copy Worksheets("erledigte Radsätze 2008").Cells(intRow, 3) ' Radsatz
Selection.Cells(1, 5).Copy Worksheets("erledigte Radsätze 2008").Cells(intRow, 4) ' SachNr
Selection.Cells(1, 8).Copy Worksheets("erledigte Radsätze 2008").Cells(intRow, 5) ' St.-Soll
Selection.Cells(1, 9).Copy Worksheets("erledigte Radsätze 2008").Cells(intRow, 6) ' Auftrag
Selection.Cells(1, 10).Copy Worksheets("erledigte Radsätze 2008").Cells(intRow, 7) ' Starttermin
Selection.Cells(1, 11).Copy Worksheets("erledigte Radsätze 2008").Cells(intRow, 8) ' Solltermin
Selection.Cells(1, 33).Copy Worksheets("erledigte Radsätze 2008").Cells(intRow, 10) ' RT AKR
Selection.Cells(1, 34).Copy Worksheets("erledigte Radsätze 2008").Cells(intRow, 11) ' RT Tellerrad
Selection.Cells(1, 35).Copy Worksheets("erledigte Radsätze 2008").Cells(intRow, 12) ' Bemerkung
Selection.EntireRow.Delete
MsgBox "Kopieren der Daten von " & Selection.Cells(1, 4) & " erfolgreich"
Exit Do
End If
intRow = intRow + 1
Loop
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
MsgBox zeigt falsch zeile an |
31.03.2008 09:07:50 |
Daniel |
|
|
|
31.03.2008 09:57:41 |
jh |
|
|
|
31.03.2008 10:59:22 |
daniel |
|
|
|
31.03.2008 12:38:23 |
daniel |
|
|