Thema Datum  Von Nutzer Rating
Antwort
25.03.2008 23:49:57 Dominik
NotSolved
Blau Aw:Zeile einfügen
 26.03.2008 14:03:03 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
26.03.2008 14:03:03		 Views:
1054		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Zeile einfügen
Hallo Dominik,
da alle Werte in Spalte A stehen, kann sich die Verbreiterung nur auf die gesamte spalte A beziehen. Folgeder Code müsste dann laufen:

Dim i
w = Columns(1).ColumnWidth
i = 1
Do Until i > Range(Cells(Rows.Count, 1), Cells(Rows.Count, 1)).End(xlUp).Row
b = Cells(i, 1)
If Cells(i, 1) = 1 And Cells(i + 1, 1) = 1 Then
If Cells(i + 2, 1) = 1 Then
i = i + 3
Else
Rows(CStr(i + 2) + ":" + CStr(i + 3)).Insert Shift:=xlDown
Columns(1).ColumnWidth = Columns(1).ColumnWidth + 2 'oder deine gewünschte Verbreiterung
i = i + 3
End If
End If
i = i + 1
Loop

Gruß
Holger

Dominik schrieb am 25.03.2008 23:49:57:

Hallo,

hab ein mega problem, wie kann ich in excel durch vba programmieren, dass zeilen eingefügt werden und gleichzeitig die spalten breite vergrößert wird

hier die spalte A um die es geht:

EUR
EUR
EUR
1
EUR
EUR
EUR
EUR
EUR
1
1
JPY
1
1
USD
USD
USD
USD
1
1
1

ich will hier immer, dass nach zwei einsen zwei weiße leerzeilen entstehen und die spalte mit der zweiten eins ein wenig breiter wird. nach einer eins und drei einsen soll nichts passieren!

wäre cool, wenn ihr mir helfen könntet, danke!!

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
25.03.2008 23:49:57 Dominik
NotSolved
Blau Aw:Zeile einfügen
 26.03.2008 14:03:03 Holger
NotSolved