Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 09:22:48
VBA Filter in intelligenter Tabelle funktioniert nicht
18.04.2024 08:54:52
automatisches übertragen von Daten
18.04.2024 08:16:13
Dynamische Positionsnummerierung
18.04.2024 08:15:33
Seitwärts scrollen - Fenster fixiert
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1580to1584
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1580to1584
1580to1584
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Vba verschieben in tabellenblatter

Vba verschieben in tabellenblatter
13.09.2017 12:01:35
Thomas
Guten morgen:-)
ich hätte da mal ein anliegen.
in mein Tabellenblatt Daten steht von Spalte A bis M Daten drin. Ab zeile 7
Jetzt möchte ich das wenn in Spalte K das Wort ( Dropdown) Schrauben vorkommt soll die gabze zeile in das Tabellenblatt Werkzeug ab zeile2 eingefügt werden und vom Tabellenblatt ydaten gelöscht und nachgerutscht werden.
Wenn das Wort Wolle vorkommt dann ins Tabellenblatt Textil
und wenn das Wort Cola borkommt ins Tabellenblatt getränke.
Das alles soll über einen Button angesteuert werden.
Ist sowas möglich?
danke

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Vba verschieben in tabellenblatter
13.09.2017 13:10:04
Bernd
Servus,
z.B. so:

