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, 3765 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 ..
Ähnliche Inhalte
VB for Applications
gelöst Bestimmte Spalten aus CSV-Datei auslesen (VBS) (9)

Frage von Gurkenhobel zum Thema VB for Applications ...

Visual Studio
Vb.net Datenfelder aus Word 2003 Dokument auslesen (3)

Frage von Herbrich19 zum Thema Visual Studio ...

VB for Applications
gelöst Mit VBA Zertifikate auslesen (3)

Frage von it4baer zum Thema VB for Applications ...

LAN, WAN, Wireless
gelöst Cisco Aironet AP 1250 passwörter auslesen (17)

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

Neue Wissensbeiträge
Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(29)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Humor (lol)

Bester Vorschlag eines Supporttechnikers ever: APC

(15)

Erfahrungsbericht von DerWoWusste zum Thema Humor (lol) ...

Windows Server

Exchange 2010 Active Directory und Windows Server 2016

(4)

Erfahrungsbericht von Herbrich19 zum Thema Windows Server ...

Heiß diskutierte Inhalte
Internet
gelöst Mitarbeiter surft auf unerwünschter Seite - Wie damit umgehen? (50)

Frage von sabines zum Thema Internet ...

Netzwerke
LAN2LAN Verbindung sehr langsam flaschenhals gesucht (27)

Frage von PixL86 zum Thema Netzwerke ...

Router & Routing
PFsense - Netzverbindung steht, aber kein Internet vorhanden (24)

Frage von aschmid zum Thema Router & Routing ...

Windows Server
gelöst Windows 2016 Hyper-V und VHDS (19)

Frage von emeriks zum Thema Windows Server ...