Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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

Frage Entwicklung VB for Applications

Mitglied: FredlFesl

FredlFesl (Level 1) - Jetzt verbinden

28.09.2011, aktualisiert 10:06 Uhr, 2438 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
Windows 7
Performance Probleme bei Programmen und Windows (10)

Frage von Kunzi333 zum Thema Windows 7 ...

Windows 10
gelöst Win10 Creators Update - Probleme mit Netzwerkkarten (13)

Frage von Fenris14 zum Thema Windows 10 ...

Neue Wissensbeiträge
Windows 10

Windows 8.x oder 10 Lizenz-Key aus dem ROM auslesen mit Linux

(6)

Tipp von Lochkartenstanzer zum Thema Windows 10 ...

Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(40)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Heiß diskutierte Inhalte
Windows 10
gelöst Windows 10 Home "Netzlaufwerk nicht bereit" (19)

Frage von Oggy01 zum Thema Windows 10 ...

Exchange Server
gelöst RU 17 Exchange 2010 . Erfahrungen? (10)

Frage von keine-ahnung zum Thema Exchange Server ...

Datenbanken
gelöst MySQL Zeiterfassungs-Problematik (wer ist eingecheckt) (9)

Frage von NativeMode zum Thema Datenbanken ...

Windows Server
Festplatten Ruhezustand Windows Server 2016 (8)

Frage von ahaeuser zum Thema Windows Server ...