AW: Button zum starten von Makro
30.12.2004 13:49:55
Makro
Hallo Heidi,
ich arbite mich nicht so gerne durch fremden Code durch, da man keine Ahnung hat was damit erreicht werden soll.
Private Sub CommandButton1_Click()
' ergänzungen
Dim Wert1 As Long
Dim Wert As Long
Dim I As Long
Dim ZellenInhalt As String 'Deklaration der Variablen Zelleninhalt
With Worksheets(2) '.Select 'Aktivieren des Tabellenblattes 2(Auswahl)
ZellenInhalt = .Range("A4").Value 'Aktivieren der Zelle A4
If .Range("A4") = "X" Then _
GoTo sprung1
Else
GoTo sprung2
End If
End With
sprung1:
With Worksheets(3) '.Select 'Aktivieren des Tabellenblattes das Ausgewählt wurde
Wert1 = 1 'Sperre der analogen Eingänge
For I = 1 To 2
Wert = .Cells(65536, I).End(xlUp).Row
If Wert > Wert1 Then
Wert1 = Wert
End If
Next
' warum wird der nachgfolgende Bereich select, wenn danach gleich andere Tabelle gewählt wird ``
'.Range(.Cells(1, 1), .Cells(Wert1, I - 1)).Select
End With
' weiter wollte ich mich nicht durcharbeiten
'Kopieren der Auswahl
Worksheets(3).Activate 'Aktiviert das Tabellenblatt (Tabelle2)
ActiveCell.CurrentRegion.SpecialCells(xlVisible).Copy 'Kopierbefehl
Worksheets(1).Select 'Tabellenblatt in die es eingefügt werden soll
Wert = Cells(65536, 1).End(xlUp).Row 'Spalte in die es eingefügt werden soll A1
Cells(Wert, 1).PasteSpecial Paste:=xlPasteAll 'Einfügebefehl in die nächste freie Zeile
sprung2:
Worksheets(2).Select 'Aktivieren des Tabellenblattes 2(Auswahl)
Dim ZellenInhalt1 As String
ZellenInhalt1 = Range("A5").Value 'Aktivieren der Zelle A5
If Range("A5") = "X" Then
GoTo sprung3
Else
GoTo sprung4
End If
sprung3:
Worksheets(4).Select 'Aktivieren des Tabellenblattes das Ausgewählt wurde
Wert1 = 1 'Sperre der digitalen Eingänge
For I = 1 To 2
Wert = Cells(65536, I).End(xlUp).Row
If Wert > Wert1 Then
Wert1 = Wert
End If
Next
Range(Cells(1, 1), Cells(Wert1, I - 1)).Select
'Kopieren der Auswahl
Worksheets(4).Activate
ActiveCell.CurrentRegion.SpecialCells(xlVisible).Copy
Worksheets(1).Select 'Tabellenblatt in die es eingefügt werden soll
Wert = Cells(65536, 1).End(xlUp).Row + 1 'Spalte in die es eingefügt werden soll
Cells(Wert, 1).PasteSpecial Paste:=xlPasteAll 'Einfügebefehl
sprung4:
Worksheets(2).Select 'Aktivieren des Tabellenblattes 2(Auswahl)
Dim ZellenInhalt2 As String
ZellenInhalt2 = Range("A6").Value 'Aktivieren der Zelle A6
If Range("A6") = "X" Then _
'GoTo sprung5 Else GoTo sprung6 ' Sprung 6 Fehlt
sprung5:
Worksheets(5).Select 'Aktivieren des Tabellenblattes das Ausgewählt
End Sub
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.
"Wer Rechtschreibfehler findet, darf sie behalten!"