Makro Formular übertragen?

Dieses Thema Makro Formular übertragen? im Forum "Windows XP Forum" wurde erstellt von Wandelröschen, 5. Apr. 2005.

Thema: Makro Formular übertragen? Hallo Programmierer? Ich bin ein Visual Basic Anfängerin und habe zwei Fragen? Die Codewörter Col1 und Col2 stehen...

  1. Hallo Programmierer?

    Ich bin ein Visual Basic Anfängerin und
    habe zwei Fragen?

    Die Codewörter Col1 und Col2 stehen
    für Spalte?

    Wenn Col1 und Col2 leer ist, sollen
    die Daten trotzdem übertragen werden?

    Hier das komplette Makro?

    Private Sub btnnUebertragen_Click()
    '
    ' Schaltfläche Übertragen für Formular Arbeitszeiten
    '
        Dim intCol1 As Integer
        Dim intCol2 As Integer
        Dim intCol3 As Integer
        Dim intCol4 As Integer
        Dim intCol5 As Integer
        Dim intBigger As Integer
       
            intCol1 = Cells(Rows.Count, 2).End(x1Up).Row
            intCol2 = Cells(Rows.Count, 3).End(x1Up).Row
            intCol3 = Cells(Rows.Count, 4).End(x1Up).Row
            intCol4 = Cells(Rows.Count, 5).End(x1Up).Row
            intCol5 = Cells(Rows.Count, 5).End(x1Up).Row
    '
    ' Prüfen, welche Spalte mehr Zeilen enthält
    '
        If intColl > inCol2 Then
            intBigger = intColl + 1
        Else
            intBigger = intCol2 + 1
        End If
    '
    ' Daten an die Spalte B übergeben
    '
        With Cells(intBigger, 2)
            .Value = txtDatum.Value
        End With
    '
    ' Daten an die Spalte C übergeben
    '
        With Cells(intBigger, 3)
            .Value = TextBox1.Value
        End With
    '
    ' Daten an die Spalte D übergeben
    '
        With Cells(intBigger, 4)
            .Value = TextBox2.Value
        End With
    '
    ' Daten an die Spalte E übertragen
    '
        With Cells(intBigger, 5)
            .Value = txtUhrzeitNm.Value
        End With
    '
    ' Daten an die Spalte F übertragen
    '
        With Cells(intBigger, 6)
            .Value = TextBox3.Value
        End With
    '
    ' Den Inhalt der Textfelder entfernen
    '
        txtDatum.Value =
        TextBox1.Value =
        TextBox2.Value =
        txtUhrzeitNm.Value =
        TextBox3.Value =
    '
    ' Den Cursor, für eine neue Eingabe, wieder in das erste
    ' Textfeld setzen
    '
        txtDatum.SetFocus
    End Sub
     
Die Seite wird geladen...

Makro Formular übertragen? - Ähnliche Themen

Forum Datum
Access Formularfilter über Makro Microsoft Office Suite 30. Jan. 2006
Excel VBA Makro zum suchen eines Textes und anschließend einen Breich zu kopieren Microsoft Office Suite 22. Jan. 2015
Word 2013 VBA: Makro aus einer anderen Datei aufrufen Microsoft Office Suite 16. Juni 2014
Excel VBA Makro zum suchen und markieren von Zeilen die ein bestimmtes Wort enthalten Microsoft Office Suite 16. Juni 2014
Excel: Makro ASCII verschieben Windows XP Forum 8. Nov. 2013