Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon darockwider vom 09.02.2022, 23:11 Options
VBA Zeile ausschneiden und in anderes Tabellenblatt einfügen
Guten Abend,
habe ein Tabelle ( Agenda ) und Tabellenblätter mit (a,i und s-Werten)
Nun soll die Spalte B in Agenda verglichen werden.
Wenn dort im Pfad ein "s" steht dann die Zeile ausschneiden und in Tabellenblatt (swerte) eingefügt werden, dass gleiche mit a und i Werten.
Muss dass ein Do-while schleife sein? er muss es solange machen (usedrange.count)
Wer kann mir helfen?
Siehe auch Datei
http://www.file-upload.net/download-2243956/Test.xls.html
habe ein Tabelle ( Agenda ) und Tabellenblätter mit (a,i und s-Werten)
Nun soll die Spalte B in Agenda verglichen werden.
Wenn dort im Pfad ein "s" steht dann die Zeile ausschneiden und in Tabellenblatt (swerte) eingefügt werden, dass gleiche mit a und i Werten.
Muss dass ein Do-while schleife sein? er muss es solange machen (usedrange.count)
Wer kann mir helfen?
Siehe auch Datei
http://www.file-upload.net/download-2243956/Test.xls.html
Antwort 1 von coros vom 10.02.2022, 05:06 OptionsLösung
HAllo,
eine Lösung wäre z.B. die nachfolgende.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
eine Lösung wäre z.B. die nachfolgende.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Option Explicit
Sub Verschieben()
Dim lngRow As Long
Dim lngFirstRow As Long
Application.ScreenUpdating = False
For lngRow = Sheets("agenda").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row To 4 Step -1
If LCase(Sheets("agenda").Cells(lngRow, 2)) = LCase("a") Then
Sheets("agenda").Rows(lngRow).Copy
Sheets("awerte").Cells(Sheets("awerte").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row, 1).PasteSpecial
Sheets("agenda").Rows(lngRow).Delete Shift:=xlUp
ElseIf LCase(Sheets("agenda").Cells(lngRow, 2)) = LCase("s") Then
Sheets("agenda").Rows(lngRow).Copy
Sheets("swerte").Cells(Sheets("swerte").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row, 1).PasteSpecial
Sheets("agenda").Rows(lngRow).Delete Shift:=xlUp
ElseIf LCase(Sheets("agenda").Cells(lngRow, 2)) = LCase("i") Then
Sheets("agenda").Rows(lngRow).Copy
Sheets("iwerte").Cells(Sheets("iwerte").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row, 1).PasteSpecial
Sheets("agenda").Rows(lngRow).Delete Shift:=xlUp
End If
Next lngRow
End Sub
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Ähnliche Themen
Excel 2007: Zeile einfügen
toschm 10.08.2008 - 57 Hits - 4 Antworten
Excel-Tabellenblatt: Zeile 1 ist verschwunden
yoyo1939 13.02.2009 - 323 Hits - 1 Antwort
Tabellenblatt schützen mit VBA
tinki 10.03.2009 - 1037 Hits - 9 Antworten
Daten kopieren und im anderen Tabellenblatt wert einfügen
afetincii 03.04.2009 - 417 Hits - 2 Antworten
Excel - Jede 5. Zeile eine neue Zeile einfügen
rodnick 04.08.2009 - 412 Hits - 4 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
