Zellenbereich kopieren und Zeichen ergänzen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Zellenbereich kopieren und Zeichen ergänzen
von: Alex
Geschrieben am: 18.05.2015 22:52:51

Hallo,
ich bin auf der Suche nach einem Makro bei dem ich einen Zellenbereich z.B. "A9:H9" oder auch "A9:H21" usw. (wird mit LastRow und LastCol geregelt) in ein anderes Tabellenblatt kopieren kann und dabei vor dem Inhalt immer "Tabellenblattnummer_" ergänze.
Also vorher: "Zelleninhalt" nachher: "Tabellenblattnumer_Zelleninhalt" in einem anderen Tabellenblatt.
Grüße
Alex

Bild

Betrifft: AW: Zellenbereich kopieren und Zeichen ergänzen
von: Uwe Küstner
Geschrieben am: 18.05.2015 23:10:17
Hallo Alex,
z.B.:

Sub BereichKopieren()
  Dim oWsQ As Worksheet, oWsZ As Worksheet
  Dim varC As Variant, i As Long, j As Long, strI As String
  Set oWsQ = ActiveSheet
  Set oWsZ = Worksheets("Tabelle3")
  strI = oWsQ.Index & "_"
  varC = oWsQ.Range("A9:H9").Value
  For i = 1 To UBound(varC, 1)
    For j = 1 To UBound(varC, 2)
      varC(i, j) = strI & varC(i, j)
    Next j
  Next i
  oWsZ.Range("A35").Resize(i - 1, j - 1).Value = varC
End Sub
Gruß Uwe

Bild

Betrifft: AW: Zellenbereich kopieren und Zeichen ergänzen
von: Alex
Geschrieben am: 19.05.2015 17:46:30
Danke Uwe,
das hat geklappt.
Ist es auch möglich mit dem Ansatz den kopierten Bereich zu kopieren, ergänzen und zu transponieren?
Hab es mit vertauschen von i und j nicht ganz geschafft.
Gruß
Alex

Bild

Betrifft: AW: Zellenbereich kopieren und Zeichen ergänzen
von: Alex
Geschrieben am: 19.05.2015 19:07:26
Hat sich erledigt mit: varD = Application.WorksheetFunction.Transpose(varC)

Bild

Betrifft: AW: Zellenbereich kopieren und Zeichen ergänzen
von: Alex
Geschrieben am: 20.05.2015 16:58:32
Nun habe ich doch noch eine Frage.
Ich möchte nun die Zeichen wieder ab dem Zeichen "_" abschneiden und nur alles nach dem "_" kopieren.
Wie ist das mit einem Makro möglich?
Also vorher: "Zahl_Text"
und Nachher: "Text"

Bild

Betrifft: AW: Zellenbereich kopieren und Zeichen ergänzen
von: Uwe Küstner
Geschrieben am: 20.05.2015 17:32:07
Hallo Alex,

Sub BereichKopieren()
  Dim oWsQ As Worksheet, oWsZ As Worksheet
  Dim varC As Variant, i As Long, j As Long, strI As String
  Set oWsQ = ActiveSheet
  Set oWsZ = Worksheets("Tabelle3")
  strI = oWsQ.Index & "_"
  varC = oWsQ.Range("A9:H9").Value
  For i = 1 To UBound(varC, 1)
    For j = 1 To UBound(varC, 2)
      varC(i, j) = strI & varC(i, j)
    Next j
  Next i
  oWsZ.Range("A35").Resize(i - 1, j - 1).Value = varC
  
  Application.Goto oWsZ.Range("A35"), True
  MsgBox "Übertrag mit Index fertig."
  
  For i = 1 To UBound(varC, 1)
    For j = 1 To UBound(varC, 2)
      varC(i, j) = Mid(varC(i, j), InStr(1, varC(i, j), "_") + 1)
    Next j
  Next i
  oWsZ.Range("A35").Resize(UBound(varC, 1), UBound(varC, 2)).Value = varC
  
  MsgBox "Index wieder weg"
End Sub
Gruß Uwe

Bild

Betrifft: AW: Zellenbereich kopieren und Zeichen ergänzen
von: Alex
Geschrieben am: 20.05.2015 23:23:02
Danke Uwe!
Klappt Super!

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zellenbereich kopieren und Zeichen ergänzen"