irgendwie will mein Programm noch nicht
06.11.2003 13:07:05
Peter
(die funktion dahinter ist, das es aus einem bestimmten tabellenblatt (mit mehreren gefüllten spalten) aus jeweils aus der ersten spalte einen wert nimmt, wenn in der 5.spalte ein bestimmter wert , hier "games" steht. das selektierte wort aus der ersten spalte bringt er dann in anderes tabellenblatt. so durchläuft das prog alle zeilen.
Private Sub CommandButton5_Click()
Dim intLastRow As Integer
Dim intCounter As Integer
Dim intZaehler As Integer
Dim strSuchA As String
Dim strSuchE As String
Application.ScreenUpdating = False
Sheets("Auswertung").Activate
intLastRow = Cells(Rows.Count, 1).End(xlUp).Row
strSuchA = Range("A1").Value
strSuchE = "games"
intZaehler = 1
For intCounter = 1 To intLastRow
If Cells(intCounter, 5) = strSuchE Then
Sheets("Finanzen").Range("A" & intZaehler).Value = _
Range("A" & intCounter).Value
intZaehler = intZaehler + 1
End If
Next intCounter
Application.ScreenUpdating = True
End Sub