Portal | Forenübersicht | Neues Thema | Suchen | FAQ | Registrieren | Login
Forum > Excel & VBA > VBA.Beispiele > Spalten kopieren
Fragen zu den VBA-Beispielen aus dem Downloadbereich
In diesem Board befinden sich 110 Themen.
Die Beiträge bleiben immer erhalten.
Es wird moderiert von P@ulchen, RO_SCH.
Seite 1 Neues Thema letztes Thema nächstes Thema Dieses Board durchsuchen Diesen Thread zu meinen persönlichen Favoriten hinzufügen Abonnieren Ohne Zitat Antworten Druckt alle Antworten dieses Themas


 ist offline  Spalten kopieren Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
1.12.2016 - 15:43 Uhr
Posts



Hallo zusammen,
ich arbeite immer noch an den selben Problem aus Tabelle1 Spalte B150,G150,C150,D150,E150,I150, und H150 in Tabelle2 hier sind es feste Werte C3,F3,C5,C7,C9,A41,C46 zu kopieren, mit einem Makro was ich Aufgezeichnet habe funktioniert auch alles mein Problem ist in Tabelle1 gibt es Zeilen die fortlaufend gefüllt werden 150,151,152 und so weiter so das Ich möchte das mit einem Doppelklick die Aktive Zeile kopiert wird in Tabelle2. Ich hoffe ich habe mich einigermaßen gut ausgedrückt und hoffe auf etwas Hilfe.
Beste Grüße Reimund

 ist offline  : Spalten kopieren Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
2.12.2016 - 21:12 Uhr
Posts



Hi,

dann verwende das Worksheet_BeforeDoubleClick-Event, nimm deinen aufgezeichneten Code und ersetze '150' durch 'Target.Row'.
Am Schluss nicht Cancel = True vergessen, sonst wird die Zelle selektiert.

ungefähr so - musst du natürlich an deine Zellen anpassen
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row >= 150 Then
    With Worksheets("Tabelle2")
        .Range("C3") = Range("B & Target.Row")
        .Range("F3") = Range("G & Target.Row")
        .Range("C5") = Range("C & Target.Row")
        .Range("C7") = Range("D & Target.Row")
        .Range("C9") = Range("E & Target.Row")
        .Range("A41") = Range("I & Target.Row")
        .Range("C46") = Range("H & Target.Row")
    End With
    Cancel = True
End If
End Sub

Gruß Roland

 ist offline  : Spalten kopieren Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
3.12.2016 - 11:14 Uhr
Posts



Danke Roland,
für deine Hilfe ich bin leider zu Blöd das umzusetzen was Du geschrieben hast mit meinem Code einzufügen egal wo ich ihn einfüge überall kommt ein Fehler könntest Du bitte nochmal Schützenhilfe leisten,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row >= Target.Row Then



Range("B149").Select
Selection.Copy
Sheets("Gesperrt-Vordruck").Select
Range("C3").Select
ActiveSheet.Paste
Sheets("Übersicht").Select
Range("G149").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Gesperrt-Vordruck").Select
Range("F3:G3").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Übersicht").Select
Range("C149").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Gesperrt-Vordruck").Select
Range("C5:G5").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Übersicht").Select
Range("D149").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Gesperrt-Vordruck").Select
Range("C7:G7").Select
ActiveSheet.Paste
Sheets("Übersicht").Select
Range("E149").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Gesperrt-Vordruck").Select
Range("C9:G9").Select
ActiveSheet.Paste
Sheets("Übersicht").Select
Range("I149").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Gesperrt-Vordruck").Select
ActiveWindow.SmallScroll Down:=30
Range("A41:G44").Select
ActiveSheet.Paste
Sheets("Übersicht").Select
Range("H149").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Gesperrt-Vordruck").Select
Range("C46").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Übersicht").Select
Cancel = True


With Worksheets("Gesperrt-Vordruck")
.Range("C3") = Range("B & Target.Row")
.Range("F3") = Range("G & Target.Row")
.Range("C5") = Range("C & Target.Row")
.Range("C7") = Range("D & Target.Row")
.Range("C9") = Range("E & Target.Row")
.Range("A41") = Range("I & Target.Row")
.Range("C46") = Range("H & Target.Row")
End With
Cancel = True
End If
End Sub

wäre Nett wenn Du mein Problem lösen könntest, wie geschriebenPacke es einfach nicht

Gruß Reimund


 ist offline  : Spalten kopieren Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
3.12.2016 - 14:48 Uhr
Posts



Hi,

den Code in das klassenmodul der Tabelle ("Übersicht")
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim AW As Worksheet
 
Set AW = Worksheets("Übersicht")
 
With Sheets("Gesperrt-Vordruck")
    AW.Range("B" & Target.Row).Copy .Range("C3")
    AW.Range("G" & Target.Row).Copy .Range("F3")
    AW.Range("C" & Target.Row).Copy .Range("C5")
    AW.Range("D" & Target.Row).Copy .Range("C7")
    AW.Range("E" & Target.Row).Copy .Range("C9")
    AW.Range("I" & Target.Row).Copy .Range("A41")
    AW.Range("H" & Target.Row).Copy .Range("C46")
End Sub

Kommt das so hin ? Die verbundenen Zellen solltest du, wenn möglich auflösen.

Gruß Roland

 ist offline  : Spalten kopieren Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
4.12.2016 - 9:49 Uhr
Posts



Danke Roland,
für deine Geduld mit mir funz. Wunderbar der Code, nur mit den verbundenen Zeilen muß ich mir was einfallen lassen. Da sonst er mir immer ein Fehler im Code anzeigt. Hättest Du da noch eine Idee?

Vielen Dank Reimund

Seite 1 nach oben

Forenauswahl:





Numaek's Forum V4.1.0 © 2005 by numaek
Originaltemplate by numaek