Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1280to1284
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
Aus markierten Bereich Zellen zu einzelnen...
15.10.2012 19:17:16
Matze,Matthias
Hallo Zusammen,
benötige VBA hilfe.
Es soll Aus Tabelle"Quelle" ein Bereich markiert werden, woraus dann die Zellen in das Blatt "Ziel" an vorgegebene Zellen per Value übermittelt werden.
Vor dem markieren müsste eine Meldung kommen die zur Auswahl des Bereiches auffordert. Die Auswahl betrifft immer nur eine Zeile bis zur letzten Spalte.
Eine kleine Musterdatei lege ich hier bei:
https://www.herber.de/bbs/user/82136.xlsm
Vorab einen Dank an alle Helfer
Gruß Matze

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

Betreff
Datum
Anwender
Anzeige
AW: Aus markierten Bereich Zellen zu einzelnen...
15.10.2012 19:48:02
{Boris}
Hi Matze,
ohne die allerletzte Wasserdicht-Prüfung - bezogen auf Deine Beispielmappe:
Option Explicit
Sub til()
Dim rngSource As Range
On Error Resume Next
Set rngSource = Application.InputBox("Bereich markieren", "Los geht`s...", Type:=8)
On Error GoTo 0
If Not rngSource Is Nothing Then
If rngSource.Rows.Count = 1 Then
With Tabelle2
.Range("B3") = Cells(rngSource.Row, 1)
.Range("E5") = Cells(rngSource.Row, 2)
.Range("C7") = Cells(rngSource.Row, 3)
.Range("F8") = Cells(rngSource.Row, 4)
.Range("F1") = Cells(rngSource.Row, 5)
End With
Else
MsgBox "Bitte nur 1 Zeile markieren", vbInformation, "Kleiner Hinweis..."
End If
End If
End Sub
VG, Boris

Anzeige
Besten Dank Boris,...
15.10.2012 19:49:57
Matze,Matthias
sollte noch was fehlen meld ich mich doch glatt wieder,
cu und schönen Abend
Gruß Matze

AW: Aus markierten Bereich Zellen zu einzelnen...
15.10.2012 20:01:35
Gerd
Hallo Matze,
was dir fehlt ist:
Application.Inputbox("Meldung","Titel",Type:=8)
Gruß Gerd

Hi Gerd L.,...
15.10.2012 20:41:59
Matze,Matthias
Boris hatte das schon eingepflegt haste eventuell überlesen?
Set rngSource = Application.InputBox("Bereich markieren", "Los geht`s...", Type:=8)
Danke für den Tipp,
Matze

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige