Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1560to1564
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
1560to1564
1560to1564
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn Wert, Zeile aus Bereich neues TB Bereich einf

Wenn Wert, Zeile aus Bereich neues TB Bereich einf
27.05.2017 18:35:29
Gisela
Hallo,
Da ich leider nur mit dem Recorder arbeiten kann, stoße ich leider immer an meine Grenzen.
Folgendes Problem soll ich lösen:
In einer Tabelle werden sogenannte Grunddaten gesammelt. Undzwar in den Spalten B2:I.
In der Mappe gibt es weitere Tabellenblätter. Jeder Zeile wird im TB Grunddaten, Spalte J ein TB-Name zugeordnet.
Wenn in den Grunddaten der in der Spalte H bestehende Eintrag „alt“ geändert wird in „neu“, soll der Bereich dieser Zeile (Spalte B,C,D,E,F,G,H,I) ausgeschnitten und dann in dem in Zelle J benannten TB eingetragen werden, allerdings in die erste freie Zeile des Bereichs B34-B80.
Die verbleibenden Zeilen im TB Grunddaten sollen nach oben aufrücken.
Ich hoffe, dass ich das einigermaßen verständlich erklärt habe.
Kann mir bitte jemand helfen.
Vielen Dank und Grüße
Gisela

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

Betreff
Datum
Anwender
Anzeige
Bitte Beispielmappe sowie eine Nachfrage
28.05.2017 02:52:30
Werner
Hallo Gisela,
was soll passieren, wenn der Bereich B34 bis B80 im Zielblatt voll ist?
Am besten eine kleine Beispielmappe erstellen, die in ihrer Struktur deinem Original entsprich. Zumindest auch ein Zielblatt mit dazu.
Gru8 Werner
AW: Bitte Beispielmappe sowie eine Nachfrage
28.05.2017 06:52:58
Gisela
Hallo Werner,
Danke für den Hinweis auf einen vollen Bereich. In der Beispieltabelle habe ich vermerkt, dass dann keine Übernahme erfolgt, Hinweis durch MsgBox.
Ich hoffe, die Beispieltabelle mit dem Zielbereich ist erklärend.
Userbild
Vielen Dank und Grüße
Gisela
Anzeige
AW: Bitte Beispielmappe sowie eine Nachfrage
28.05.2017 09:07:38
Hajo_Zi
Hallo Gisela,
es fehlt der Link zu dem Programm um aus einem Bild eine Exceldatei zu machen mit VBA Code.
Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.

AW: Bitte Beispielmappe sowie eine Nachfrage
28.05.2017 09:53:39
Gisela
Hallo Hajo,
Danke für die info. Sorry, hatte heute morgen einige Probleme mit meinem Rechner.
https://www.herber.de/bbs/user/113835.xlsx
Ich hoffe, dass du mit diesem Muster etwas anfangen kannst.
Vielen Dank und Grüße
Gisela
Anzeige
AW: Bitte Beispielmappe sowie eine Nachfrage
28.05.2017 09:55:36
Hajo_Zi
Hallo Gisela,
Danke für den Hinweis auf einen vollen Bereich. In der Beispieltabelle habe ich vermerkt, dass dann keine Übernahme erfolgt, Hinweis durch MsgBox.
Eine XLSX Datei kann kein Makro enthalten.
Gruß Hajo
AW: Bitte Beispielmappe sowie eine Nachfrage
28.05.2017 10:29:10
Gisela
Hallo Hajo,
erstmal vielen Dank für deine Hilfe.
Wo finde ich deine Beispieltabelle? Vielleicht bin ich heute morgen noch nicht ganz wach.
Die Dateiendung XLSX war wohl mehr eine Verlegenheitslösung, da beim File-Upload immer die Meldung "falsches Dateiformat" kam.
Danke und Grüße
Gisela
Anzeige
AW: Beispielmappe xlsm
28.05.2017 12:30:09
Hajo_Zi
Hallo Gisela,
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 And UCase(Target) = "NEU" Then
With Worksheets("Zieltabelle")
Application.EnableEvents = False
Dim Loletzte As Long
Loletzte = IIf(IsEmpty(.Cells(Rows.Count, 2)), .Cells(Rows.Count, 2).End(xlUp).Row,  _
.Rows.Count) + 1
Range("b" & Target.Row & ":I" & Target.Row).Copy .Range("B" & Loletzte)
Range("b" & Target.Row & ":I" & Target.Row).Delete
Application.EnableEvents = True
End With
End If
End Sub
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt nur in dieser Tabelle.
Gruß Hajo
Anzeige
Msgbox ist ja schon da
28.05.2017 12:31:37
Hajo_Zi
die konnte ich nur nicht sehen.
Gruß Hajo
Super, herzlichen Dank für deine Hilfe,
28.05.2017 13:31:21
Gisela
Klappt wie gewünscht.
Grüße Gisela

307 Forumthreads zu ähnlichen Themen

Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Anzeige
Letzen wert in Zeile(nicht Spalte)
hary

Nabend alle miteinander
In einer bestimmten Zeile suche ich den letzten Eintrag. Bis zu diesem soll gefaerbt werden. Mit diesem Code faerbe ich den ganzen Bereich, es soll aber nur bis zum letzten Eintrag in der Zeile gefaerbt werden. Da von links nach rechts gefaerbt.
Case Is = Cells...
28.08.2008 21:25:00
Thread-ID: 1005592
5 Beiträge
wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
Anzeige
Zeile kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 Beiträge
Wenn Wert weniger, in anderer Zelle um d.Wert erh.
Josef

Guten Morgen!
Ich habe z.B. in der Zelle A1 den Wert 5 stehen. Wird dieser Wert z.B. um die Zahl 3 verringert, dann soll der vorhandene Wert in der Zelle B1 um die Zahl 3 erhöht werden. Wie würde hier bitte eine Formellösung dafür lauten?
Danke
Josef
09.09.2008 05:49:00
Thread-ID: 1008272
2 Beiträge
Berechnen von Werten in einer Spalte
Werten

Folgendes Problem:
In der Spalte A möchte ich wissen, wieviel unterschiedliche Werte es gibt.
Wer kann mir helfen.
Danke
Alex
05.10.2008 12:52:00
Thread-ID: 1014231
5 Beiträge
Werte löschen beim Eintrag in andere Spalte ?
Selma

Hallo Leute,
wie kann ich folgendes ab Zeile 5 für aktive Zeile über VBA erreichen:
1. Wird der Wert in aktive Zeile in Spalte H eingetragen, dann sollen die Werte in Zellen der Spalte D und E gelöscht werden.
2. Wird der Wert in aktive Zeile in Splate D oder E eingetragen, dann sol...
12.10.2008 17:05:00
Thread-ID: 1015877
5 Beiträge
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 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
1
8
4
7
7
2
1
4
4
2
2
3
4
2
2
1
2
5
5
2
33
3
5
1
3