Zum Forum springen
Need VBA Hilfe @ ex...
 
Benachrichtigungen
Alles löschen

Need VBA Hilfe @ excel [2,22 $ inside]

12 Beiträge
4 Benutzer
0 Reactions
652 Ansichten
blubifu
Beigetreten: 01.12.2008

hi leute, meine freundin hat folgendes problem :

sie hat eine riesige excel liste. in dieser liste ist in zeile 6 in jeder spalte ein bestimmter text. in dieser liste wurde nun in jede zelle( also jede zeile unter zeile 6) ein "x" geschrieben wenn der text aus zeile 6 zutrifft. meine freundin soll nun jedes "x" durch den text aus der jeweiligen zelle (jeweilige spalte / zeile 6) ersetzen. sie würde dies gern via makro & VBA machen, weil das wohl das "einfachste" sein soll. ich hab leider keine ahnung davon und wir werden beim googlen auch nicht viel schlauer, haben auch schon einiges probiert. ich denke allerdings für nen VBA "profi" ist das ein mega simples unterfangen.

ps: die liste hat mehrere hundert zeilen, falls das von bedeutung sein soll

kann mir jemand helfen? würde meine letzten 2,22 doller auf stars dafür hergeben :|

lg blubifu


Antwort
Zitat
11 Antworten
sarc
Beigetreten: 06.06.2008

Neue Zeile unter der x-Zeile einfügen und dann ne einfache WENN-Funktion ist keine Option? Die x-Zeile kann danach ausgeblendet werden.


Antwort
Zitat
blubifu
Beigetreten: 01.12.2008

Original von sarc
Neue Zeile unter der x-Zeile einfügen und dann ne einfache WENN-Funktion ist keine Option? Die x-Zeile kann danach ausgeblendet werden.

es sind halt irgendwie 3000 zeilen und paar hundert spalten, die "x"e sind nicht in einer zeile sondern von spalte zu spalte eben in ner unterschiedlichen zeile^^


Antwort
Zitat
sarc
Beigetreten: 06.06.2008

Ah, den Part hab ich überlesen. Ja, dann VBA. Da bin ich aber leider raus.


Antwort
Zitat
SEdoubleP
Beigetreten: 24.06.2006

Gib mal bitte ein Bsp-Dokument, kein Bock iwas zu machen was dann nicht passt.


Antwort
Zitat
blubifu
Beigetreten: 01.12.2008

http://www23.zippyshare.com/v/53030816/file.html

links wie es jetzt aussieht, rechts wie es dann aussehen soll.
natürlich muss das ganze automatisch erfolgen, da ober 9000 zellen D:

ist das verständlich?


Antwort
Zitat
Outbreaker5832
Beigetreten: 03.10.2008

ich mach das mal schnell.


Antwort
Zitat
Outbreaker5832
Beigetreten: 03.10.2008

Wenn ich es richtig verstanden habe, sollte das Makro funktionieren

Sub Ichbindum()

Do While (Range("C6").Offset(1 + i, 0) <> "")

If Range("C6").Offset(1 + i, 0).Value = "x" Then

Range("C6").Offset(1 + i, 0).Value = Range("C6").Value

End If

i = i + 1
Loop

End Sub

Musst nur die Spalten anpassen. Also wenn es Spalte C ist, dann C einfügen. Wenn es D ist C mit D ersetzen.


Antwort
Zitat
Outbreaker5832
Beigetreten: 03.10.2008

Wenn ihr es nicht hinbekommt, schick mir einfach das Original. Das ist echt nicht der Akt.


Antwort
Zitat
SEdoubleP
Beigetreten: 24.06.2006

Diese Datei herunterladen: https://dl.dropboxusercontent.com/u/9671940/Modul1.bas

Entsprechendes Excel-Dokument öffnen
Entwicklertools -> Visual Basic
Datei -> Datei importieren
Visual Basic Fenster schließen
In Excel -> Entwicklertools -> Makros -> Makro 'MeinMakro' ausführen

Edit: Falls das Sheet nicht Tabelle1 heißt, dies im Makro ändern.

Falls dir Entwicklertools nichts sagt, so kannst du diese anzeigen lassen: https://office.microsoft.com/de-de/excel-help/anzeigen-der-registerkarte-entwicklertools-HA101819080.aspx

Edit2: Falls ich den Zuschlag halte, kannst du das Geld gerne an die Lebenshilfe spenden.


Antwort
Zitat
blubifu
Beigetreten: 01.12.2008

Original von Outbreaker5832
Wenn ihr es nicht hinbekommt, schick mir einfach das Original. Das ist echt nicht der Akt.

geht nicht, sind vertrauliche daten^^

dein code funktioniert zwar, aber dauert halt auch zu lang wenn man für jede spalte das im code ersetzen muss manuell

das von SEdoubleP hat super funktioniert, danke dir, ist genau das was sie gebraucht hat^^

werde nen 5er spenden, poste dann hier die bestätigung oder auch dir per pn wie du willst

lg


Antwort
Zitat
SEdoubleP
Beigetreten: 24.06.2006

Original von blubifu
das von SEdoubleP hat super funktioniert, danke dir

Gern geschehen.

werde nen 5er spenden

Das ist ein feiner Zug :f_love:


Antwort
Zitat