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

VB Script für Excel

Frage Entwicklung VB for Applications

Mitglied: JJJT84

JJJT84 (Level 1) - Jetzt verbinden

10.03.2008, aktualisiert 12:26 Uhr, 3101 Aufrufe, 1 Kommentar

Hi,

ich habe häufiger die Aufgabe Excel Tabellen Manuell nach doppelt vorkommenden Sachen zu durchsuchen, und das ist nervig und sehr sehr zeitaufwendig.
jetzt wollte ich fragen ob es für die Tätigkeit die ich machen muss einen automatischen Weg gibt.

Also die ersten namen die verglichen werden müssen, finden sich alle in einer Spalte (B) und stehen untereinander in verschiedenen Zeilen (können aber bis zu 20 mal untereinander stehen).
und falls dort namen stehen die gleich sind muss eine andere Spalte (g) durchsucht werden (aber nur in den Zeilen, in denen B gleich war) und geguckt werden, ob dort auch etwas doppelt ist.
und falls diese beiden sachen dann zutreffen, die zeile einfach farblich zu markieren.

ich hoffe es war verständlich, und es gibt ein lösung dafür.

vielen dank im vorraus für alle die helfen wollen.

Mfg
Mitglied: misterdemeanor
10.03.2008 um 12:25 Uhr
Grüß Dich,

kenne mich mit dem Excel-Objektmodell nicht so gut aus, und auch sonst ist das kein sehr feiner Algorithmus, sollte aber für Dein Problem sollte es reichen. Je nachdem wie viele Zeilen in der Arbeitsmappe sind kann es den Prozessor schon eine Zeit lang Voll auslasten! Wiegesagt, Programmiertechnisch kein Meisterwerk *g

Einfach in ein Modul Deiner .XLS einfügen. Ggfls. den Namen der Arbeitsmappe (wsName) anpassen und laufen lassen.

01.
Public Function HighlightDublicates() 
02.
On Error Resume Next 
03.
  Dim colDuplicates As Collection 
04.
  Dim ws As Worksheet 
05.
  Dim wsName As String 
06.
  Dim i As Integer 
07.
  Dim j As Integer 
08.
  Dim x As Integer 
09.
  Dim intRows As Integer 
10.
  Dim actualB As String 
11.
  Dim actualG As String 
12.
  Dim thisB As String 
13.
  Dim thisG As String 
14.
    wsName = "Tabelle1" 
15.
    Set ws = Worksheets(wsName) 
16.
    ws.Activate 
17.
    intRows = ws.Cells(Rows.Count, 1).End(xlUp).Row 
18.
 
19.
  For i = 1 To intRows 
20.
    Set colDuplicates = New Collection 
21.
    actualB = ws.Range("B" & i).Value 
22.
    actualG = ws.Range("G" & i).Value 
23.
    colDuplicates.Add i 
24.
    For j = 1 To intRows 
25.
      thisB = ws.Range("B" & j).Value 
26.
      thisG = ws.Range("G" & j).Value 
27.
      If actualB = thisB Then 
28.
        If actualG = thisG Then 
29.
          colDuplicates.Add j 
30.
        End If 
31.
      End If 
32.
    Next j 
33.
    If colDuplicates.Count > 2 Then 
34.
      For x = 1 To colDuplicates.Count 
35.
        ws.Range("B" & colDuplicates(x)).Interior.ColorIndex = 3 
36.
        ws.Range("G" & colDuplicates(x)).Interior.ColorIndex = 3 
37.
      Next x 
38.
    End If 
39.
    Set colDuplicates = Nothing 
40.
  Next i 
41.
End Function
BG, Felix -misterdemeanor-
Bitte warten ..
Ähnliche Inhalte
VB for Applications
VB-Script in VB-Script starten und Parameter übergeben
gelöst Frage von denkisVB for Applications7 Kommentare

Hallo liebe Scriptgemeinde, ich muss mehrere Rechner für den Übergang in eine neue Domäne vorbereiten. Dafür sind drei wesentliche ...

VB for Applications
Neue Zeile in Excel per VB Script
gelöst Frage von TheFalconVB for Applications1 Kommentar

Hallo zusammen, ich habe ein Script welches soweit auch funktioniert. Ich möchte jetzt aber gerne, dass die Werte fortlaufend ...

Microsoft Office
Daten aus Excel Datei per VB Script versenden.
Frage von 103148Microsoft Office1 Kommentar

Hallo, wir haben eine Excel Datei Office 2007 in der wird in Mappe1 Daten eingegeben, diese erzeugen eine Auswertung ...

Batch & Shell
Probleme bei der Ausführung eines VB-Scriptes
Frage von AuricGoldfingerBatch & Shell1 Kommentar

Hallo zusammen, ich habe folgendes Script geschrieben: Leider bekomme ich bei der Ausführung den Fehler Was mache ich falsch?? ...

Neue Wissensbeiträge
Datenschutz

Weitere Inforamtionen zum Sicherheitsproblem BeA

Information von Penny.Cilin vor 11 MinutenDatenschutz

Im folgenden ein weiterer Bericht über die Sicherheitsprobleme von Bea. Fataler Konstruktionsfehler im besonderen elektronischen Anwaltspostfach Gruss Penny

Windows 10

Systemdienste behalten nach Win10 inplace-Upgrade nicht die ggf. modifizierte Startart bei

Tipp von DerWoWusste vor 1 StundeWindows 103 Kommentare

Stellt Euch vor, Ihr habt ein Win10 System und modifiziert dort die Startart von Systemdiensten. Zum Beispiel wollt Ihr ...

Microsoft Office

Deaktivieren von Startbildschirm und Backstage-Ansicht in Office 2016 per Batch-Datei

Anleitung von SarekHL vor 4 StundenMicrosoft Office17 Kommentare

Guten Morgen zusammen! Ich habe mir gestern (auch mit Hilfe dieses Boards) ein Script gebastelt, um in Office 2016 ...

Erkennung und -Abwehr

Sicherheitslücke Spectre und Meltdown: Status prüfen

Anleitung von Frank vor 10 StundenErkennung und -Abwehr2 Kommentare

Nach all den Updates der letzten Woche sollte man unbedingt auch den Status prüfen, ob die Sicherheitslücken Spectre, Meltdown ...

Heiß diskutierte Inhalte
Netzwerke
NTFS-Berechtigung
Frage von Daoudi1973Netzwerke23 Kommentare

Hallo zusammen und frohes neues Jahr (Sorry, ich bin spät dran) Meine Frage: 1- Ich habe einen Ordner im ...

Microsoft Office
Deaktivieren von Startbildschirm und Backstage-Ansicht in Office 2016 per Batch-Datei
Anleitung von SarekHLMicrosoft Office17 Kommentare

Guten Morgen zusammen! Ich habe mir gestern (auch mit Hilfe dieses Boards) ein Script gebastelt, um in Office 2016 ...

Drucker und Scanner
Gesucht DIN A3 Drucker
Frage von NebellichtDrucker und Scanner15 Kommentare

Hallo, ich möchte einen neuen DIN A3 Drucker kaufen. Um ab und zu, ca. 1 mal die Woche Farbausdrucke ...

E-Business
Bankgeheimnis abgeschafft - wie kann ich mich wehren?
Frage von honeybeeE-Business13 Kommentare

Hallo, ich nehme Bezug auf diesen Artikel: Als ich das gelesen habe, wurde mir schlecht Es geht ja niemanden ...