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 String von Zelle zu vorherigen Zelle hinzu fügen

Mitglied: Shaggy84

Shaggy84 (Level 1) - Jetzt verbinden

14.03.2008, aktualisiert 18.03.2008, 5078 Aufrufe, 7 Kommentare

Hallo,

habe mnal wieder ein kleines VBA Problem. Es sollen zwei Zellen verglichen werden. Wenn die Folgezelle das gleiche enthält wird sie ignoriert und eh gelöscht. Wenn sie einen anderen Wert enthält, soll dieser bevor die Zeile gelöscht wird, zur ersteren Zelle hinzugefügt werden.

Direkt die Frage. Ich benutze hier <> in der dritten Zeile, wie lautet der Befehl für "Zelle enthält" bzw. "Zelle enthält nicht"? Sonst entstehen ja Duplikate, obwohl der String schon in der Zelle existiert... und mein Add Befehl funktioniert leider auch noch nicht...

01.
Worksheets(1).Activate 
02.
 
03.
Zeile = 1 
04.
Do While Cells(Zeile, 1).Value <> "" 
05.
 
06.
If Cells(Zeile, 2).Value <> Cells(Zeile + 1, 2).Value Then 
07.
    Cells(Zeile, 2).Add (Cells(Zeile + 1, 2).Value) 
08.
    Zeile = Zeile + 1 
09.
Else 
10.
    Zeile = Zeile + 1 
11.
End If 
12.
     
13.
Loop
Grüße, Gregor
Mitglied: bastla
15.03.2008 um 14:58 Uhr
Hallo Shaggy84!

Das sollte etwa so gehen:
01.
... 
02.
If Not InStr(1, Cells(Zeile, 2).Value, Cells(Zeile + 1, 2).Value, vbTextCompare) Then 
03.
    Cells(Zeile, 2).Add (Cells(Zeile + 1, 2).Value) 
04.
...
Das "VbTextCompare" sorgt dafür, dass Unterschiede hinsichtlich Groß-/Kleinschreibung ignoriert werden - wenn Du einen genauen Vergleich willst, einfach weglassen.

Grüße
bastla
Bitte warten ..
Mitglied: Shaggy84
17.03.2008 um 08:41 Uhr
Hallo bastla,

deine erste Zeile funktioniert soweit gut. Aber meine zweite die hier auch steht funktioniert leider nicht. Als Fehlermeldung bekomme ich "Objekt unterstützt diese Eigenschaft oder Methode nicht" (wie so oft ;) )

War der Ansatz mit dem .Add richtig oder gibts dafür was anderes? Kann man noch einen "/" zwischen zwei Werte setzen?

Grüße, Gregor
Bitte warten ..
Mitglied: bastla
17.03.2008 um 09:18 Uhr
Hallo Shaggy84!

Um die beiden Strings miteinander zu verbinden, wird in VB "&" verwendet, daher:
01.
If Not InStr(1, Cells(Zeile, 2).Value, Cells(Zeile + 1, 2).Value, vbTextCompare) Then 
02.
    Cells(Zeile, 2).Value = Cells(Zeile, 2).Value & "/" & Cells(Zeile + 1, 2).Value
Grüße
bastla
Bitte warten ..
Mitglied: Shaggy84
17.03.2008 um 13:38 Uhr
Hallo bastla,

des funktioniert soweit leider nur halb. Er schreibt mir die Werte trotzdem noch doppelt in die Zelle, obwohl ich deinen Programmcode ebenfalls so verstehe, dass er funktionieren müsst. Vergleicht er vielleicht immer nur den gesamten String oder auch Teilwerte des Strings?!

Als Ergebnis bekomme ich im moment noch Wert1/Wert1/Wert2/Wert1/Wert2 usw. anstatt Wert1/Wert2

Grüße
Bitte warten ..
Mitglied: bastla
17.03.2008 um 14:11 Uhr
Hallo Shaggy84!

Andere Schreibweise:
01.
If InStr(1, Cells(Zeile, 2).Value, Cells(Zeile + 1, 2).Value, vbTextCompare) = 0 Then 
02.
    Cells(Zeile, 2).Value = Cells(Zeile, 2).Value & "/" & Cells(Zeile + 1, 2).Value
Grüße
bastla
Bitte warten ..
Mitglied: Shaggy84
18.03.2008 um 10:36 Uhr
Hey bastla,

funktioniert soweit wunderbar. Die Verneinung im Code mit "Not" und dann mit "=0" am Anfang, glaub da wäre ich auf letzteres nie gekommen.