Sub sortieren()
Dim wsWerkzeug As Worksheet
Dim wsTextil As Worksheet
Dim wsGetränke As Worksheet
Dim ws As Worksheet
Dim intLZ As Integer
Dim i As Integer
Set ws = ThisWorkbook.Sheets("Tabelle1")
Set wsWerkzeug = ThisWorkbook.Sheets("Werkzeug")
Set wsTextil = ThisWorkbook.Sheets("Textil")
Set wsGetränke = ThisWorkbook.Sheets("Getränke")
intLZ = ws.Cells(Rows.Count, 1).End(xlUp).Row
For i = intLZ To 2 Step -1
Select Case ws.Cells(i, 11).Value
Case Is = "Schrauben"
ws.Rows(i).Copy Destination:=wsWerkzeug.Cells((wsWerkzeug.Cells(Rows.Count, 1).End(xlUp). _
Row + 1), 1)
ws.Rows(i).EntireRow.Delete
Case Is = "Wolle"
ws.Rows(i).Copy Destination:=wsTextil.Cells((wsTextil.Cells(Rows.Count, 1).End(xlUp).Row +  _
1), 1)
ws.Rows(i).EntireRow.Delete
Case Is = "Cola"
ws.Rows(i).Copy Destination:=wsGetränke.Cells((wsGetränke.Cells(Rows.Count, 1).End(xlUp). _
Row + 1), 1)
ws.Rows(i).EntireRow.Delete
Case Else
MsgBox "Benennung nicht bekannt"
End Select
Next i
Set ws = Nothing
Set wsWerkzeug = Nothing
Set wsTextil = Nothing
Set wsGetränke = Nothing
End Sub
Grüße, Bernd
Anzeige
AW: Vba verschieben in tabellenblatter
13.09.2017 13:25:48
Werner
Hallo Thomas,
da ich mir jetzt auch schon die Mühe gemacht habe, auch noch meine Version. Ist ähnlich wie die von Bernd. 
Option Explicit
Public Sub Verschieben()
Dim loLetzteQ As Long
Dim loLetzteZ As Long
Dim i As Long
Dim wsZiel As Worksheet
Dim strTreffer As String
With Worksheets("Daten")
loLetzteQ = .Cells(.Rows.Count, 11).End(xlUp).Row
For i = loLetzteQ To 7 Step -1
Select Case .Cells(i, 11).Value
Case "Schrauben"
Set wsZiel = Worksheets("Werkzeug")
strTreffer = .Cells(i, 11).Value
Case "Wolle"
Set wsZiel = Worksheets("Textil")
strTreffer = .Cells(i, 11).Value
Case "Cola"
Set wsZiel = Worksheets("Getränke")
strTreffer = .Cells(i, 11).Value
Case Else
End Select
If Not wsZiel Is Nothing Then
If .Cells(i, 11).Value = strTreffer Then
loLetzteZ = wsZiel.Cells(wsZiel.Rows.Count, 1).End(xlUp).Row + 1
.Rows(i).Copy wsZiel.Cells(loLetzteZ, 1)
.Rows(i).Delete shift:=xlUp
End If
End If
Next i
End With
Set wsZiel = Nothing
End Sub
Gruß Werner
Anzeige
AW: Vba verschieben in tabellenblatter
13.09.2017 15:30:57
Thomas
Werde es morgen beide testen.
@Werner: gibt es bei dir auch eine Fehlermeldungen ? wenn kein das wort nucht vorkommt.
und die formeln sollen nicht mitgenimmen werden sondern als fester Wert
AW: Vba verschieben in tabellenblatter
13.09.2017 15:44:40
Werner
Hallo Thomas,
nö, da kommt keine Fehlermeldung.
Wenn nur die Werte übertragen werden sollen dann so: 
Option Explicit
Public Sub Verschieben()
Dim loLetzteQ As Long
Dim loLetzteZ As Long
Dim i As Long
Dim wsZiel As Worksheet
Dim strTreffer As String
With Worksheets("Daten")
loLetzteQ = .Cells(.Rows.Count, 11).End(xlUp).Row
For i = loLetzteQ To 7 Step -1
Select Case .Cells(i, 11).Value
Case "Schrauben"
Set wsZiel = Worksheets("Werkzeug")
strTreffer = .Cells(i, 11).Value
Case "Wolle"
Set wsZiel = Worksheets("Textil")
strTreffer = .Cells(i, 11).Value
Case "Cola"
Set wsZiel = Worksheets("Getränke")
strTreffer = .Cells(i, 11).Value
Case Else
End Select
If Not wsZiel Is Nothing Then
If .Cells(i, 11).Value = strTreffer Then
loLetzteZ = wsZiel.Cells(wsZiel.Rows.Count, 1).End(xlUp).Row + 1
Application.ScreenUpdating = False
.Rows(i).Copy
wsZiel.Cells(loLetzteZ, 1).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
.Rows(i).Delete shift:=xlUp
End If
End If
Next i
End With
Set wsZiel = Nothing
End Sub
Gruß Werner
Anzeige
AW: Vba verschieben in tabellenblatter
13.09.2017 15:48:14
Thomas
wo würde ich denn eine Fehlermeldung einbauen ?
AW: Vba verschieben in tabellenblatter
13.09.2017 15:52:15
Werner
Hallo Thomas,
du schreibst, dass du erst morgen testen kannst. Gleichzeitig schreibst du von einer Fehlermeldung. Was jetzt? Hast du getestet oder nicht? Wenn ja, dann welche Fehlermeldung in welcher Codezeile?
Gruß Werner
AW: Vba verschieben in tabellenblatter
13.09.2017 16:07:32
Thomas
ich hab es schnell getestet. :-)
War zu neugierig ob es geht :-)
Ja wo die fehlermeldung hinkommt.
nach End Select ?
z.b.
Case Else
MSGbox= "keine Daten eingetragen zum übertrag"
weiß aber nicht ob es richtig ist da ich wenig Ahnung in vba habe
Der code vom Bernd hängt leider das Excel auf.
Anzeige
AW: Vba verschieben in tabellenblatter
13.09.2017 16:23:27
Werner
Hallo Thomas,
ich glaube wir haben da ein wenig aneinander vorbei gesprochen. Du willst dass eine Meldung ausgegeben wird, wenn keine Daten übertragen werden, weil die entsprechenden Werte in Spalte K nicht vorhanden sind.
Dann so: 
Option Explicit
Public Sub Verschieben()
Dim loLetzteQ As Long
Dim loLetzteZ As Long
Dim i As Long
Dim wsZiel As Worksheet
Dim strTreffer As String
Dim boSchalter As Boolean
With Worksheets("Daten")
loLetzteQ = .Cells(.Rows.Count, 11).End(xlUp).Row
For i = loLetzteQ To 7 Step -1
Select Case .Cells(i, 11).Value
Case "Schrauben"
Set wsZiel = Worksheets("Werkzeug")
strTreffer = .Cells(i, 11).Value
boSchalter = True
Case "Wolle"
Set wsZiel = Worksheets("Textil")
strTreffer = .Cells(i, 11).Value
boSchalter = True
Case "Cola"
Set wsZiel = Worksheets("Getränke")
strTreffer = .Cells(i, 11).Value
boSchalter = True
Case Else
End Select
If Not wsZiel Is Nothing Then
If .Cells(i, 11).Value = strTreffer Then
loLetzteZ = wsZiel.Cells(wsZiel.Rows.Count, 1).End(xlUp).Row + 1
Application.ScreenUpdating = False
.Rows(i).Copy
wsZiel.Cells(loLetzteZ, 1).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
.Rows(i).Delete shift:=xlUp
End If
End If
Next i
If Not boSchalter Then
MsgBox "Keine Daten für Übertrag vorhanden."
End If
End With
Gruß Werner
Anzeige
AW: Vba verschieben in tabellenblatter
13.09.2017 17:55:36
Thomas
Ah super Werner,
bist der beste :-)
Danke
danke auch an Bernd
Gerne u. Danke für die Rückmeldung. o.w.T.
13.09.2017 18:07:41
Werner

