Insert a new Column a in specific Sheet and fill it with content

mthwi · #1 08-27-2020, 08:09 AM

Hi,
i have the following code and it does not work.
I want to select the sheet with the first input box and with the 2. the value to be entered in the new column 'A'.

Maybe someone can correct the code.

Here is the code:

Code:

Sub Einfügen_New_A_and_Fill_with_Content_SPECIFIC_SHEET()
Dim ws As Worksheet, Data$
ws = InputBox("Provide a sheet name:")
Data = InputBox("What would you like to insert in column A ?")
For Each ws In Sheets
   ws.Columns(1).Insert
   ws.Cells(1).Resize(ws.UsedRange.Rows.Count) = Data
Next
End Sub

Vielen Dank

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Insert Rich Text Content Control in specific position, Word 2013 VBA	LaurenM	Word VBA	13	12-01-2017 02:07 AM
Export Word Drop-Down Content Control to Excel Specific Sheet	nolanthomas32	Word VBA	4	09-19-2017 06:25 AM
Code to Sum Column of Content Control Values In Specific Tables?	warbird	Word VBA	2	07-13-2015 05:44 AM
Excel copy two numbers between specific column and paste in next sheet	visha_1984	Excel	1	12-26-2014 07:59 PM
Create a New Sheet from Existing Sheet with Specific Columns	malam	Excel Programming	1	10-17-2014 10:01 PM