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

Zellwert per Mausklick übertragen

Forumthread: Zellwert per Mausklick übertragen

Zellwert per Mausklick übertragen
Fritz_W
Hallo VBA-Experten,
bitte um Hilfe bei folgendem Vorhaben:
Ich möchte, dass nach Mausklick auf eine Zelle im Zellbereich H3:K6 der Zellinhalt (=Wert, ohne Formatierung) in die erste freie Zelle im Zellbereich H10:H25 eingefügt wird.
Im Voraus besten Dank für eure Unterstützung.
mfg
Fritz
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Zellwert in anderen Bereich kopieren
31.01.2012 18:35:34
NoNet
Hallo Fritz,
kopiere folgenden VBA-Code in das Klassenmodul des Tabellenblattes (also: Rechtsklick auf den Namen des Blattes im Blattregister unten, dann "Code anzeigen..." auswählen) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [H3:K6]) Is Nothing Then
With Range("H10:H25")
If Application.CountBlank(Range(.Address)) > 0 Then
.SpecialCells(xlCellTypeBlanks)(1, 1).Value = Target.Value
Else
MsgBox "Keine weiteren leeren Zellen in Bereich " & .Address & " gefunden !"
End If
End With
End If
End Sub
Gruß, NoNet
Anzeige
AW: Zellwert in anderen Bereich kopieren
31.01.2012 18:45:18
Fritz_W
Hallo NoNet,
vielen Dank für Deine Hilfe.
Leider habe ich mich missverständlich ausgedrückt.
Die angeklickten Zellen sollten kopiert und als Wert (unformatiert) in die Zellen des Zellbereichs H10:H25 eingefügt werden, die Zellinhalte (=Formeln) in den Zellen des Zellbereichs H3:K6 sollten somit 'erhalten' bleiben.
Viele Grüße
Fritz
Anzeige
Genau DAS macht das Makro ! - Fehler ?
31.01.2012 18:55:39
NoNet
Hallo Fritz,
wo ist denn das Problem ? 
Die angeklickten Zellen sollten kopiert und als Wert (unformatiert) in die Zellen des Zellbereichs H10:H25 eingefügt werden

Genau DAS macht das Makro : Der WERT der (einzelnen) angeklickten Zelle wird in die nächste freie Zelle des Bereiches H10:H25 übertragen (ohne Formatierung !). 
die Zellinhalte (=Formeln) in den Zellen des Zellbereichs H3:K6 sollten somit 'erhalten' bleiben.

OK, akzeptiert ! - Das o.g. Makro ändert hier auch wunschgemäss NICHTS !
Was "passt" denn nun nicht an diesem Makro - wo ist deiner Meinung nach der Fehler ?
Gruß, NoNet
Anzeige
NoNet, du hast natürlich Recht!
31.01.2012 19:23:41
Fritz_W
Hallo NoNet,
ich bitte vielmals um Entschuldigung, war mein Fehler.
Das Makro macht tatsächlich alles so, wie ich das wollte. Perfekt!
Mittels bedingter Formatierung des Zellbereichs H3:K6 werden die Zelleinträge in diesem Bereich in weißer Schriftfarbe dargestellt, wenn der Wert der Zelle im Zellbereich H10:H25 erscheint, somit hab ich übersehen, dass tatsächlich kopiert und nicht verschoben wurde.
Nochmals vielen Dank!
Gruß
Anzeige

Forumthreads zu verwandten Themen

in Ergebnis einer Formel Text mit ausgeben
Walter

