hallo!!
ich hab bei meiner diplomarbeit ein großes problem. ich trage in „tabellenblatt1“ in zelle „a1“ einen text ein, z.b. „hallo“. ich möchte nun mit vba ein makro erzeugen, dass auch zelle „a1“ zugreift und dort „hallo“ ausliest. im nächsten schritt soll das makro in „tabellenblatt2“ die erste zeile nach „hallo“ durchsuchen. wenn „hallo“ gefunden wurde, soll die komplette spalte in der „hallo“ steht, in „tabellenblatt3“ kopiert werden. kann mir nitte jemand helfen?!
vielen lieben dank,
anja
hallo anja
Dieses Makro macht die Sache recht, obwohl es ein Schnellschuss und keine ausgereifte Schönheit ist:
Option Explicit
Dim stichwort, i, fertig
Sub los()
fertig = False
Sheets("Tabelle2").Select
stichwort = Range("Tabelle1!A1").Value
For i = 1 To 256
If fertig Then Exit Sub
If Worksheets("Tabelle2").Cells(1, i).Value = stichwort Then neukol
Next
MsgBox (stichwort & " wurde nicht gefunden!")
End Sub
Private Sub neukol()
Columns(i).Copy
Sheets("Tabelle3").Select
Range("IV1").End(xlToLeft).Select
ActiveCell.Offset(0, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
fertig = True
End Sub
Gruss
Erich
Hallo Anja,
das sollte übrigens auch ohne Makro gehen. Aber eine Lösung ist Dir ja schon geliefert worden.
MfG Georg V.
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Vielen Dank für Eure Hilfe!!! Ich werd gleich mal ausprobieren ob es klappt.
LG Anja