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

2 spalten auslesen und kleinere zahl behalten

Frage Microsoft Microsoft Office

Mitglied: fcmfanswr

fcmfanswr (Level 1) - Jetzt verbinden

03.11.2008, aktualisiert 04.11.2008, 3753 Aufrufe, 3 Kommentare

hallo,
ich habe eine excel tabelle mit 2 spalten, in der 1. spalte befinden sich gruppen(mehrfach vorkommend) und in der 2. spalte stehen unterschiedliche werte zu den gruppen.
Ziel ist es immer die kleinste zahl einer gruppe in spalte 3 zu schreiben.

Beispiel:

spalte1.....spalte2.....spalte3

123.............10...............
123.............20...............10
456.............30...............
456.............40..............
456.............70...............30
789.............20..............
789............. ...............20



falls in einer zelle in spalte 2 nix drin steht soll diese zelle ignoriert werden, falls allerdings alle zellen einer gruppe leer sind soll in spalte 3 eine 0 geschrieben werden.

ich hoffe mir kann jemand bei meinem problem helfen!?

Danke
Mitglied: bastla
03.11.2008 um 22:26 Uhr
Hallo fcmfanswr!

Unter der Annahme, dass die Daten ab A3 eingetragen und, wie in Deinem Beispiel, die Spalte A sortiert ist, sollte das mit folgendem Makro zu lösen sein:
01.
Sub Auswertung() 
02.
Z = 3 
03.
Sp = 1 'Spalte A 
04.
MinStart = 9999999 'höher als die höchste vorkommende Zahl 
05.
Min = MinStart 
06.
Do Until Cells(Z, Sp).Value = "" 
07.
    If Cells(Z, Sp + 1).Value <> "" And Cells(Z, Sp + 1).Value < Min Then Min = Cells(Z, Sp + 1).Value 
08.
    Z = Z + 1 
09.
    If Cells(Z, Sp).Value <> Cells(Z - 1, Sp).Value Then 
10.
        If Min = MinStart Then Min = 0 
11.
        Cells(Z - 1, Sp + 2).Value = Min 
12.
        Min = MinStart 
13.
    End If 
14.
Loop 
15.
End Sub
Grüße
bastla
Bitte warten ..
Mitglied: D3S3RT
03.11.2008 um 22:44 Uhr
geht das nicht mit ner einfachen wenn bedingung ?
wenn(a1>a2;a1;a2) ?
wenn(bedingung;dann;sonst)
gerade gemerkt, dass das ja doch komplexer ist
Bitte warten ..
Mitglied: fcmfanswr
04.11.2008 um 07:23 Uhr
Vielen Dank für die schnelle und sehr gut funktionierende Lösung!
Dieses Forum ist echt klasse!
Danke vielmals.
Bitte warten ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(1)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
VB for Applications
gelöst Bestimmte Spalten aus CSV-Datei auslesen (VBS) (9)

Frage von Gurkenhobel zum Thema VB for Applications ...

Batch & Shell
gelöst Auslesen bestimmter Spalten aus csv (6)

Frage von Berti82 zum Thema Batch & Shell ...

Batch & Shell
Eventlog Druckjobs mit VBS auslesen (2)

Frage von joni2000de zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (34)

Frage von patz223 zum Thema Windows Userverwaltung ...

LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...