Makro automatisch ausführen bei Zellenänderung VBA

Hi,

ich habe ein Makro, dass mir automatisch die Zeilenhöhe mit Zeilenumbruch anpasst, wenn der Text zu lang ist (es wirkt auf das ganze Tabellenblatt aber mir geht es hauptsächlich um die verbundenen Zellen "D31:M31"). Dies passt auch soweit wenn ich das Makro nach Eingabe des geänderten Textes ausführe.

Nun benötige ich noch, dass das Makro automatisch ausgeführt wird, sobald sich der Text in der Zelle ändert. "Nehmen wir an da steht "hallo" und ich schreibe nun "hallo hans" hinein (natürlich viel länger, damit der Umbruch stattfindet).

Leider funktioniert es nicht mittels VBA, wenn ich den Text ändere.. Weiß jemand rat was ich falsch mache?

Danke für jeden Hinweis !!!

VBA in Tabelle1:

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("$D$31:$M$31")) Is Nothing Then Zellenanpassen End Sub

Und hier das Makro:

Sub Zellenanpassen() Dim CurrentRowHeight As Single, MergedCellRgWidth As Single Dim CurrCell As Range Dim ActiveCellWidth As Single, PossNewRowHeight As Single If ActiveCell.MergeCells Then With ActiveCell.MergeArea If .Rows.Count = 1 And .WrapText = True Then Application.ScreenUpdating = False CurrentRowHeight = .RowHeight ActiveCellWidth = ActiveCell.ColumnWidth For Each CurrCell In Selection MergedCellRgWidth = CurrCell.ColumnWidth + MergedCellRgWidth Next .MergeCells = False .Cells(1).ColumnWidth = MergedCellRgWidth .EntireRow.AutoFit PossNewRowHeight = .RowHeight .Cells(1).ColumnWidth = ActiveCellWidth .MergeCells = True .RowHeight = IIf(CurrentRowHeight > PossNewRowHeight, _ CurrentRowHeight, PossNewRowHeight) End If End With End If End Sub

VG fireless91

P.S.: Meine VBA Kenntnisse sind eher mau.. von daher nicht böse sein face-wink

...zum Beitrag

Hi, natürlich und sorry für das schlechte Format.. Hier das Makro:

Sub Zellenanpassen()
Dim CurrentRowHeight As Single, MergedCellRgWidth As Single
Dim CurrCell As Range
Dim ActiveCellWidth As Single, PossNewRowHeight As Single
If ActiveCell.MergeCells Then
With ActiveCell.MergeArea
If .Rows.Count = 1 And .WrapText = True Then
Application.ScreenUpdating = False
CurrentRowHeight = .RowHeight
ActiveCellWidth = ActiveCell.ColumnWidth
For Each CurrCell In Selection
MergedCellRgWidth = CurrCell.ColumnWidth + MergedCellRgWidth
Next
.MergeCells = False
.Cells(1).ColumnWidth = MergedCellRgWidth
.EntireRow.AutoFit
PossNewRowHeight = .RowHeight
.Cells(1).ColumnWidth = ActiveCellWidth
.MergeCells = True
.RowHeight = IIf(CurrentRowHeight > PossNewRowHeight, _
CurrentRowHeight, PossNewRowHeight)
End If
End With
End If
End Sub

Hier der VBA-Code zum automatischen Ausführen des Makros:

Private Sub Worksheet_Change(ByVal Target As Range) 
If Not Intersect(Target, Range("$D$31:$M$31")) Is Nothing Then Zellenanpassen 
End Sub

Wie gesagt sind meine VBA-Kenntnisse eher sehr mau. Ich hab mir diese aus einer bekannten Suchmaschine zusammengewürfelt und bin gerade echt schon am verzweifeln.

" im worksheet_change haltepunkt setzen (debug) und dann step by step.

activecell = selected cell?"

Was ist damit gemeint? Vielen Dank für die Hilfe!!! :))

Gruß fireless

...zur Antwort

Hi OschiOnDrums,

