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, 2437 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
Cloud-Dienste
Probleme mit GoogleMail (Trello und Teambay)

Frage von PatrickKipp84 zum Thema Cloud-Dienste ...

Windows Server
Yoursecurecloud.de Probleme mit Pfaden (6)

Frage von WPFORGE zum Thema Windows Server ...

Mac OS X
Probleme mit Freigegebener MAC Festplatte

Frage von mark16 zum Thema Mac OS X ...

Neue Wissensbeiträge
RedHat, CentOS, Fedora

Fedora, RedHat, Centos: DNS-Search Domain setzen

(13)

Tipp von Frank zum Thema RedHat, CentOS, Fedora ...

Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Heiß diskutierte Inhalte
Windows 10
Windows für Privatanwender "nicht mehr handhabbar" (35)

Frage von FA-jka zum Thema Windows 10 ...

CMS
Lokales Wordpress im LAN - wie aufsetzen? (15)

Frage von Static zum Thema CMS ...

LAN, WAN, Wireless
Komplett neues Netzwerk, Ubiquiti WLAN, Router, Switch (15)

Frage von Freak-On-Silicon zum Thema LAN, WAN, Wireless ...

Backup
Backup Wochen- Monats- Jahressicherung (13)

Frage von Meterpeter zum Thema Backup ...