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, 3760 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 Update

Windows Update-Suche nach Win7 Neuinstallation wieder schneller

(2)

Erfahrungsbericht von the-buccaneer zum Thema Windows Update ...

Ä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
gelöst Fenstertitel von anderen Tasks per batch auslesen (3)

Frage von NetMare zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Exchange Server
Bestehende eMails autoamatisch weiterleiten (21)

Frage von metal-shot zum Thema Exchange Server ...

Hyper-V
gelöst Reiner Hyper- V Server oder lieber Rolle (21)

Frage von Winuser zum Thema Hyper-V ...

SAN, NAS, DAS
gelöst Synology Version 6.1 Probleme (18)

Frage von Hendrik2586 zum Thema SAN, NAS, DAS ...

Router & Routing
gelöst IP Kamera für drei unabhängige Netzwerke (16)

Frage von ProfessorZ zum Thema Router & Routing ...