Hallo zusammen. Ich komme mal wieder mit einem VBA Code der, was er machen soll, nicht erledigt, und bitte hierfür um Hilfe.
Ich möchte aus einer Userform heraus Änderungen aus der Tabelle4 mit unterschiedlicher Spalten in mehreren Tabellen kopieren.
Inhalte in Tabelle4 müssen erhalten bleiben. Dazu habe ich einen Versuch mit VBA-Code erstellt der zwar keinen Fehler produziert,
aber auch die Kopierfunktion nicht erfüllt. P.S. Habe mich um bestmögliche Lesbarkeit bemüht.
Gruß Josef
Ich möchte aus einer Userform heraus Änderungen aus der Tabelle4 mit unterschiedlicher Spalten in mehreren Tabellen kopieren.
Inhalte in Tabelle4 müssen erhalten bleiben. Dazu habe ich einen Versuch mit VBA-Code erstellt der zwar keinen Fehler produziert,
aber auch die Kopierfunktion nicht erfüllt. P.S. Habe mich um bestmögliche Lesbarkeit bemüht.
Gruß Josef
Visual Basic:
Private Sub CommandButton4_Click() ' Eingabemaske schließen
Dim intTabelle As Integer ' und gleichzeitig alle Tabellenblätter ausblenden
Dim sn As Integer, sh As Integer
For intTabelle = 1 To ActiveWorkbook.Worksheets.Count
If ActiveWorkbook.Worksheets(intTabelle).Name <> "Auswahl Klick" Then
ActiveWorkbook.Worksheets(intTabelle).Visible = False
End If
Next intTabelle
Call M_Tab_Teiln ' MACRO für Werte in die entsprechenden Tabellen übernehmen
Call M_Post
Call M_Problem
Call TabStat
Call M_snb(sn, sh)
Unload Me
With Worksheets("ArbTab") ' Das eben eingefügt
End With
End Sub
Sub M_Tab_Teiln()
M_snb Array(5, 4, 9, 12, 2, 15), "S_Tab_Teiln"
End Sub
Sub M_Post()
M_snb Array(3, 4, 5, 6, 7, 8, 15, 14), "S_Post"
End Sub
Sub M_Problem()
M_snb Array(2, 4, 5, 13, 15, 21, 14, 12), "S_Problem"
End Sub
Sub M_snb(sn, sh)
Dim j As Integer
With sh
' Set sh = Tabelle4
Set sh = Worksheets("ArbTab") ' Aus dieser Tabelle die Spalten kopieren
.UsedRange.ClearContents
For j = 0 To UBound(sn)
.UsedRange.Columns(sn(j)).Copy .Cells(1, j + 1)
Next
End With
End Sub