Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1536to1540
1536to1540
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

kopieren von Tb zu Tb mit klick in Zelle

Forumthread: kopieren von Tb zu Tb mit klick in Zelle

kopieren von Tb zu Tb mit klick in Zelle
03.02.2017 20:42:23
Tb
Hallo Forum
Stricke mir gerade eine Busticketbestellung zusammen, die auch (Dank Eurer Hilfe)
fast fertig ist. Jetzt hat sich allerdings noch ein Problem ergeben. Zu den normalen Tarifgebieten, das mache ich mit (SVerweis) müssen jetzt noch Unterwaben ausgewählt werden. Da für weitere Auswahlfelder im Formular kein Platz mehr ist, möchte ich gerne das aus der Tabelle Unterwaben, in die Zelle geklickt werden kann, oder daneben, und der Wert aus Wabe in das erste Feld von Tarifgebiet A1 (Zusatzwaben) falls dort schon was drin steht in das zweite Zusatzfeld der Tabelle Bestellung kopiert wird. Das gleiche für das Tarifgebiet A2. Ich hoffe das war jetzt nicht zu kompliziert erklärt, ich lade mal einen kleinen Nachbau hoch. Ich hoffe das dies machbar ist und sage schon mal Danke für Eure Hilfe.
Gruß, Guesa
https://www.herber.de/bbs/user/111167.xlsm
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: kopieren von Tb zu Tb mit klick in Zelle
04.02.2017 11:03:48
Tb
Hallo Guesa,
ich hab es etwas anders gelöst.
https://www.herber.de/bbs/user/111175.xlsm
Per Linke Maustaste-Doppelklich in eine Zelle für Eingabe von Zusatzwaben wird die Auswahl gestartet.
Es wird in das Blatt "Unterwaben" gewechselt. Hier kann dann per Rechte-Maustatste-Klick in die Zelle mit der Wabe diese ausgewählt und in das Blatt Bestellung übertragen werden.
LG
Franz
Anzeige
AW: kopieren von Tb zu Tb mit klick in Zelle
04.02.2017 18:46:02
Tb
Hallo Franz
Das ist einfach nur genial, mit sowas komplexes hab ich nicht gerechnet.
Recht herzlichen Dank für Deine Mühe.
Das nächste Problem werde dann ich wohl sein. Deine Programierung ist für mich so komplex das ich Bedenken habe das ich diesen Code in meine Datei einarbeiten kann. Die Datei liegt auf meinem Arbeitsrechner und dort kann ich nichts hinschicken da der Code als Virus erkannt wird. Daher bin ich gezwungen das ganze in Word als Text einzufügen und anschließend dann in die Excel-Datei einzuarbeiten. Eine Doppelclickfunktion habe ich bereits eingebaut; Frage: kann ich Deinen Code einfach unter den vorhandenen Code rein kopieren? bzw. was muss ich dabei beachten?
Den Code kann ich leider nicht hochladen, liegt auf Arbeitsrechner. Wäre Dir Dankbar wenn du mir dazu noch den ein oder anderen Tip geben kannst.
Gruß, Guesa
Anzeige
AW: kopieren von Tb zu Tb mit klick in Zelle
05.02.2017 01:10:03
Tb
Hallo Guesa,
Das ist einfach nur genial, mit sowas komplexes hab ich nicht gerechnet.

Die komplexität kommt
1. Durch die Prüfungen um sicherzustellen, dass die angeklickte Zelle eine Eingabezelle für eine Zusatzwabe ist.
2. Durch den eingebauten Komfort, dass im Blatt "Unterwaben" zu den Zeilen mit dem Tarifgebiet gescrollt wird.
Ob dein vorhandenens Worksheet_BeforeDoubleClick-Makro ohne Probleme mit meinem zusammengefasst werden kann, kann ich so nicht sagen.
Baue die Anweisungen meines Makros mal vor deinen vorhandenen ein.
Dann sollte es eigentlich funktionieren.
Für den Transport von Makros zwischen Computern sind übrigens einfache Text-Programme wie Notepad am besten geeignet. Es muss nicht unbedingt Word sein.
LG
Franz
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Zeile As Long, Spalte As Long, ZeileU As Long
Dim bolAuswahl As Boolean
Dim strTarifGebiet As String
Dim objWSH As Object, intMSG As Integer
Zeile = Target.Row
bolAuswahl = True
If Left(Trim(Cells(Zeile, 1).Text), 11) = "Zusatzwaben" Then
Select Case Target.Column
Case 2, 5 'Spalte B oder E
Spalte = Target.Column
If Not IsEmpty(Target.Range("A1")) Then
If MsgBox("In der aktiven Zelle ist bereits eine Unterwabe eingetragen." _
& vbLf & "Auswahl ändern?", _
vbYesNo, "Auswahl Unterwabe " & Cells(Zeile - 4, 2).Text) = vbNo Then
bolAuswahl = False
End If
End If
If bolAuswahl = True Then
'Tarifgebiet ermitteln
strTarifGebiet = Trim(Cells(Zeile - 3, 2).Text)
strTarifGebiet = Left(strTarifGebiet, InStr(strTarifGebiet, " ") - 1)
With ThisWorkbook.Worksheets("Unterwaben")
.Select
'Zeile mit Tarifgebiet suchen
For ZeileU = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(ZeileU, 1).Value = strTarifGebiet Then
ActiveWindow.ScrollRow = ZeileU
.Cells(ZeileU + 1, 3).Select
End If
Next
End With
'Meldung für ca. 1 Sekunde anzeigen
Set objWSH = CreateObject("WScript.Shell")
intMSG = objWSH.Popup("Bitte per Rechte-Maustasten-Klick gewünschte " _
& "Wabe auswählen" & vbLf _
& "(Meldung wird nach ca. 1 Sekunde wieder ausgeblendet)", _
1, "Auswahl Unterwabe " & Cells(Zeile - 4, 2).Text)
Set objWSH = Nothing
End If
End Select
End If
'ab hier dann dein Code aus Worksheet_BeforeDoubleClick-Makro
End Sub