Vielen Dank nochmals! Gibt's diesmal nen Martini °>-0
Bitte warten ..
Mitglied: bastla
18.03.2008 um 10:45 Uhr
Hallo Shaggy84!

Gibt's diesmal nen Martini °>-0
Bevor Du Deine ganze (virtuelle) Hausbar über mir entleerst : So ziemlich die einzige Form von Alk, die ich zu mir nehme, ist Rum (und den nur in einem Kuchen) - aber trotzdem danke.

Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
Windows Server

Wie füge ich diesem Script die Email Adresse hinzu

gelöst Frage von 131455Windows Server16 Kommentare

Hallo, ich möchte im Exchange 2013 eine Liste erstellen , die mir anzeigt, welche Postfächer mit Vollzugriff berechtigt sind ...

Windows 7

Wie füge ich den plötzlich fehlenden Dienst "Windows-Aktivierungstechnologie" wieder hinzu?

gelöst Frage von Server-NutzerWindows 710 Kommentare

Moin. Auf einmal meint Windows 7 Home Premium, dass Windows nicht aktiviert sei. Also Systemsteuerung/System/Abschnitt Windows-Aktivierung aufgerufen: "Status nicht ...

Microsoft Office

Excel - Spaltenabschnitte in einzelne Zellen fügen - vba

gelöst Frage von AlexIOTMicrosoft Office4 Kommentare

Hallo zusammen, zunächst erkläre ich Ihnen den Aufbau meiner Tabelle: Im Tabellenblatt1: A1 ServernameB Serverowner A2 Servername1B2 A3 Servername2B3 ...

Windows Server

Wie füge ich einen Win Server 2008 zu einem Win Server 2012 hinzu

gelöst Frage von PhadeWindows Server4 Kommentare

Moinsen zusammen, ich arbeite zur Zeit an einem privaten Projekt und versuche, einen Windows 2008 R2 Server, auf dem ...

Neue Wissensbeiträge
Sicherheit

Diverse D-Link-Router durch drei Schwachstellen kompromittierbar

Information von kgborn vor 1 StundeSicherheit

Hat jemand D-Link-Router in Verwendung? Einige Modelle sind sicherheitstechnisch offen wie ein Scheunentor. Äußerst unschöne Sache, aber nichts neues ...

Hardware

100.000 Mikrotik-Router ungefragt von Hacker abgesichert

Information von 7Gizmo7 vor 15 StundenHardware1 Kommentar

Hallo zusammen, da hier ja öfters mal von Mikrotik gesprochen wird. Trotz Updates klafft eine Sicherheitslücke in Hundertausenden Mikrotik-Routern. ...

Sicherheit

Oracle gibt kritische Updates für diverse Produkte frei (16. Oktober 2018)

Information von kgborn vor 1 TagSicherheit

Oracle hat zum 16. Oktober 2018 eine ganze Reihe an kritischen Updates für seine Produkte freigegeben. Eine Kurzübersicht mit ...

Windows 10
FYI: Fristen beim Windows 10 Downgrade-Recht
Information von kgborn vor 1 TagWindows 101 Kommentar

Möglicherweise ist das bei euch bekannt - ich habe es gerade aus einem Newsletter eines OEMs herausgefischt. Beim Downgrade-Recht ...

Heiß diskutierte Inhalte
Windows 10
Sysprep Fehler im Log kann nicht starten
Frage von grillinator95Windows 1022 Kommentare

Hallo, kann leider SYSPREP nicht mehr starten, Win10 64bit. Logfile sagt folgendes: 2018-10-17 13:44:56, Info SYSPRP 2018-10-17 13:44:56, Info ...

Internet
Ist diese URL denkbar (Syntax)?
gelöst Frage von departure69Internet17 Kommentare

Hallo. Der Sohn eines Arbeitskollegen hat im Gymnasium EDV-Unterricht. Leider hat er in der letzten Klassenarbeit einen Fünfer geschrieben. ...

Debian
Linux debian 9 Installation
Frage von Green14Debian16 Kommentare

Hallo zusammen, ich habe mich ein wenig mit Debian auseinandergesetzt und möchte mir eine Standard-Installation als Grundlage für andere ...

Outlook & Mail
Outlook schiebt Mails aus Posteingang sofort in den Papierkorb
Frage von hermesOutlook & Mail13 Kommentare

Hallo Outlook Fachleute, wir haben hier das Problem, dass Outlook 2010 alle ankommenden Mails seit zwei Tagen einfach in ...