Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
504to508
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
504to508
504to508
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zelleninhalt durch doppelklick übernehmen

zelleninhalt durch doppelklick übernehmen
23.10.2004 12:23:10
Michael
Hallo Zusammen
ich möchte auf dem Tabellenblatt "Preisliste" durch doppelklick auf die Artikelnummer in Spalte A, diese Artikelnummer in das Tabellenblatt "offerte" übernehmen und zwar in zelle A15. wenn schon ein artikel in A15 drin steht sollte automatisch in A16 geschrieben werden usw. (A15-A30 sind für Artikelnummern vorgesehen.
ich hoffe das ist einigermassen verständlich geschrieben und da ich nicht besonders VBA bewandert bin wär ich froh um eine antwort für VBA-Dummies :-)
Vielen Dank im voraus
Michael

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zelleninhalt durch doppelklick übernehmen
Dan
Hallo Michael, hier ein Code, der man in den Class-Module des Sheets "Preisliste" kopieren sollte. Es wird durch den Doppleten Klick auf eine Zelle in der Spallte "A" gestartet (der Ereigniss BeforeDoubleClick). Falls der Ziel-Bereich (Offerte!a15:a30) schon voll ist, erscheinnt eine Nachricht. Hier noch die ganze Arbeitsmappe : https://www.herber.de/bbs/user/12548.xls
Gruss Dan, CZ.
Option Explicit
Private Const COL As Byte = 1 ' Spalte "A"
Private Const WSH As String = "offerte"
Private Const RNG As String = "a15:a30"

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo Err_Worksheet_BeforeDoubleClick
If (Target.Cells.Count = 1 And Target.Column = COL And Target.Text <> "") Then
Dim rngZiel As Range
Dim rngZelle As Range
Dim vntRetVal As Variant
vntRetVal = False
Set rngZiel = Worksheets(WSH).Range(RNG)
For Each rngZelle In rngZiel.Cells
If (rngZelle.Text = "") Then
rngZelle.Value = Target.Value
vntRetVal = True
Exit For
End If
Next rngZelle
If (vntRetVal = False) Then MsgBox "Bereich " & RNG & " ist schon voll.", vbExclamation, "Bereich voll"
End If
Exit Sub
Err_Worksheet_BeforeDoubleClick:
MsgBox Err.Description, vbCritical, "Error : " & Err.Number
End Sub

Anzeige
AW: zelleninhalt durch doppelklick übernehmen
23.10.2004 13:42:42
Rolf
Hallo Michael,
du kopierst folgenden Code in das
Klassenmodul von Tabellenblatt "Preisliste"

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim wert As Double
If Target.Column = 1 Then
wert = Target.Value
Sheets("offerte").Select
ActiveSheet.Range("a15").Select
Do
If Selection.Value = "" Then
Selection.Value = wert
Exit Do
Else
Selection.Offset(1, 0).Select
End If
If Selection.Address = "$A$31" Then
MsgBox "alles besetzt"
Exit Do
End If
Loop
End If
End Sub

Freundliche Grüße
Rolf Beißner
Vielen Dank euch beiden :-)
23.10.2004 13:52:29
Michael
Rolf, deine version werd ich mir auch noch ansehen, Dan's version hab ich bereits getestet und es passt perfekt :-)
jedenfalls dank ich euch beiden ganz herzlich für die Hilfe
wünsche noch ein schönes WE
Michael
Anzeige

301 Forumthreads zu ähnlichen Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
Doppelklick auf Excel-Datei funktioniert nicht
Markus

Hallo,
mein Excel spinnt ein wenig.
Klicke ich im Datei-Explorer auf eine Excel-Datei wird zwar Excel geöffnet, aber Excel reklamiert dann sogleich, dass die Datei nicht geöffnet werden kann.
Der gesamte DateiPfad der Excel-Datei inkl. des Dateinamenes wird in angezeigt (z.B. d:\da...
02.09.2008 19:37:00
Thread-ID: 1006922
4 Beiträge
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Anzeige
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
VBA: Bestimmte Zeichenfolge in Zelle finden
gega

Hallo ich bins nochmals,
ich finde einfach keine Möglichkeit zwei Teile aus dem String herauszulösen, da nur "Käufer: " und "[ Kontakt mit Käufer aufnehmen ]" fest am Anfang und Ende des Strings sind und der Käufername hier "leu_bw_cen" unterschiedlich lang ist und auch die EMail-Adr. zw. d...
23.01.2009 11:52:00
Thread-ID: 1042917
3 Beiträge
Automatischer Eintrag durch Doppelklick auf Zelle
Micha

Hallo liebe Spezialisten,
nachdem mir vorhin so Super in diesem Forum geholfen wurde, hier gleich die nächste Frage:
Ist es möglich, das in einem bestimmten Tabellenbereich mir durch einen Doppelklick auf eine Zelle automatisch ein "x" in diese Zelle eingegeben wird?
Würde mich über...
12.02.2009 14:30:00
Thread-ID: 1050071
6 Beiträge
Bestimmtes Zeichen in Zellen einfügen VBA
Thomas

Hallo guten Morgen liebe Helfer,
ich habe eine sehr große Tabelle mit vielen Angaben. Nun muss aber für einen Import dieser Daten in einem anderen Programm vor jedem Eintrag in meiner Excel-Tabelle in ganz bestimmten Spalten ein Zeichen eingefügt werden. Das Zeichen ist das ' (über dem #...
26.02.2009 11:05:37
Thread-ID: 1054273
5 Beiträge
VBA Progr. Schleife- Doppelklick in Zelle
Jeebee

Guten Morgen,
Habe in Excel folgendes Problem: Ich übernehme eine Tabelle aus SAP. Leider Sind die Zahlen dort nicht als Zahl definiert sondern als Text. Jede Zahl zB. 33,01- hat einen Bindestrich hinten dran. Dass ich den wegkriege konnte ich bereits mit "Makro aufzeichnen" lösen.
Dies...
07.03.2009 09:56:05
Thread-ID: 1057531
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
16
5
3
3
2
1
2
5
4
2
4
1
4
5
2
19
2
2
2
2
1
2
8
7
6