Code für CommandButton
27.07.2009 08:36:28
Erich
Hi Stefan,
in deinem ersten Beitrag schriebst du von "einem CommandButton".
Wo soll sich der Button befinden?
In einer UserForm oder auf einem Tabellenblatt,
in der Mappe A.xls oder in B.xls oder einer anderen Mappe?
Wenn du einen neuen Button aus der Steuerelement-Toolbox anlegst,
kannst du danach per Klick mit der rechten Maustaste auf den Button und "Code anzeigen"
ins VBE-Fenster springen - und bist gleich an der richtigen Stelle.
Da sollten zwei oder drei Zeilen stehen:
Option Explicit ' wenn du das (hoffentlich) so voreingestellt hast)
Private Sub CommandButton1_Click()
End Sub
Zwischen die beiden letzten Zeilen gehört der Code.
@Gerd: Wofür soll das Application.Max gut sein? Da braucht man IMHO weder Min noch Max.
Hier noch eine andere Version:
Option Explicit
Private Sub CommandButton1_Click()
Dim wksA As Worksheet, lngZ As Long
Set wksA = Workbooks("A.xls").Sheets("Tabelle1") ' Quelltabelle
With Workbooks("B.xls").Sheets("Tabelle1") ' Zieltabelle
If .Cells(.Rows.Count, 1) "" Then
MsgBox "Die Wanne ist voll!"
Else
lngZ = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 ' freie Zeile
.Cells(lngZ, 1).Value = wksA.Cells(1, 1).Value ' übertragen
End If
End With
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort