Zeilen kopieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Jochen,
sorry, meine 4. Frage war Unfug - Zeile 9 ist ja nach dem Verschieben immer leer, da hast du natürlich recht.
Deine Antwort auf Frage 2 verstehe ich nicht.
"Woran soll VBA erkennen, dass eine Zeile fertig ist, also die letzte Eingabe erfolgt ist?"
"VBA erkennt das Ende der Eingabe in Zeile 9 durch das Ende des Makros mit dem die Eingabe erfolgt."
So wie ich das sehe, läuft während der Benutzereingaben in Zeile 9 KEIN Makro.
Der Benutzer gibt mittels Tastatur oder Maus einen Wert in A9 und weitere Zellen in Zeile 9 ein.
In welcher Reihenfolge er das tut, ist gleichgültig.
Nehmen wir an, A9, B9 und C9 wurden gefüllt. Kein Programm oder Makro kann wissen,
ob der Benutzer noch etwas in D9 eingeben oder vielleicht auch seine Eingabe in B9 korrigieren will.
Wenn der Benutzer meint, fertig zu sein, muss er das VBA irgendwie mitteilen,
das Makro zum Kopieren und Verschieben starten - etwa per Button.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Hallo Jochen,
du hättest ruhig in diesem Thread bleiben können...
Ich habe dir hier einige Kommentare eingebaut:


Option Explicit
Sub cbStart()
Dim strB As String
If Len(Cells(9, 1)) > 1 Then       ' in A9 muss mehr als 1 Zeichen stehen
strB = Left(Cells(9, 1), 2)     ' merke die beiden ersten Zeichen von A9
If worksheetEx(strB) Then       ' wenn ein Blatt mit dem Namen existiert
With Worksheets(strB)        '   arbeite in Blatt strB
.Rows(9).Insert           '   füge neue leere Zeile 9 in Blatt strB ein
Rows(9).Copy .Cells(9, 1) '   kopiere Zeile 9 aus Tab1 in Blatt strB
End With
Rows(9).Insert               '   füge neue leere Zeile 9 in Tab1 ein
Else                            ' sonst melde einen Fehler
MsgBox "Es gibt kein Blatt '" & strB & "'!", vbCritical, "Abbruch"
End If
Else
MsgBox "In A9 müssen mindestens zwei Zeichen stehen.", vbCritical, "Abbruch"
End If
End Sub
Function worksheetEx(strNam As String) As Boolean
' Wenn das Blatt nicht existiert, gibt es einen Fehler, der aber mit
'   "On Error Resume Next" übergangen wird.
'   worksheetEx wird nicht belegt und hat/behält den Defaultwert Falsch
' Wenn das Blatt existiert, ist der Index des Blattes > 0, worksheetEx ist Wahr
On Error Resume Next
worksheetEx = Worksheets(strNam).Index > 0
End Function

Alles klar?
(Vielleicht könntest du dir in der VBA-Hilfe mal With ... End With ansehen. Das ist oft sehr nützlich.)
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilen kopieren

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread