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

häkchen ersatz wird nicht richtig gelöscht

Frage Microsoft Microsoft Office

Mitglied: captainchaos666

captainchaos666 (Level 1) - Jetzt verbinden

24.05.2007, aktualisiert 28.05.2007, 3585 Aufrufe, 4 Kommentare

Hallo an Alle,
ich brauch eure Hilfe. Ich kann in der Spalte B mittels Doppelklick ein häkchen einfügen.

Syntax dazu:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Intersect(Target, Range("B2:B999")) Is Nothing Then
If Target.Value = "" Then Hacken Else Target.Clear
Cancel = True
End If
End Sub


Sub Hacken()
ActiveCell.Value = "Ö"
ActiveCell.Font.Name = "Symbol"
End Sub


Wenn das Ö eingetragen wird, dann wird das häkchen gesetzt. Wenn ich mir die Excelliste anschaue dann sehe die häkchen richtig gesetzt (B3). Jetzt lese mit ein VB Appliaktion die Spalte B, Zeile für Zeile aus. Wenn ich nur in B3 das häkchen setze, dann lese ich mit der VB-Appliakation leere Strings aus (B1, B2). In B4 wird ein "Ö" ausgelesen. Nun mein Problem bei allen nachfolgenden Werten in Spalte B wird mir auch ein "Ö" wiedergegeben obwohl ich normal ein leeres Feld (String) erwarten würde. In der Exceldatei wird es aber richtig angezeigt!

Excelspalte
B1: Es wird mit VB ein "" ausgelesen
B2: Es wird mit VB ein "" ausgelesen
B3: Ö Es wird mit VB ein "Ö" ausgelesen
B4: Es wird mit VB ein "Ö" ausgelesen
B5: Es wird mit VB ein "Ö" ausgelesen
B6: Es wird mit VB ein "Ö" ausgelesen
B7: Es wird mit VB ein "Ö" ausgelesen
B8: Es wird mit VB ein "Ö" ausgelesen
B9: Es wird mit VB ein "Ö" ausgelesen





Könnt Ihr mir weiterhelfen


Dank Euch, Gruß

Alex
Mitglied: bastla
24.05.2007 um 21:34 Uhr
Hallo captainchaos666!

Ohne Deinen Auslese-Code gesehen zu haben, fällt mir dazu eigentlich nix ein, weil zB
01.
Sub Lesen() 
02.
Dim i As Integer 
03.
For i = 1 To 9 
04.
    Debug.Print i, Cells(i, 2).Value, Len(Cells(i, 2).Value) 
05.
Next 
06.
End Sub
bei mir das zu erwartende Ergebnis
01.
 1                           0  
02.
 2                           0  
03.
 3            Ö              1  
04.
 4                           0  
05.
 5                           0  
06.
 6                           0  
07.
 7                           0  
08.
 8                           0  
09.
 9                           0 
bringt.

Grüße
bastla
Bitte warten ..
Mitglied: captainchaos666
24.05.2007 um 21:47 Uhr
Hallo bastla,

dein Beispiel würde ich auch erwarten:
Spalte B, Zeile
123456789
00H000000
001000000

tatsächlich lese ich :
Spalte B, Zeile
123456789
00H000000
001111111, tatsächlich mit VB gelesen


Gruß Alex
Bitte warten ..
Mitglied: bastla
24.05.2007 um 21:58 Uhr
Hallo captainchaos666!

Mit meinem Code also auch die falschen Ergebnisse? Dann versuch vielleicht, dem Phänomen direkt in der Tabelle mit =LÄNGE(B4) und/oder =CODE(B4) auf die Spur zu kommen ...

00H000000
BTW: H steht für Haken?

Grüße
bastla
Bitte warten ..
Mitglied: captainchaos666
28.05.2007 um 18:40 Uhr
@bastla,
Danke für deine Mühe! Es ist mir jetzt gerade ziemlich peihnlich, der Fehler lag beim auslesen von der Spalte, also funktioniert der Syntax bestens.


vielen Danke für deine Mühe

Gruß Alex
Bitte warten ..
Ähnliche Inhalte
Monitoring
gelöst VNC Ersatz!? (25)

Frage von Hendrik2586 zum Thema Monitoring ...

Google Android
Kodi gesehen "Häkchen" mit anderen Geräten Syncronisieren (4)

Frage von GrauerStar zum Thema Google Android ...

Backup
gelöst Ersatz für Robocopy für Sync vom NAS auf USB HDD (4)

Frage von StefanKittel zum Thema Backup ...

Outlook & Mail
gelöst Outlook 2016 - Gelöschte Objekte, Gelöschte Elemente (2)

Frage von Corraggiouno zum Thema Outlook & Mail ...

Neue Wissensbeiträge
Windows Server

Umstellung SHA 1 auf SHA 2 - Migration der CA von CSP auf KSP

Tipp von Badger zum Thema Windows Server ...

Windows 10

Quato DTP94 unter Windows 10 x64 installieren und verwenden

Anleitung von anteNope zum Thema Windows 10 ...

Windows 10

Win10 1703 und Nutzerkennwörter bei Ersteinrichtung - erstaunliche Erkenntnis

(15)

Erfahrungsbericht von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Server-Hardware
HP DL380 G7: Booten vom USB via USB 3.1-PCI-e Karte möglich? (24)

Frage von Paderman zum Thema Server-Hardware ...

Windows 7
Bluesreens unternehmensweit (19)

Frage von SYS64738 zum Thema Windows 7 ...

LAN, WAN, Wireless
IP Adressen - Modem - Switch - Accesspoint (18)

Frage von teuferl82 zum Thema LAN, WAN, Wireless ...

Windows Netzwerk
gelöst DNS ins mehreren Subnetzen (15)

Frage von joerg zum Thema Windows Netzwerk ...