Nochmals Hallo,
leider die Lösung vergessen, wie man in einer Berechnungsformel, nen fest fixierten Text ausgeben kann.
Beispielergebnis: 12 Bananen (12 ist errechnet, Bananen ist der feste Text.
War, glaube ich, ganz einfach :-(((
Danke + Gruß
Walter
24.10.2008 01:15:29
Thread-ID: 1018831
6 Beiträge
Funktion Säubern ins Makro einbinden
Steven

Hallo Leute,
wie kann ich per Makro meine Artikelnummern in Spalte A (mit Überschrift) von ungewollten Importüberbleibseln (Oracle) säubern, so dass am Ende reine Nummern in Spalte A über bleiben.
(Ich weiss nicht ob es dabei wichtig ist, dass die Spalte vorher sortiert wurde. Damit hab...
22.02.2009 13:07:47
Thread-ID: 1052801
4 Beiträge
Formel komplett aus anderem Blatt übernehmen
martin

Hallo.
In verschiedenen Arbeitsbättern befinden sich exakt die selben Rechnungen, jeweils mit unterschiedlichen Werten.
In einem Master-Blatt möchte ich gerne die Zeilen und Spaltenbeschriftungen, sowie die zu verwenden formeln definieren.
Könnt Ihr mir Tipps geben, wo ich dazu was...
18.06.2009 16:56:18
Thread-ID: 1082618
1 Beitrag
Per VBA : Erreichbarkeit von Hyperlinks überprüfen
Hyperlinks

Hallo Leute,
ich habe eine Excel-Tabelle mit zahlreichen Hyperlinks ins WWW (diverse unterschiedliche URLs), z.B. :
http://www.irgend-eine-seite.com/forum/Beitrag4711.php
http://was-soll.das/?
http://www.meinebank.ru/konto/nepper/schlepper/Bauernfaenger.asp
http://www.abc...
25.06.2009 14:50:10
Thread-ID: 1084301
7 Beiträge
Anzeige
Makroauführung über Menü verhindern
Heiko

hallo alle,
ich lasse über subs bereiche meines tabellenbattes sperren/ bzw. entsperren. das funktioniert auch ganz gut, nur besteht für den anwender über extras - makro ausführen noch die möglichkeit das entsperr-sub ausführen zu lassen.
wie kann ich das verhindern?
heiko
29.06.2009 12:01:13
Thread-ID: 1085027
2 Beiträge
VBA-Makro zum Datenübertrag zwischen Excel-Sheets
mctapt

Liebe VBA-Freunde,
ich muss auf der Arbeit ein Marko programmieren, mit dem sich Inhalte eines Sheets automatische beim öffnen der Datei in ein anderes übertragen lassen.
Die Idee íst dahinter:
Mein Chef will als Kontrolle der Berater sehen, mit wem sie so innerhalb der Woche te...
29.06.2009 23:19:08
Thread-ID: 1085193
6 Beiträge
Unterscheidung Drucken über Menü und Sofortdruck
Rolli_69

Hallo Forum,
ich hoffe einer von Euch kann mir helfen.
Ich habe in VBA den Druckenbefehl abgefangen, um farblich hinterlegte Eingabefelder vor dem Druck
wieder farblos zu machen und anschliessend wieder farblich zu hinterlegen.
Das funzt auch, nur möchte ich jetzt noch dem User...
01.07.2009 19:53:42
Thread-ID: 1085798
3 Beiträge
CheckBox in liste übertragen
Werner

Hallo zusammen,
ich möchte Daten von einer UserForm in ein Tabellenblatt untereinander schreiben, das klapt auch.
Bei der CheckBox1 habe ich ein problem. Einer bestimmten Zelle kann ich es zuordnen, es soll aber mit in die liste geschrieben werden, wie muss der Code aussehen?
Dim ZE...
06.07.2009 13:46:47
Thread-ID: 1086568
2 Beiträge
Verknüpfungen über DropDown ändern
Tanja

Hallöchen zusammen,
ich bin's nochmal :)
Ich habe nun ein erneutes Problem:
Ich habe Excel-Dateien, die ich in mein Excel-Sheet verknüpft habe (über Index und Vergleich).
Nun möchte ich diesen Dateien gerne ein bestimmtes Datum zuordnen und (habe mir über AutoFilter ein DropDown...
07.07.2009 18:24:18
Thread-ID: 1086979
6 Beiträge
Eingebettetes Word Objekt über Excel ansprechen
Tobias

Hallo zusammen,
ich habe eine Frage. Ich habe in einem Excel Sheet ein Word Objekt eingebettet (also über Insert -> Object -> Word 2003 Dokument)
Nun habe ich da einen Text eingefügt. Jetzt möchste ich allerdings eine bestimmte Stelle mit der Replace Funktion überschreiben.
Ö...
07.07.2009 19:22:31
Thread-ID: 1086986
1 Beitrag
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.05.2026 19:23:24
VBA - Blattschutz lässt sich mit Code nicht ausschalten
17.05.2026 13:47:03
Laufende Uhrzeit in einer Zelle
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum