Herbers Excel-Forum - das Archiv
Buttons in Excel-VBA
- Buttons in Excel-VBA von Norbert vom 05.11.2003 16:05:26
- AW: Buttons in Excel-VBA - von xXx am 05.11.2003 16:22:38
- AW: Buttons in Excel-VBA - von Norbert am 06.11.2003 08:58:29
- AW: Buttons in Excel-VBA - von Norbert am 06.11.2003 08:58:29
- AW: Buttons in Excel-VBA - von xXx am 05.11.2003 16:22:38
 |
Betrifft: Buttons in Excel-VBA
von: Norbert
Geschrieben am: 05.11.2003 16:05:26
Hallo Leute,
ich habe folgendes Problem und bitte um Rat für Abhilfe:
Ich habe ein VBA-Script, das 4 CommandButton-Anweisungen enthält.
Diese Buttons befinden sich auf dem ersten Tabellenblatt in einer Excel-Datei.
Auf dem 2. Tabellenblatt (Name "Auswertung") der Excel-Datei befindet sich die Auswertung meiner Daten.
Die ersten "Buttons" (folglich auch deren Anweisungen) funktionieren (mehrere Excel-Dateien werden geöffnet und darin jeweils ein besimmter Bereich in das Tabellenblatt "Auswertung" kopiert; danach werden darin enthaltene Leerzeilen gelöscht).
Der 4. Button soll im Tabellenblatt "Auswertung" die Zeilenanzahl zählen, um dann in einer for-Schleife die Spalte D nach den Zeichen "BZ" und "GE" zu durchsuchen. Wenn das dort steht soll in der zugehörigen Zeile in der Spalte K die Zelle geleert werden.
Wenn ich den Button für diese Aktion auf dem Tabellenblatt "Auswertung" mache, wo ich ihn absolut nicht brauchen kann, dann funktioniert die Verarbeitung!!!
Wenn der Button aber auf dem ersten Tabellenblatt ist, wo SICH AUCH ALLE ANDEREN BUTTONS BEFINDEN, dann funktioniert die zugehörige Verarbeitung nicht!!??
Weiß vielleicht jemand Abhilfe???
Info: Skriptteil für Button 4:
Private Sub CommandButton4_Click()
Dim j As Integer
Dim k As Integer
k = 1
' Zellen in Spalte 4 löschen, wenn in Spalte 11 die Buchstabenfolgen BZ oder GE stehen
Sheets("Auswertung").Activate
Sheets("Auswertung").Range("A2").Select
While IsEmpty(ActiveCell.Value) = False
ActiveCell.Offset(1, 0).Select
k = k + 1
Wend
For j = 2 To k
If Cells(j, 4).Value = "" Then
ElseIf Cells(j, 4).Value = "GE" Then
Cells(j, 11).ClearContents
ElseIf Cells(j, 4).Value = "BZ" Then
Cells(j, 11).ClearContents
End If
Next j
End Sub
Danke im Voraus
Ciao, Norbert
 |
Betrifft: AW: Buttons in Excel-VBA
von: xXx
Geschrieben am: 05.11.2003 16:22:38
Hallo,
so:
Private Sub CommandButton4_Click()
Dim j As Integer
Dim k As Integer
With Sheets("Auswertung")
k = .Range("A65536").End(xlUp).Row
For j = 2 To k
Select Case .Cells(j, 4)
Case "GE", "BZ"
.Cells(j, 11).ClearContents
End Select
Next j
End With
End Sub
Gruß aus'm Pott
Udo
http://www.excelerator.de
P.S. Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter!
|
Betrifft: AW: Buttons in Excel-VBA
von: Norbert
Geschrieben am: 06.11.2003 08:58:29
Hi Udo,
danke dir!!! ;-)) Das funzt super!!!!
Servus aus Wien!!
Ciao, Norbert
| |