Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1392to1396
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
1392to1396
1392to1396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Übertrag in eine andere Tabelle wenn Bedingung ok

Übertrag in eine andere Tabelle wenn Bedingung ok
24.11.2014 08:23:39
Jens
Hallo zusammen, ich hab ein kleines problem mit einem code. ich hab ein kleines Tool geschrieben. Über ein UserForum wird eine Eingabe getätigt. In Spalte 76 wird ein "x" gesetzt wenn das projekt geschlossen wird. Wenn ich das x Manuell in die tabelle eintrage und dann enter drücke. wird das projekt aus der tabelle in eine andere kopiert und dann in der alten tabelle gelöscht. dies soll jedoch automatisch gemacht warden wenn das x durch das Userforum eingetragen wird. Anfangs hat dies auch funktioniert wie es gedacht war, aber seid ein paar änderungen leider nicht mehr. Kann mir jemand helfen? 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim TRow As Integer
TRow = Target.Row
If Target.Column = 76 Then
If Target = "x" Then
Sheets("Main sheet").Rows(TRow).copy
Sheets("Closed Projects").Cells(Sheets("Closed Projects").Cells(Rows.Count, 2).End( _
xlUp).Offset(1, 0).Row, 1).PasteSpecial
Sheets("Main sheet").Rows(TRow).Delete Shift:=xlUp
End If
End If
End Sub

Gruß Jens

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Übertrag in eine andere Tabelle wenn Bedingung ok
29.11.2014 20:27:03
Werner
Hallo Jens,
ich habe mal ein wenig herumprobiert und ein Makro für das Worksheet - Calculate - Ereignis geschrieben. Das Problem ist, dass ein Eintrag in die Tabelle über eine Textbox wohl das Calculate - Ereignis nicht auslöst. So scheint es auch nicht zu gehen.
Ich habe es dann über einen Umweg geschafft. Ich nehme mal an, dass du in deiner Userform einen Commandbutton hast mit dem das X in die Tabelle geschrieben wird. Nachdem in deinem Code das X in die Tabelle geschrieben wird mit SendKeys die "Enter Taste" simulieren. So hat es bei mir funktioniert.
In dem angefügten Code habe ich nur mal kurz was geschrieben für die Zelle (6, 76). Probier es mal aus.
Private Sub CommandButton1_Click()
With Worksheets("Main sheet")
Cells(6, 76).Value = TextBox1.Value
Application.SendKeys ("{enter}")
End With
End Sub
Übrigens solltes du auch das große X in deinen Code aufnehmen. So wie du es hast regiert das Makro nicht, wenn du versehentlich ein großes X in die Textbox schreibst.
If Target = "x" or Target = "X" then
Gruß Werner

Anzeige
AW: Übertrag in eine andere Tabelle wen
03.12.2014 08:04:46
Jens
Hallo Werner,
hallo Zusammen,
leider funktioniert das bei mir nicht! Ich möchte folgendes durch einen Makro ausführen lassen. Ich habe eine Tabelle in der Projekte stehen mit sämtlichen informationen. Wird das Projekt geschlossen wird in spalte 76 des jeweiligen Projekts ein x gesetzt. Das x wird durch eine checkbox im Userform in die spalte 76 eingetragen. Ist das x vorhanden soll das Projekt in das Sheet "Closed Projects" kopiert werden und im "Main sheet" gelöscht werden. Bis vor kurzem hab ich das mit folgendem Makro gemacht der völlig automatisch gelaufen ist.
Vielleicht kann mir jemand weiterhelfen?
Gruß Jens
Private Sub Worksheet_Change(ByVal Target As Range)
Dim TRow As Integer
TRow = Target.Row
If Target.Column = 76 Then
If Target = "x" Then
Sheets("Main sheet").Rows(TRow).copy
Sheets("Closed Projects").Cells(Sheets("Closed Projects").Cells(Rows.Count, 2).End( _
xlUp).Offset(1, 0).Row, 1).PasteSpecial
Sheets("Main sheet").Rows(TRow).Delete Shift:=xlUp
End If
End If
End Sub

