Button für Makro beeinflusst mein Programm
partykaeferchen
ich habe folgendes Problem:
Bisher habe ich - um meine Makros zu starten - immer eine Autoform als Button genommen und mit "Makro zuweisen" ein Makro angehängt. Bei drücken des Buttons konnte ich das Makro starten. Hat immer bestens funktioniert.
Jetzt habe ich folgendes Test-Programm geschrieben:
Sub testmakro()
Dim Eintrag, Nr As Variant
Dim x As Integer
'----------------------------------------------------------------------------------------------- _
_
Nr = Sheets("Einzelschäden").Range("D6")
x = 5
While Sheets("Gesamtliste").Cells(x, 3).Value ""
If Cells(x, 3) Nr And Eintrag "nein" Then
Eintrag = "ja"
Else
Eintrag = "nein"
End If
x = x + 1
Wend
If Eintrag = "nein" Then
Sheets("Gesamtliste").Cells(x, 3) = "test"
Else
Sheets("Gesamtliste").Cells(x, 3) = Nr
End If
Sheets("Gesamtliste").Select
Cells(x, 3).Select
End Sub
Das Programm soll eine Nummer in einem Feld auf eine andere Excel-Seite nur dann übernehmen, wenn die Nummer in der anderen Exel-Seite in der Spalte C nicht drin steht. Ist nun die Nr bspw. = 2011/02 und ich lasse das Makro laufen und die Spalte C enthält bereits die 2011/02, dann läuft das Makro fehlerfrei durch, wenn ich es direkt starkte. Wenn ich es dagegen über den Button starte, dann ignoriert er den schon bestehenden Eintrag und trägt die 2011/02 nochmal ein. Versteht das jemand?
Wer kann mir helfen? Vorab schon vielen Dank für Eure Hilfe!
Partykaeferchen