dies ist meiner Meinung nach garnicht möglich..?

Apple unterstützt doch nur das One-Way-Prinzip.. d.h. du kannst die Bilder nur vom iPod auf den PC schieben und nicht umgekehrt.

Mein Vorschlag wäre, dass du die Dropbox App runterlädst, an deinem PC die Bilder dort reinziehst und dann (wenn ich mich nicht irre) müsstest du Screenshots der einzelnen Bilder machen..

Kann sein, dass ich mich auch irre, aber ich bin mir zu 70% sicher, dass das nur über diesen Weg möglich wäre.

Gruß fireless91

...zur Antwort

Hi Leute, ich habe endlich eine Lösung gefunden, für diejenigen, die die Ordner nicht in einem Ordner ablegen müssen reicht nur die App "Documents To Go". Ansonsten nutzt man "USB Disk" auch noch

App: Documents To Go (8,99€)

  • Excel & Word Dokumente bearbeiten möglich
  • .ppt nur anschauen
  • Via iTunes können Dokumente auf das Gerät geschoben werden / und vom Gerät zurück auf den Computer
  • Dateiformat:
  • bis 2003 .doc , .xls, .ppt
  • ab 2007 .docx, .xlsx, .pptx

Vorgehensweise um Dokumente auf das Gerät zu bekommen (ohne Ordner!)

  • iPhone / iPad mit dem Computer verbinden
  • iTunes öffnen (ggf. öffnet es sich automatisch)
  • Gerät im Reiter „GERÄTE“ anklicken
  • Oben auf den Reiter „Apps“ gehen und die entsprechende App anklicken
  • Dokumente in „Dokumente von „DocsToGo“ schieben

Vorgehensweise um Dokumente auf den Computer zu bekommen

  • Bearbeitetes Dokument in der App „DocsToGo“ speichern
  • iTunes öffnen (ggf. öffnet es sich automatisch)
  • Gerät im Reiter „GERÄTE“ anklicken
  • Oben auf den Reiter „Apps“ gehen und die App „DocsToGo“ anklicken
  • Dokument in Ordner/Desktop per Drag&Drop verschieben

Vorgehensweise um Dokumente in Ordnern auf den Computer zu bekommen

  • Bearbeitetes Dokument in der App „DocsToGo“ speichern
  • Auf den „Pfeil-Button“ klicken und Dokument „Öffnen mit...“ auswählen
  • In „USB Disk öffnen“
  • Auf das „+“ klicken und dementsprechenden Ordner erstellen
  • Auf „Wählen“ klicken und somit das Dokument in diesem Ordner abspeichern
  • iTunes öffnen (ggf. öffnet es sich automatisch)
  • Gerät im Reiter „GERÄTE“ anklicken
  • Oben auf den Reiter „Apps“ gehen und die App „USB Disk“ anklicken
  • Ordner auswählen und „Sichern unter…“ anklicken

mit der PRO Version (14,99€) kann man .ppt oder .pptx Dateien erstellen und bearbeiten

außerdem haben die Apps einen integrierten Cloud-Service

Hoffe einigen geholfen zu haben.

Gruß,

fireless91

...zur Antwort

Danke erstmal für die vielen Antworten.

Es geht mir hierbei um die Datensicherheit.. Ich bin überhaupt kein Laie was Smartphones (sei es iOS, Android oder Windoof) angeht.

Öffentliche Netze sind in einigen Fällen (vorallem wenn sie offen sind) unsicher, und es geht um wichtige Daten.

Für weitere Antworten wäre ich dankbar.

...zur Antwort

klick mal aufm Desktop auf "Anpassen" und schau mal ob du es auf "aero-designs" oder "installierte designs" ändern kannst und dann wieder alles normal ist ;)? kann es sein das du auf "windows klassisch" gekommen bist?

gruß, fireless91

...zur Antwort

und ich hatte mal was gelesen von wegen kosten einer SMS nach England? stimmt das? ansonsten danke :)

...zur Antwort

weiss denn niemand etwas dazu? :(

...zur Antwort