VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Sebastian	Datum: 15.12.2016 09:15:44	Views: 1057	Rating:	Antwort:
Thema: Bestehendes Makro anpassen
Hallo an alle, ich habe folgendes Makro und möchte jetzt jedoch das nicht die gesuchte Zelle (steht in Spalte A) übertragen wird sondern die Zelle rechts daneben (Spalte B) Kann mir jemand dieses Makro auf die schnelle entsprechend umschreiben? Sub Makro1() ' ' Makro1 Makro ' ' Tastenkombination: Strg+a ' Dim Loletzte As Long Dim RngZ As Range For Each RngZ In Worksheets("Where used on").Range("A1:B200000") Loletzte = Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row + 1 If RngZ Like Worksheets("CALCULATION (NEW)").Range("V2") Then Worksheets("Tabelle1").Cells(Loletzte, 1) = RngZ Next End Sub Bedanke mich jetzt schon vielmals für eure Hilfe. Gruß Sebastian

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen