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

Excel Schleife durchschnittlich kompliziert

Frage Entwicklung VB for Applications

Mitglied: ChrisDynamite

ChrisDynamite (Level 2) - Jetzt verbinden

15.08.2013, aktualisiert 22:07 Uhr, 1827 Aufrufe, 7 Kommentare, 1 Danke

Guten Abend,

die Umsetzung habe ich mir überlegt, nur jetzt scheitert es an der Syntax.

Wie erreiche ich den effekt, dass in excel per vba folgendes passiert. die koplette spalte b soll in einem datenblatt nach dem wort "konto" durchsucht werden und sobald dieses wort gefunden wird soll der wert 1 feld über konto eine zeile links neben konto und auch an alle weiteren felder darunter geschrieben werden, bis wieder in spalte b das wort konto vorkommt und wieder der wert 1 feld über dem wort konto links neben das feld konto geschrieben wird, so lange bis wieder das wort konto vorkommt usw. das wort konto kann nur in spalte b vorkommen und es sollte von oben nach unten abgearbeitet werden, bis das wort konto nicht mehr erscheint.

alternative: kennt jemand ein buch, welches das an mich heranführen kann?

grüße chris

vorher

85dff4d907ca2a5111c13c272e2f201f - Klicke auf das Bild, um es zu vergrößern

nachher

d295fe890570cd077fa46baf5f1d199a - Klicke auf das Bild, um es zu vergrößern
Mitglied: bastla
15.08.2013, aktualisiert 16.08.2013
Hallo ChrisDynamite!

Das sollte sich etwa so machen lassen:
01.
Sub Aufbereiten() 
02.
AbZeile = 2 
03.
Spalte = 2 'Spalte B 
04.
Suche = "*Konto*" 
05.
 
06.
Zeile = AbZeile 
07.
Wert = Cells(Zeile, Spalte).Value 'Zelleninhalt holen 
08.
Do While Wert <> "" 'Solange Zelle nicht leer 
09.
    If Wert Like Suche Then 'Suchbegriff enthalten? 
10.
        Konto = Cells(Zeile - 1, Spalte).Value 'Konto aus darüber liegender Zelle lesen 
11.
    End If 
12.
    Cells(Zeile, Spalte - 1).Value = Konto 'Konto links neben aktueller Zelle eintragen 
13.
    Zeile = Zeile + 1 'nächste Zeile 
14.
    Wert = Cells(Zeile, Spalte).Value 'Zelleninhalt holen 
15.
Loop 
16.
End Sub
Grüße
bastla
Bitte warten ..
Mitglied: ChrisDynamite
15.08.2013 um 23:21 Uhr
ich werde den code testen, schonmal vielen Dank!

bitte nenne mir noch ein gutes buch indem ich das auch mal selbst checken kann.
Bitte warten ..
Mitglied: ChrisDynamite
15.08.2013, aktualisiert um 23:31 Uhr
kuhl vielen dank der code funktioniert echt gut. prima eins fällt mir noch auf, sobald die abfrage nach einem zweiten konto wert kommt, macht das script nicht mehr weiter siehe bild

df7ca077200066ec586f817271fcb1a0 - Klicke auf das Bild, um es zu vergrößern

danke vielmals!

normalerweise sollten nun die vorderen zeilen mit dem neuen wert über konto gefüllt werden, also 5611
Bitte warten ..
Mitglied: ChrisDynamite
15.08.2013, aktualisiert um 23:43 Uhr
ich habe nun die felder "besser formatiert" also dass nicht mehr die grünen ecken angezeigt werden. nun ist der effekt, dass alle felder davor mit dem wert 5610 beschrieben werden und 5611 missachtet wird.

Nachtrag, nein es scheint eher so, als dass in zeile 70 die vba nichts mehr machen zu wollen, wen ich das feld konto zwischendrin eintrage wird der wert darüber übernommen. super sache nur leider hört das script in zeile 70 auf.
Bitte warten ..
Mitglied: ChrisDynamite
15.08.2013 um 23:46 Uhr
solange zelle nicht leer dürfte das problem sein.
Bitte warten ..
Mitglied: ChrisDynamite
15.08.2013 um 23:50 Uhr
ich habe das nun gelöst indem ich festgelegt habe Do While Wert <> "exit" 'Solange Zelle nicht leer. den wert exit habe ich gaaaaaanz tief unten gelegt. gibt es noch galantere möglichkeiten. wirklich super script. das hat für zumindest freitag meinen kopf gerettet. danke bastla
Bitte warten ..
Mitglied: bastla
16.08.2013 um 08:01 Uhr
Hallo ChrisDynamite!

Aufgrund Deines Beispiels war ich von zusammenhängenden Daten ausgegangen - Alternative:
01.
Sub Aufbereiten() 
02.
AbZeile = 2 
03.
Spalte = 2 'Spalte B 
04.
Suche = "*Konto*" 
05.
 
06.
BisZeile = Cells(Rows.Count, Spalte).End(xlUp).Row 'letzte Zeile mit einem Wert in "Spalte" ermitteln 
07.
 
08.
For Zeile = AbZeile To BisZeile 
09.
    Wert = Cells(Zeile, Spalte).Value 'Zelleninhalt holen 
10.
    If Wert Like Suche Then 'Suchbegriff enthalten? 
11.
        Konto = Cells(Zeile - 1, Spalte).Value 'Konto aus darüber liegender Zelle lesen 
12.
        Cells(Zeile - 1, Spalte - 1).Value = "" 'Zellinhalt neben neuem Konto löschen 
13.
    End If 
14.
    If Trim(Wert) <> "" Then Cells(Zeile, Spalte - 1).Value = Konto 'Wenn Zelle nicht leer, Konto links neben aktueller Zelle eintragen 
15.
Next 
16.
End Sub
Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
VB for Applications
gelöst EXCEL Macro oder ähnliches gesucht (3)

Frage von reissaus73 zum Thema VB for Applications ...

Microsoft Office
"Microsoft Excel kann die Daten nicht einfügen" (2)

Frage von arik12 zum Thema Microsoft Office ...

Neue Wissensbeiträge
Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(2)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Windows 10

Das Windows 10 Creators Update ist auf dem Weg

(5)

Anleitung von BassFishFox zum Thema Windows 10 ...

Administrator.de Feedback

Tipp: Ungelöste Fragen ohne Antwort in Tickeransicht farblich hinterlegen

Tipp von pattern zum Thema Administrator.de Feedback ...

Viren und Trojaner

Neue Magazin Ausgabe: Malware und Angriffe abwehren

Information von Frank zum Thema Viren und Trojaner ...

Heiß diskutierte Inhalte
Windows Systemdateien
Warum System auf "C:" (29)

Frage von DzumoPRO zum Thema Windows Systemdateien ...

Windows Server
gelöst Update BackupExec 2015 auf 2016 führt zu SQL-Server Problem (16)

Frage von montylein1981 zum Thema Windows Server ...

Cloud-Dienste
gelöst Bitcoins minen über Nacht? (16)

Frage von 1410640014 zum Thema Cloud-Dienste ...

LAN, WAN, Wireless
Cisco SG200: Auf bestimmtem vLAN bestimmte TCP-Ports sperren (16)

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