Makro um Formatierung zu ändern geschlossen

[fexs]

Excel2007

Hallo,
eine ganz einfache un kurze Frage.
Ich brauche ein Makro das ich einem Button zuweißen will. Wenn ich ihn anklicke sollte es einfach nur die Füllung aller Zellen in Spalte A auf "keine Füllung" stellen.
Weiß jemand wie man das machen könnte oder hat jemand den Code dafür??
Wäre echt sehr nett wenn ihn einer posten könnte.
Hab auch schon gegooglet aber nichtmal den VB-Name für "keine Füllung" gefunden
Bis dann
gru fexs

----------------------------------------------------------
EDIT:
un um nich nochmal en neues Thema wegen sowas aufmachen zu müssen xD :

Ich hab von ner andern Arbeit schon das hier:

Dim Dateiname1 As String

Dateiname1 = "C:/irgendein/dateipfad.txt"

Open Dateiname1 For Output As #1
For intRow = 6 To 300
Print #1, Cells(intRow, 2).Value
Next intRow

Close

Kann mir einer mal schnell sagen was ich da verändern muss wenn ich will dass zB nur Spalte A und daneben Spalte C gemacht wird?

Mit einer .txt isses vllt schwerer als mit nem Excel-Doc.. also es kann auch in Excel gemacht werden des is auch net schlimm.

Soviele Fragen un so wenig Ahnung

Gruß fexs

 

[totsch]

Hallo fexs,

du kannst doch diesen Vorgang einfach mit dem Makrorekorder aufzeichnen und entsprechend eine Tastenkombination zu weisen.
Gruss Totsch

un um nich nochmal en neues Thema wegen sowas aufmachen zu müssen

wieso neues Thema? brauchst doch deinen ersten Beitrag nur zu ändern!

 

[Tattooed1980]

Hy

Zu 1.

Sub Makro1()
'
' Makro1 Makro
' Makro am 18.01.2010 von XXX aufgezeichnet
'

'
Columns("A:A").Select
Selection.Interior.ColorIndex = xlNone
End Sub

wie von totsch beschrieben, mit dem Makro-Recorder aufgezeichnet.

Zu 2.

Dein Code

Print #1, Cells(intRow, 2).Value

schreibt den Zelleninhalt der Spalte 2 ("B") in die Datei.

Dieser Code:

Print #1, Cells(intRow, 1).Value & " " & Cells(intRow, 3).Value

schreibt den Zelleninhalt der Spalte 1 ("A"), ein Leerzeichen (" ") und den Zelleninhalt der Spalte 3("C") in die Datei.

MfG Tattooed1980

 

[fexs]

Danke an beide besonders Tatooed..
ich kenn mich da nich so aus un ihr habt mir ja schonmal geholfen
Ich werds gleich mal ausprobiern un sagen wies gelaufen is..
bis dann
Gruß fexs
---
edit
hat alles perfekt geklappt danke