300 Forumthreads zu ähnlichen Themen

Eingabemaske für Tabelle via VBA ?
kiwi279

Hi Ihr,
habe eine größere Adressdatenbank als Excel-Datei.
Der Inhalt sind normale Adressen, zu denen in jeder Spalte separat bestimmte Informationen (Nachname, Vorname, Email, Geburtstag, Beruf etc.) abgelegt sind.
Da die Datensätze immer wieder ergänzt und aktualisiert werden, ist...
13.08.2008 21:10:00
Thread-ID: 1001661
17 Beiträge
Anzeige
Steuerelement Listbox1 in tabelle wird in VBA n
Mike

Hallo
Ich habe in einer Tabelle aus der Symbolleiste Steuerelemente ein Listenfeld in eine Tabelle eingefügt. Der Objektname lautet "Listbox1".
Über ein Makro will ich nun diese Listbox füllen.
Listbox1.additem "Text"
wenn ich das Makro ausführen wird die Listbox1 jedoc nicht ge...
28.11.2008 11:59:00
Thread-ID: 1028645
3 Beiträge
Änderungen in Tabellen via VBA vornehmen
Wolfgang

Hallo,
in einer Mappe befinden sich 3 Tabellenblätter; Gesamt, Grunddaten und Altdaten - In Gesamt werden unterschiedlich viele Daten, die aber alle immer das Format zu Tabelle Grund- und Altdaten haben, eingespielt. Im beiliegenden Code, wenn ich ihn richtig interpretiere, werden Veränderu...
06.12.2008 15:50:24
Thread-ID: 1030699
7 Beiträge
Anzeige
VBA Script in andere Tabellen
Jörg

Hallo,
mich würde mal interessieren, ob es möglich ist, das Script einer Tabelle öffentlich für andere Tabellen zu machen. Derzeit ist es so, wenn ich das Makro in anderen Tabellen anwende, öffnet sich erst die Tabelle in der das Makro drin steht. Kann man das umgehen?
Für Eure Hilfe vi...
14.01.2009 11:42:23
Thread-ID: 1039546
16 Beiträge
VBA-Code in einem String erzeugen und dann ausführ
Dirk

Hallo!
Gibt es eine Möglichkeit, VBA-Code auszuführen, der in einer String-Variablen vorliegt, die zuvor dynamisch erzeugt wurde? Sprich: Ich möchte VBA-Code dynamisch erzeugen und anschließend ausführen. Geht das irgendwie?
Ich hoffe, das ist so verständlich.
Vielen Dank,
Dirk<...
20.01.2009 20:08:36
Thread-ID: 1041981
4 Beiträge
VBA Code mit VBA in Tabelle kopieren - Fehler?!
Andreas

Hallo Herber Fans,
ich habe mir heute aus der Recherche eine Möglichkeit rausgesucht, einen Code über VBA in ein anderes VBA Worksheet zu kopieren. Das dies in VBA überhaupt geht ist ja schon genial. Es soll ein Code in das VBA Worksheet des activeworkbooks kopiert werden.
Der Code dafü...
11.02.2009 15:56:00
Thread-ID: 1049657
3 Beiträge
Auslesen_Tabellenblattname_eintragen-siehe VBA
Fabio

Hallo zusammen,
mit dem Makro unten aus dem Forum lese ich diverse Exceldateien in einem Verzeichzis aus. Soweit ich das gesehen habe, liest das Makro immer das "erste" Tabellen-Blatt aus.
Aktuell habe ich folgendens:
- Ein Verzeichnis mit 10 Excel-Dateien
- Die Exeldatein haben...
06.04.2009 11:13:51
Thread-ID: 1067062
4 Beiträge
Strings vergleichen in 2 verschiedenen Tabellen
Mario

Hallo zusammen,
ich versuch mal mein Problem zu beschreiben:
Tabelle 1 ist ein Schichtplan, der die Namen der MA, eingeteilt in verschiedene Gänge, mit dem Zusatz "Gang" enthält, z.B. Mayer Hans 12.
Tabelle 2 ist ein Anwesenheitsplan, der die Namen incl. Personalnummer hat, z.B. May...
26.07.2009 14:32:41
Thread-ID: 1091022
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
16
7
2
6
8
15
3
2
3
7
6
1
2
4
1
9
2
4
3
3
4
1
2
2
6