Anzeige
AW: kopieren von Tb zu Tb mit klick in Zelle
05.02.2017 10:44:24
Tb
Hi Franz
Danke für Deine Rückmeldung, werde das ganze am Dienstag mal angehen.
Werde auf jeden Fall Bescheid geben ob es funktioniert hat.
Gruß, Guesa
AW: kopieren von Tb zu Tb mit klick in Zelle
08.02.2017 19:26:02
Tb
Hallo Franz
Kurze Rückmeldung, habe etwas länger gebraucht um das ganze in der Originaldatei anzupassen, aber es läuft wunderbar. Nochmals Danke
Gruß, Guesa
Anzeige

Forumthreads zu verwandten Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Zeilen Kopieren mit Formeln u. Formaten
Lemmi

Hallo zusammen,
ich möchte einen Block (5Zeilen) am Ende einer Tabelle einfügen!
Diese Zeilen sollen mit ihren Formaten unf Formel Kopiert und am Ende der Leiste eingefügt werden!
Die Formeln sind in den Roten Zellen.
Die Zellen sonst sind bis auf Spalte A und B ohne Inhalt!
11.08.2008 14:11:35
Thread-ID: 1000856
5 Beiträge
VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
Email per Hyperlink aus Zelle mit Formel
Frank

Hallo und schönen guten Morgen zusammen,
neues kleines Problem!
Ich möchte mit Hilfe eines Hyperlink per klick eine Email öffnen!
Soweit so gut und kein Problem!
Jetzt steht die Email Adresse aber nicht wirklich in der Zelle sondern diese hole ich mir per
Sverweises aus ein...
21.08.2008 09:22:45
Thread-ID: 1003367
3 Beiträge
Anzeige
Inhalt einer Zelle im Windows Infobereich anzeigen
Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...
27.08.2008 17:50:23
Thread-ID: 1005163
3 Beiträge
Anzeige
Spalten mit Formeln mit 1 multiplizieren
Susanne99

Hallo, kriege hier per Datenbankverlinkung teilweise Zahlen eingespielt, die Excel nicht als Zahl, sondern als Text identifiziert. Dem kann ich abhelfen, indem ich den Zellinhalt jeweils mit 1 multipliziere. Wie kann ich die
"*1" in die Formeln in ganzen Spaltenreihen einfügen, ohne jeden...
31.08.2008 10:34:22
Thread-ID: 1006147
8 Beiträge
Anzeige
kopieren in eine zelle aus einer erstellten liste
Merle


Ich habe ein Promblem. Und zwar habe ich ein Formular erstellt indem es eine Liste gibt. Ich möchte nun den jeweils ausgesuchten Lieferanten in eine andere Zelle kopieren. Dies wäre kein Problem, wenn es immer die gleich Zelle wäre aber die Zelle unter der A16 Zelle ändert sich ja nach aus...
05.09.2008 13:01:59
Thread-ID: 1007653
4 Beiträge
1:1-Kopieren ohne dass Formeln "angepasst" werden
Wolfango

Hallo Experten!
Eine Spalte enthält lauter Formeln (alles relative Bezüge). Wenn ich diese komplette Spalte (markiert über Klick auf Spaltenkopf) in eine neue, unbenutzte Spalte kopiere werden (aufgrund der relativen Bezüge) ja stets alle Formeln automatisch angepasst (egal ob über das Menü...
17.09.2008 15:45:18
Thread-ID: 1010435
3 Beiträge
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Inhalt einer Tabelle in 2. Tabelle kopieren
Thomas

Hallo Excel Gemeinde,
Den Inhalt einer Tabelle, möchte ich in eine zweite Tabelle in der gleichen Arbeitsmappe kopieren, das funktioniert schon mal.
Die zu kopierenden Daten sollen aber am Ende der bereits vorhandenen Daten angefügt werden, bisher überschreibt es mir diese aber ;-(
...
24.09.2008 22:19:00
Thread-ID: 1012186
3 Beiträge
Anzeige
Zeilen mit Makro aus Mustertabelle kopieren
obelix-xxl

Hallo,
ich wende mich an dieses Forum mit der Bitte eine Makrolösung aufzuzeigen.
Udo hat mir gestern eine Lösung zum Kopieren von Zeilen hier ins Forum gestellt. Diese ist auch so genau richtig.
Nachdem ich diese nun einsetzen kann, benötige ich eine weiteres Kopiermakro.
In me...
26.09.2008 16:29:07
Thread-ID: 1012698
10 Beiträge
VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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