Hilfe, Erklärung eines Makros!!

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox MsgBox
Bild

Betrifft: Hilfe, Erklärung eines Makros!! von: Tom
Geschrieben am: 07.04.2005 15:26:00

Ich benötige eine Hilfe bezüglich eines Makros, könnte mir jemand erklären, was das Makro bewirkt? wichtig wären die Zeile 4,8 und 9?

Sub Datensatz_löschen()
Dim strLöschen As String
         A = frm3.TextBox1.Value
         strLöschen = "B" & A + 7 & ":M" & A + 7
         n = MsgBox("Wollen Sie die Daten wirklich löschen?", vbYesNo)
    If n = vbYes Then
        frm3.Show
        Range(strLöschen).Delete
        Columns("a").Find("").Select
    If n = vbNo Then
        Sheets("Tabelle1").Select
    End If
    End If
End Sub


Grüßle Tom
Bild


Betrifft: AW: Hilfe, Erklärung eines Makros!! von: sirhendrik
Geschrieben am: 07.04.2005 15:44:19

o.k. Also los:

Sub Datensatz_löschen()
'Definiert Variable strLöschen als Zeichenkette
Dim strLöschen As String
         'Schnapp´ Dir den Wert der in Textbox1 eingegeben wurde,
         ' schreib ihn in Variable A 
         A = frm3.TextBox1.Value
         'in die oben definierte Variable kommt folgender Zellbereich: 
         '(B[Wert der Variable A +7]:M[Wert der Variable A +7]) 
         ' Also z.b. B14:M14
         strLöschen = "B" & A + 7 & ":M" & A + 7
         n = MsgBox("Wollen Sie die Daten wirklich löschen?", vbYesNo)
    If n = vbYes Then
        frm3.Show
        'Lösche alle Zellen von B bis M der Zeile "strLöschen" (z.b.Zeile 14)
        Range(strLöschen).Delete
        'Markiere die erste leere Zelle in Spalte a (Hoffe ich, bin da auch 
         ' nicht sicher ob diese Zeile Funktioniert)
        Columns("a").Find("").Select
    If n = vbNo Then
        Sheets("Tabelle1").Select
    End If
    End If
End Sub


Gruß
Sirhendrik


Bild


Betrifft: AW: Hilfe, Erklärung eines Makros!! von: Dani
Geschrieben am: 07.04.2005 15:47:42

Hallo Tom,
strLöschen = "B" & A + 7 & ":M" & A + 7
Hier wird der Bereich welcher zu löschen ist ausgewählt. Der Bereich beginnt bei Spalte B sieben Zeilen unter der Zahl welche in der Textbox1 auf dem Formular3 eingetragen ist. Der Bereich geht bis zur Spalte M auf der gleichen Zeile.
Danach erscheint ein Dialogfeld welches Abfragt ob wircklich gelöscht werden soll. Wird "Ja" angeklickt wird der Bereich zwischen Spalte B und M der beschriebenen Zeile gelöscht. Das Formular3 wird angezeigt und die erste leere Zelle in der Spalte A selektiert.
Gruss
Dani


Bild


Betrifft: AW: Hilfe, Erklärung eines Makros!! von: Tom
Geschrieben am: 07.04.2005 16:56:39

Super vielen Dank euch zwei für die schnelle Hilfe.
Grüßle Tom


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Textmarke oder Anker setzen"