- #1
W
Wandelröschen
Bekanntes Mitglied
Themenersteller
- Dabei seit
- 30.11.2004
- Beiträge
- 169
- Reaktionspunkte
- 0
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
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