also hier im Forum konnte mir schon prima weitergeholfen werden.
Ich habe jetzt ein Makro (siehe unten) welches für meine Zwecke fast perfekt ist. Nur eine Kleinigkeit müsste geändert werden...aber wie?
Es sollen nur die Zellen rüberkopiert werden, in denen ein Wert steht. Zellen ohne Wert (also leere Zellen) sollen nicht rüberkopiert werden.
Wie kann ich das erreichen?
Danke...Harti
Sub CommandButton1_Click()
'kopiert 2 Bereiche in ausgewählte Tabelle
Dim strOutFile As String
Dim rngInput1 As Range 'Input-Spalte 1
Dim rngInput2 As Range 'Input-Spalte 2
Dim rngOutput1 As Range 'Output-Spalte 1
Dim rngOutput2 As Range 'Output-Spalte 2
Dim wbkOutput As Workbook 'Output-File
Dim shtOutput As Worksheet 'Output-Tabelle
Dim strSheet As String 'Tabellen-Name
strOutFile = ThisWorkbook.Path & "\bundesliga_tipp.xls"
strSheet = InputBox("Tabellenblatt:") 'Tabellen-Namen abfrage
Set rngInput1 = [E11:E316] 'Input-Spalte 1 zuweisen
Set rngInput2 = [G11:G316] 'Input-Spalte 2 zuweisen
Set wbkOutput = Workbooks.Open(strOutFile) 'Output-File öffnen
On Error GoTo errhandler
Set shtOutput = wbkOutput.Worksheets(strSheet) 'Output-Tabelle zuweisen
On Error GoTo 0
Set rngOutput1 = shtOutput.[B11:B316] 'Output-Spalte 1 zuweisen
Set rngOutput2 = shtOutput.[D11:D316] 'Output-Spalte 2 zuweisen
rngInput1.Copy 'Spalte 1 kopieren
rngOutput1.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 'als Wert einfügen
rngOutput1.PasteSpecial Paste:=xlFormats
rngInput2.Copy 'Spalte 2 kopieren
rngOutput2.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 'als Wert einfügen
rngOutput2.PasteSpecial Paste:=xlFormats
Application.CutCopyMode = False 'Kopiermodus beenden
shtOutput.Activate
shtOutput.Range("A1").Select 'go home
errhandler:
End Sub