Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Probleme mit Worksheet Change

Mitglied: FredlFesl

FredlFesl (Level 1) - Jetzt verbinden

28.09.2011, aktualisiert 10:06 Uhr, 2481 Aufrufe, 1 Kommentar

Hi Leute!
Wie im Titel zu sehen hab ich Probleme mit Worksheet_Change.
Erst mal der Code:

01.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
02.

03.
If ActiveCell.Column <> 3 Then Exit Sub
04.
If Target.Cells.Count > 1 Then Exit Sub
05.
For x = 1 To 2000
06.
    Zeile = Cells(x, 1)
07.
    If Zeile = "" Then
08.
        Exit For
09.
    End If
10.
Next
11.
            If Cells(x, 3).Value < 0 Then
12.
                Step = 1
13.
            ElseIf Cells(x, 3).Value > 0 Then
14.
                Step = 2
15.
            ElseIf Cells(x, 3).Value = 0 Then
16.
                Step = 3
17.
            End If
18.
            Select Case Step
19.
            Case 1
20.
                Cells(x, 3).NumberFormat = "#,##0.00 $"
21.
                Cells(x, 3).Interior.Color = 13551615
22.
                Cells(x, 3).Font.Color = 255
23.
                Cells(x, 4) = Cells(x, 3) + Cells(x - 1, 4) 'Hier kommt dann immer der Fehler und er beginnt den Code wieder von vorne zu bearbeiten
24.
                Cells(x, 4).NumberFormat = "#,##0.00 $"
25.
                Cells(x, 4).Interior.Color = 13551615
26.
                Cells(x, 4).Font.Color = 192
27.
            Case 2
28.
                Cells(x, 3).NumberFormat = "#,##0.00 $"
29.
                Cells(x, 3).Interior.Color = 13561798
30.
                Cells(x, 3).Font.Color = 24832
31.
                Cells(x, 4) = Cells(x, 3) + Cells(x - 1, 4)
32.
                Cells(x, 4).NumberFormat = "#,##0.00 $"
33.
                Cells(x, 4).Interior.Color = 13561798
34.
                Cells(x, 4).Font.Color = 24832
35.
            Case 3
36.
                Cells(x, 3).NumberFormat = "#,##0.00 $"
37.
            Case Else
38.
        End Select
39.
End Sub


Fehler:
Watch : : Cells(x, 4) : <Anwendungs- oder objektdefinierter Fehler> : Variant/Integer : Tabelle1.Worksheet_Change

Warum is das so?
Es sollen doch nur zwei Werte addiert werden?
Das versteh ich nicht!

Vielen Dank!
Mitglied: FredlFesl
28.09.2011 um 11:17 Uhr
Also hab es selber hinbekommen musste nur
01.
Private Sub Worksheet_Change(ByVal Target As Excel.Range) 
02.
in
03.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
04.
ändern 
Bitte warten ..
Ähnliche Inhalte
VB for Applications
Excel Worksheet referenzieren
gelöst Frage von KraemerVB for Applications2 Kommentare

Moin zusammen, es ist schon eine ganze weile her, das ich wirklich was mit VBA gebastelt habe. Und irgendwie ...

Microsoft Office
Excel Worksheet in Word
gelöst Frage von 118080Microsoft Office

Abend Zusammen :-) Wir haben ein Word Dokument und darin ein Excel Sheet verknüpft. Ich habe die Verknüpfung in ...

VB for Applications

Schreiben in andere Excel-Datei macht Worksheet unsichtbar

gelöst Frage von Albatros91VB for Applications5 Kommentare

Guten Tag! Ich möchte von einem Makro aus in eine andere Excel-Datei schreiben. Nach dem schreiben und speichern der ...

Microsoft Office

Excel 2010: bestimmte Daten aus Outlook-Kalendern im Excel-Worksheet abrufen

Frage von ChadwickkMicrosoft Office8 Kommentare

Hallo zusammen, Ich habe eine Problemstellung bei der ich eure Hilfe brauche. Ich habe in Excel 2010 ein Worksheet ...

Neue Wissensbeiträge
Windows Server

Zähe Update-Installation auf Windows Server 2016

Information von kgborn vor 1 TagWindows Server4 Kommentare

Mir sind in der Vergangenheit immer wieder Beschwerden von Admins unter die Augen gekommen, die sich über die doch ...

Humor (lol)
Turnschuhe per Firmware lahmlegen
Information von Henere vor 1 TagHumor (lol)6 Kommentare

Und was kommt demnächst ? Bekomme ich kein Klopapier mehr, weil der Spender einem DDOS unterliegt ? :-) Ich ...

Sicherheit

Sicherheitsrisiko in WinRAR und Co. durch Schwachstelle in UNACEV2.DLL

Information von kgborn vor 1 TagSicherheit

In der seit 2005 nicht mehr aktualisierten Bibliothek UNACEV2.DLL gibt es eine Path-Traversal-Schwachstelle. Diese ermöglicht es, bei ACE-Archiven Dateien ...

Internet

CDU Propaganda: Urheberschutz im Internet - Ende des digitalen Wild-West

Information von Frank vor 2 TagenInternet6 Kommentare

Hallo Administratoren, aus einem Kommentar heraus habe ich folgenden Beiträge von Herr Sven Schulze und Axel Voss (beide CDU ...

Heiß diskutierte Inhalte
Hardware
Frage an Kenner von 5,25 Zoll Laufwerken
Frage von DerWoWussteHardware54 Kommentare

Moin Kollegen. Hier wird gerade im Archiv gewühlt und 5,25 Zoll Disketten ("2S/HD", 96TPI) sollen eingelesen werden. Ich habe ...

Windows Tools
Dateiname Automatisch auf PDF Klartext oder als Barcode abdrucken
Frage von spongebob24Windows Tools29 Kommentare

Hallo Zusammen, habe eine tolle Anforderung bekommen. Ich sollte auf mehrere PDF Dateien Automatisch einen Stempel anbringen lassen. Toll ...

Internet
SDSL oder ADSL - Preis-Leistungs-Verhältnis
Frage von ZeppelinInternet22 Kommentare

Wehrte Community, der Unterschied dieser beiden Techniken ist recht einfach erklärt. Das S, steht für Synchron (Gleich) und das ...

Microsoft Office
MicroSoft und seine Lizenzen
Frage von ZeppelinMicrosoft Office19 Kommentare

Wehrte Community, ich wende mich an die Community weil MicroSoft dazu keine Stellung nehmen möchte. Ich öffne mein Web-Browser ...