Anzeige

299 Forumthreads zu ähnlichen Themen

Zellinhalt aus anderer Tabelle übernehmen
Marc

Hallo zusammen,
habe ein Problem mit dem ich einfach nicht weiterkomme (wahrscheinlich für Euch kein Problem...!)
Ich möchte aus einer Tabelle Zellinhalte in eine andere Tabelle im gleichen Arbeitsblatt übernehmen, d.h. aus Tabelle 2 soll der Zellinhalt aus D61 in Tabelle 1 in H60 über...
21.08.2008 22:08:00
Thread-ID: 1003658
3 Beiträge
Anzeige
Werte in anderes Tabellenblatt übertragen
Bibo

Hallo liebe EXCEL-Freunde,
ich habe in der Online-Suche leider kein Makro gefunden, das ich mit meinen minimalen VBA-Kenntnissen hätte selbständig auf meine Problematik anpassen können und bitte Euch deshalb um Eure Hilfe.
In das Tabellenblatt "Kommission" der Beispielmappe, das als Har...
31.08.2008 17:54:00
Thread-ID: 1006231
4 Beiträge
Zeile einfügen und dann die Formeln eintragen?
Selma

Hallo Leute,
wie kann ich beim Einfügen einer neue Zeile per VBA die Formel in die Zellen der eingefügte Zeile eintragen?
Sub Insert_Task() Rows(ActiveCell.Row + 1).Insert Shift:=xlUp Rows(ActiveCell.Row + 1).Select End Sub
Beispiel für die Formeln der aktive Zeile 40:
D40 =...
16.09.2008 22:51:11
Thread-ID: 1010207
6 Beiträge
Anzeige
Datensätze in Tabellenblätter schreiben
TomTom


Hi,
ich habe eine Excelmappe mit 4 Bättern. Auf dem ersten Blatt (Spalte A) stehen die Rohdaten drin. Die sehen in etwar so aus:
START;flag,2,23,,,,34,45,33,45,,,,,,,56
ATTEMPT;flag,1,45,,12,,34,,,45,,,,,7,,56
START;flag,2,23,,,,34,45,33,45,,,,,,,56
STOP;flag,3,45,,5,,,...
30.09.2008 13:43:00
Thread-ID: 1013375
3 Beiträge
Daten aus Tabelle in eine andere Tabelle
Cornelia

Ich habe 2 Tabellen mit dem gleichen Aufbau.
Tabelle 1 soll die Daten eingetragen werden. Von mehreren Leuten. Deshalb eben seperat.
Tabelle 2 soll die Daten aus Tabelle 1 übernehmen. Jeweils ein Blatt mit identischen Blattnamen aus Tabelle 1. Bisherige Lösung von mir in jede Zelle rein...
01.10.2008 08:11:00
Thread-ID: 1013510
6 Beiträge
Zelle in andere Tabelle mit Button kopieren
Benny

Hallo Zusammen!
Kann mir jemand weiterhelfen? Wie kann ich die unten stehende Formel entsprechend anpassen?
Private Sub CommandButton2_Click() Dim wks As Worksheet Set wks = Worksheets("Änderungsanträge") wks.Range("C3") = wks.Range("D3") End Sub
Danke im Voraus!
Benny
07.10.2008 10:06:48
Thread-ID: 1014629
4 Beiträge
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
Zellen von einer in die andere Tabelle kopieren
einer

Guten Morgen!
Ich habe 2 Tabellen. Eine Quelltabelle und eine ZielTabelle. Ich möchte nun die Daten aus der Quelldatei in die Zieldatei einfügen (aber Werte ohn Formatierung einfügen d.h. PasteSpecial). Irgendwie will das nicht gehen. :(
Dim wks As Excel.Worksheet
Dim Quell As Excel...
16.10.2008 10:53:15
Thread-ID: 1016793
5 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

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
2
7
3
5
8
2
5
3
1
4
4
11
2
15
2
2
13
2
5
2
2
3
3
2
11