Thema Datum  Von Nutzer Rating
Antwort
22.09.2009 09:35:38 P
NotSolved
23.09.2009 14:10:27 Holger
NotSolved
Rot Aw:Aw:Zeile in neues Arbeitsblatt kopieren
 23.09.2009 14:12:42 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
23.09.2009 14:12:42		 Views:
790		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Zeile in neues Arbeitsblatt kopieren
Sheets("blabla").Activate musst du natür streichen. Das war nur zu Testzwecken von mir eingeführt worden.

Holger schrieb am 23.09.2009 14:10:27:

Hallo P,
ich gehe davon aus, dass du den Spalten wirklich Namen zuordnet hast, die dann in der Names-Auflistung stehen und deren Adressen vollständige Spalten darstellen. Dann sollte folgendes Makro dein Problem lösen, wobei ein Tabellenblatt ohne Nachfrage überschrieben wird, wenn ein Spaltenname mit demselbem Namen kopiert werden soll.
Sub Kopieren_nach_Namen()
Sheets("blabla").Activate
Set aWs = ActiveSheet
On Error GoTo fehler
For Each n In ActiveWorkbook.Names
If n.RefersToRange.Worksheet.Name = aWs.Name Then
For Each w In Sheets
If w.Name = n.Name Then
Application.DisplayAlerts = False
w.Delete
Application.DisplayAlerts = True
Exit For
End If
Next
a = n.RefersToRange.Address
b = InStr(a, ":")
If b > 0 And InStr("0123456789", Right(a, 1)) = 0 And _
Left(a, b - 1) = Mid(a, b + 1) Then
z = Mid(Left(a, b - 1), 2)
aWs.Range("A:A").Copy
Set nWs = Worksheets.Add(after:=Sheets(Sheets.Count))
nWs.Name = n.Name
nWs.Range("A:A").PasteSpecial
End If
End If
weiter:
Next
On Error GoTo 0
Exit Sub
fehler:
Resume weiter
End Sub
Gruß
Holger


P schrieb am 22.09.2009 09:35:38:

Hi,
ich habe folgendes Problem:
Ich habe eine Tabelle mit 14 Spalten. Ich möchte jetzt per
VBA jeweils eine Spalte kopieren und diese in einem neuen, eigenem Abreitsblatt einfügen. Gleichzeitig soll der Name der Spalte als name das Tabellenblatts übernommen werden.
Geht das????

Vielen Dank für eure Hilfe im Voraus

Grüße
Philipp

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.09.2009 09:35:38 P
NotSolved
23.09.2009 14:10:27 Holger
NotSolved
Rot Aw:Aw:Zeile in neues Arbeitsblatt kopieren
 23.09.2009 14:12:42 Holger
NotSolved